Ув. мастера, помогите с алгоритмом.

← →
Cr@sh © (2002-08-13 15:51) [0]

Имеется процедура

procedure TForm1.Button1Click(Sender: TObject); begin image1.Picture.Bitmap.LoadFromFile("C:\sh\g.bmp"); end;

Размер рисунка 20х20, Image`a 400x400

как с помощью
b:=tbitmap.create; b.loadfromfile("C:\sh\g.bmp"); image1.Canvas.Brush.Bitmap:=b; image1.Canvas.FillRect(image1.ClientRect);

сделать так, чтобы после нажатия на кнопку, весь Image автоматически заполнялся g.bmp?
Заоранее спасибо.

← →
MBo © (2002-08-13 15:53) [1]

нет слов...

← →
Skier © (2002-08-13 15:56) [2]

>Cr@sh
Используй утилиту Delphi
"Merge Two Pieces Of Code And Get Required Result" :)))

← →
Johnmen © (2002-08-13 15:56) [3]

>MBo © (13.08.02 15:53)

Ну парочку все же нашел... :)))

← →
lenin © (2002-08-13 15:57) [4]

procedure TForm1.Button1Click(Sender: TObject); var b: TBitmap; begin b:=tbitmap.create; b.loadfromfile("C:\sh\g.bmp"); image1.Canvas.Brush.Bitmap:=b; image1.Canvas.FillRect(image1.ClientRect); end;

Просто всю прогу переписывать не хочется очень часто встречается
image1.Picture.Bitmap.LoadFromFile("C:\sh\***.bmp");
Раз так 100 - 200 и на разных формах.
Так можно такое сделать используя Image1.Picture.OnChange?

>lenin
В том то весь и прикол, ничего не добавляя в procedure TForm1.Button1Click(Sender: TObject);

Ув. мастера, помогите с алгоритмом. Найти похожие ветки