отрисовка картинки в winapi

[helper999999]

Помогите не получается вставить картинку из ресурса.

function MessageMainProcess(Handle: HWND; Msg: UINT; WParam: Integer; LParam: Integer): Integer;stdcall;
begin
  Result:=0;
  case msg of
    WM_CREATE:
      begin
      { ...}
      end;
    WM_PAINT:
     begin

     bmp:= LoadGIFRes(hInstance, 'button_next', 'GIF');//Загрузка *.RES
 SelectObject(hdcMem, bmp);
 BitBlt(a, 0, 0, 100, 100, hdcMem, 100, 100, SRCCOPY);
   
     end;

    WM_DESTROY:
      begin
        PostQuitMessage(0);
        Exit;
      end;
  end;
  Result:=DefWindowProc(Handle,Msg,WParam,LParam);
end;

procedure LoadGIFRes она конвертирует, работает как надо но изображение не обрисовывается.

[kropotkina-alice]

http://programmersforum.ru/showthread.php?t=260757

[helper999999]

Сообщение от kropotkina-alice

http://programmersforum.ru/showthread.php?t=260757

загружать у меня получается, мне не удается вывести картинку на окно winapi, чтобы она встала в определенное место (в указанные координаты).

[Stilet]

BitBlt(a

Переменная "а" это что? Как описана и что ей присвоено?

Порылся по своим сусекам:

	case WM_PAINT:
		hdc = BeginPaint(hWnd, &ps);
		...
                 BitBlt(hdc, 0, 0, 100, 100, hdcMem, 100, 100, SRCCOPY);
                ...
		// TODO: добавьте любой код отрисовки...
		EndPaint(hWnd, &ps);
		break;

Вот примерно так...