Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c