Сборник лабораторных работ по дисциплине "Прикладное программное обеспечение". Самохвалов К.М. - 55 стр.

UptoLike

Составители:

Рубрика:

55

var

Bmp: TBitmap;

begin

if not FileExists(Filename) then

begin

ShowMessage('The bitmap ' + Filename + ' was not found!');

Exit;

end;

Bmp := TBitmap.Create;

try

Bmp.LoadFromFile(Filename);

Canvas.Draw(x, y, Bmp);

finally

Bmp.Free;

end;

Эта функция пытается загрузить и показать картинку (с именем

Filename, например 'myBitmap.bmp'), начиная с точки (x,y).

Функции рисования в GDI

TCanvas имеет несколько полезных функций, которые работают с ти-

пом TGraphic. Тип TGraphic является базовым классом для графических объ-

ектов в Turbo Explorer, таких как: битмапы (TBitmap), иконки (TIcon), мета-

файлы (TMetafile) и JPEG-и (TJPEGImage). Все они используют одни и те же

функции, которые приведены в таблице:

ИМЯ ОПИСАНИЕ ПРИМЕР ИСПОЛЬЗОВАНИЯ

Draw

Рисует TGraphic на канвасе

так как он есть, не растягивая.

Canvas.Draw(5,10,MyGraphic);