Программирование Delphi

Для того, чтобы вывести изображение в Picture Control в приложении, написанного на WinApi, нужно прежде всего поместить Picture Control на форму в редакторе ресурсов.

Затем добавляем переменные HWND и HBIBMAP для Picture Control и Bitmap соответственно.

HWND hPic;
HBITMAP hBitmap;

В обработке события WM_INITDIALOG загружаем изображение из ресурсов и получаем хэндл Picture Control.

hBitmap = LoadBitmap(hInst, MAKEINTRESOURCE(IDB_BITMAP1));
hPic = GetDlgItem(hwnd, IDC_PICTURE);

В обработчике события WM_PAINt добавляем код:

BITMAP bm;
PAINTSTRUCT ps;

HDC hdc = BeginPaint(hwnd_pic, &ps);
HDC hdcMem = CreateCompatibleDC(hdc);
HGDIOBJ hbmOld = SelectObject(hdcMem, hBitmap);
GetObject(hBitmap, sizeof(bm), &bm);
BitBlt(hdc, 0, 0, bm.bmWidth, bm.bmHeight, hdcMem, 0, 0, SRCCOPY);
SelectObject(hdcMem, hbmOld);
DeleteDC(hdcMem);
EndPaint(hwnd_pic, &ps);