Вывести Bitmap на WinAPI

[apromix]

Пишу на дельфи, программа GUI WinAPI. Только начал изучать. Подскажите, как загрузить из файла и вывести на форму bitmap?

Program Api;

uses
  Windows, Messages, SysUtils;

var
 window: TWndClassEx;
 Mwindow: HWND;
 Mmsg: MSG;
// Cmd: TButton;

// Процедура обработки сообщений
function WindowProc(wnd: HWND; msg: integer;  wparam: WPARAM; lparam: LPARAM):LRESULT;STDCALL;
begin
 case msg of
  WM_Destroy:
   begin
    PostQuitMessage(0);
    Result:=0;
    Exit;
   end;
   else
    Result:=DefWindowProc(wnd,msg,wparam,lparam);
 end;
end;

// Ристрация созданого класса
begin
 window.cbSize     :=sizeof (window);
 window.style      :=CS_HREDRAW or CS_VREDRAW;
 window.lpfnWndProc:=@WindowProc;
 window.cbClsExtra :=0;
 window.cbWndExtra :=0;
 window.hInstance  :=HInstance;
 window.hIcon      :=LoadIcon (0,IDI_APPLICATION);
 window.hCursor    :=LoadCursor (0,IDC_ARROW);
 window.hbrBackground:=Color_BtnFace+12;
 window.lpszMenuName :=nil;
 window.lpszClassName:='Main_Window';
 RegisterClassEx (window);
 // Создание окна на основе созданного класса
 Mwindow:=CreateWindowEx(0,'Main_Window','First_WinAPI_Program',WS_OVERLAPPEDWINDOW,100,100,300,300,0,0,Hinstance,nil);
 // Показать созданное окно
 SHOWWINDOW(Mwindow,SW_Show);
  // Цикл обработки сообщений
 while GetMessage(Mmsg,0,0,0) do
  begin
   TranslateMessage(Mmsg);
   DispatchMessage(Mmsg);
  end;
end.

[navodri]

вот так

const
 ID_STATIC = 200;

var
 hBMP: hBitmap;

//////

hBMP := LoadImage(hInstance, PChar('C:\Pic1.bmp'), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
SendDlgItemMessage(hWin, ID_STATIC, STM_SETIMAGE, IMAGE_BITMAP, hBMP);

[SnX]

http://www.rsdn.ru/article/qna/gdi/drawimg.xml
Можно еще через LoadImage или LoadBitmap( если картинку в ресурсы положить) или вообще вручную загружать файл и делать CreateBitmap, а затем через GDI нарисовать на форме ( GetDC => SelectObject => BitBlt ).

[apromix]

Спасибо

А как на этот битмап вывести текст TextOut? Как задать шрифт и его свойства и отобразить на битмапе?

[An1ka]

Нужно сначало создать шрифт: CreateFontIndirect.
А потом уже выбрать его в контексте устройства или памяти - SelectObject.

[Пепел Феникса]

http://programmersforum.ru/showpost....02&postcount=2