Форум: "Потрепаться";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизГрафика Найти похожие ветки
← →
Kost (2003-08-15 22:03) [0]Как закрасить фигурнапример квадрат через Canvas.Заранее спасибо...
← →
Колобок (2003-08-15 22:10) [1]Canvas - F1
← →
reticon (2003-08-15 22:15) [2]FillRect + F1
← →
Kost (2003-08-15 22:34) [3]НАПИШИТЕ ПРОГРАМНЫЙ КОД А НЕ ЧЕРЕЗ Ф1
← →
Романов Р.В. (2003-08-15 22:40) [4]The following code loads a bitmap from a file and assigns it to the Brush of the Canvas of Form1:
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile("MyBitmap.bmp");
Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(Rect(0,0,100,100));
finally
Form1.Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c