Загрузка графического образа из файла



Листинг 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 кисти. Вы должны самостоятельно уничтожать объект графического образа после использования.

Назад
Содержание
Вперед


Содержание раздела