| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Cr@sh ©   (2002-08-13 15:51:00) 

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

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?
Заоранее спасибо.

---

Cr@sh   (2002-08-13 16:07:00) [1]

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

---

Cr@sh   (2002-08-13 15:59:00) [2]

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

---

lenin   (2002-08-13 15:57:00) [3]

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;

---

Skier   (2002-08-13 15:56:00) [4]

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

---

Johnmen   (2002-08-13 15:56:00) [5]

>MBo © (13.08.02 15:53)

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

---

MBo   (2002-08-13 15:53:00) [6]

нет слов...

---

Наверх