Как сменить уже выставленный 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;

спасибо, добрый человек

Как сменить уже выставленный form1.brush.Bitmap Найти похожие ветки