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