Текущий архив: 2004.01.23;
Скачать: CL | DM;
Вниз
Как сменить уже выставленный form1.brush.Bitmap Найти похожие ветки
← →
Vi0let © (2004-01-12 07:20) [0]
// ранее form1.brush.Bitmap уже было выставлено, нужно поменять:
// сбрасываем
form1.brush.Bitmap := nil;
BackgroundBitmap.Free;
// ставим заново
BackgroundBitmap := TBitmap.Create();
form1.Imagelist1.GetBitmap(1, BackgroundBitmap);
form1.brush.Bitmap := BackgroundBitmap;
нельзя по проще?
← →
ЮЮ © (2004-01-12 08:03) [1]Создать необходимые битмапы один раз:
type
TForm1 = class(TForm)
Button1: TButton;
ImageList1: TImageList;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
FBrushBitmaps: array of TBitmap;
public
{ Public declarations }
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
Setlength(FBrushBitmaps, ImageList1.Count);
for i := 0 to ImageList1.Count - 1 do begin
FBrushBitmaps[i] := TBitmap.Create;
ImageList1.GetBitmap(i, FBrushBitmaps[i]);
end;
end;
и затем их использовать:
procedure TForm1.Button1Click(Sender: TObject);
begin
ImageList1.Tag := ImageList1.Tag + 1;
if ImageList1.Tag >= ImageList1.Count then ImageList1.Tag := 0;
Form1.Brush.Bitmap := FBrushBitmaps[ImageList1.Tag];
Form1.Repaint;
end;
← →
Vi0let © (2004-01-12 08:23) [2]спасибо, добрый человек
Страницы: 1 вся ветка
Текущий архив: 2004.01.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
