Иллюстрированный самоучитель по Kylix


Листинг 13 8 Загрузка графического образа из файла



Листинг 13.8.Загрузка графического образа из файла

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;

Примечание
Кисть не является владельцем графического образа, который присвоен свойству Bitmap кисти. Вы должны самостоятельно уничтожать объект графического образа после использования.

Назад
Начало
Вперед


Начало Назад Вперед


Книжный магазин