Текущий архив: 2003.02.06;
Скачать: CL | DM;

Вниз

Шкура для окна   Найти похожие ветки 

← →
V-Isa   (2003-01-27 15:51) [0]

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

---

← →
Vint   (2003-01-27 16:11) [1]


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 :)))

---

← →
Vint   (2003-01-27 16:15) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.06;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.011 c