Рисование на форме созданной на WinApi

[N!ckeL]

Как можно нарисовать на форме созданной на WinApi, или вставить туда картинку? Заранее спс.

[mutabor]

Средствами WinAPI конечно. Точно так же как и на дельфовой форме только функции не обертки VCL' овские, а графические WinAPI функции.
Копирует растры функция BitBlt, упрощенный аналог в VCL - функция Draw.

[N!ckeL]

Можно пример использования?

var
  wc: TWndClassEx;
  pWnd: hwnd;
  pMsg:Tmsg;
  c:tcanvas;
    function WindowProc (wnd: HWND; Msg: integer; wParam: wParam; lParam:lparam):lresult; stdcall;
      begin
        result:=0;
        result:=defwindowproc(wnd, msg, wparam, lparam);
     case msg of
        wm_create:
     begin
     c:=tcanvas.create;
     bitblt(c.Handle, 0, 0, 0, 0, pwnd, 0, 0, 0);// вот так вызвал, но ошибка..
     end;
     wm_destroy:
     begin
      postquitmessage(0);
      exit;
     end;
begin
  wc.cbSize:=sizeof(wc);
  wc.lpfnWndProc:=@windowproc;
  wc.cbClsExtra:=0;
  wc.cbWndExtra:=0;
  wc.hInstance:=hinstance;
  wc.hCursor:=loadcursor(0, idc_arrow);
  wc.hbrBackground:=color_btnface+1;
  wc.lpszMenuName:=nil;
  wc.lpszClassName:='delphi_winapi';
  registerclassex(wc);
  pwnd:=createwindowex(ws_ex_appwindow, 'delphi_winapi', 'Caption', ws_border, cw_usedefault, cw_usedefault, 300, 100, 0, 0, hinstance, nil);

showwindow(pwnd, sw_show);

while getmessage(pmsg, 0, 0, 0) do
begin
    translatemessage(pmsg);
    dispatchmessage(pmsg);
end;

[mutabor]

bitblt(c.Handle, 0, 0, 0, 0, pwnd, 0, 0, 0);// вот так вызвал, но ошибка..

Я на чистом WinAPI не писал никогда, но функции использовал часто.
1 параметр - хэндл канвы приемника
2,3 - координаты куда ложить
4,5 - размеры (здесь 0, 0 - это нулевые размеры, нужно исправить)
6 - хэндл канвы источника (вот тут его и нет)
7,8 - координаты откуда брать
последний - код операции, SrcCopy простое копирование (чему соответствует 0 не знаю, может как раз SrcCopy)

Более подробно смотри здесь http://www.programmersforum.ru/showt...5625#post45625