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

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

Шкура для окна [D2, Win95/98]

V-Isa ©   (2003-01-27 15:51:00) 

Подскажите, как на этапе конструирования программы во 2 Delphi фон формы заполнить bmp-кой. Другими словами, как поменять шкуру форме?

---

Vint   (2003-01-27 16:15:00) [1]

сори насчет Bitmap.Free

---

Vint   (2003-01-27 16:11:00) [2]


BitMap : TBitMap;
procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile("D:\Pic\hlpglobe.bmp");
end;
procedure TForm1.FormPaint(Sender: TObject);
var
X, Y, W, H: LongInt;
begin
with Bitmap do begin
W := Width;
H := Height;
end;
Y := 0;
while Y < Height do begin
X := 0;
while X < Width do begin
Canvas.Draw(X, Y, Bitmap);
Inc(X, W);
end;
Inc(Y, H);
end;
Bitmap.Free;
end;

тут разницы нет какой Delphi, хотя все же интересно а чо 2, а не 1 :)))

---

Наверх