Показать сообщение отдельно
  #2  
Старый 24.03.2010, 09:29
Аватар для NIch
NIch NIch вне форума
Продвинутый
 
Регистрация: 02.06.2008
Адрес: Бендеры ПМР
Сообщения: 754
Репутация: 2446
По умолчанию

Нужно работать или с TImage или непосредственно с изображением...
С bmp быстрее всего работает API функция
Код:
function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: Longint): Bool;
http://www.codenet.ru/progr/delphi/WinAPI/BitBit.php
Пример работы с bmp
Цитата:
var
Image : TBitmap;
begin
Image := Tbitmap.Create;
try
Image.Loadfromfile(extractfilepath(Application.Exe Name)+'Image.bmp');
BitBlt(Form1.Canvas.Handle, 0, 0, 850, 750, Image.Canvas.Handle, 0, 0, SRCCOPY);
finally
ImageFree;
end;
__________________
В начале был Бит, потом Байт и только потом появилось Слово...
Ответить с цитированием