
09.12.2012, 23:19
|
 |
Активный
|
|
Регистрация: 19.11.2011
Адрес: Украина, Луганская обл.
Сообщения: 244
Версия Delphi: 7, XE, Lazarus
Репутация: выкл
|
|
Цитата:
|
Сообщение от angvelem
Вот я и привел пример, затем копируешь битмап на форму.
Код:
function WndProc(Wnd : HWND; Msg : Integer; wParam, lParam : Longint): Integer; stdcall;
var
ps : PAINTSTRUCT;
...
WM_PAINT :
begin
BeginPaint(Wnd, ps);
BitBlt(ps.hdc, 0, 0, Bmp.Width, Bmp.Height, Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, SRCCOPY);
EndPaint(Wnd, ps);
end;
|
Что в данном случае Bmp? Его как-то нужно объявлять или что?
|