VPF::Подскажите как отобразить картинку с помощью API

ftooper

Дата 23.4.2011, 23:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 14.4.2011

Репутация: нет
Всего: нет

Есть форма, созданная с помощью API.
На ферме есть несколько кнопочек, edit'ов и дургих компонентов.
Но для их создания я использовал стандартные классы.

Есть необходимость отобразить картинку на форме, с помощью API.
Расширение картинки может быть .jpg, .gif, .bmp ,.png
подскажите как это реализовать с любым из этих расширений картинок?

Javaca

Дата 26.4.2011, 01:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 17.3.2011

Репутация: нет
Всего: нет

Можно выводить картинку, например с помощью файла ресурсов .res.

Код


program bmp;

uses
  windows, messages; //Используемые модули
  
{$R 'resurs.res'}

var
  WinClass : TWndClass; //переменная класса TWndClass для создания главного окна
  hInst : HWND; //хандлер приложения
  Handle : HWND; //локальный хандлер
  Msg : TMSG; //сообщение
  Bmp : HBITMAP;
  hFont : HWND; //хандлер шрифта
  Image1 : HWND; //TImage


//обработчик сообщений
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
hInst := GetModuleHandle(nil);
  with WinClass do
  begin
   Style := CS_PARENTDC; //стиль класса главного окна
   hIcon := LoadIcon(hInst, IDC_ARROW); //иконка программы
   lpfnWndProc := @WindowProc; //назначение обработчика сообщений
   hInstance := hInst;
   hbrBackground := COLOR_BTNFACE + 1; //цвет окна
   lpszClassName := 'Main_Window'; //класс окна
   hCursor := LoadCursor(0, IDC_ARROW); //активный курсор
  end;
//InitCommonControls;
RegisterClass(WinClass); //регистрация класса в системе

// Создание главного окна программы
Handle := CreateWindowEx(0, 'Main_Window', 'Форма1',
WS_OVERLAPPEDWINDOW or
WS_VISIBLE or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SYSMENU,
219, 116, 547, 364,
0, 0,
hInst, nil);

// Создание шрифта
hFont := CreateFont(
-11, 0, 0, 0, 0, 0, 0, 0,
DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY,
DEFAULT_PITCH or FF_DONTCARE, 'MS Sans Serif');

// выводим картинку
Image1 := CreateWindow(
'Static',
'' ,
WS_CHILD or SS_BITMAP or WS_VISIBLE,
8, 8, 465, 281, Handle, 0, hInst, nil);
SendMessage(Image1, WM_SETFONT, hFont, 0);
Bmp := LoadBitmap(hInstance, MAKEINTRESOURCE('IMAGE1')); // название в ресурсе
SendMessage(Image1, STM_SETIMAGE, IMAGE_BITMAP, Bmp);


  // Цикл сбора сообщений
  while(GetMessage(Msg, 0, 0, 0)) do
  begin
    TranslateMessage(Msg); //прием сообщений
    DispatchMessage(Msg); //удаление сообщений из очереди
  end;
end.

Можно так же выводить картинки с помощью GDI+, для это нужно использовать GDIPAPI и GDIPOBJ.

P.S> У Вас есть рабочий пример MDI окна на WinAPI ?

Это сообщение отредактировал(а) Javaca - 26.4.2011, 02:01

Javaca

Дата 26.4.2011, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 17.3.2011

Репутация: нет
Всего: нет

Скачать библиотеку GDI+ для Delphi
Скачать библиотеку PNG для Delphi

Пример использования GDI+

Код


uses Windows, Messages,GDIPAPI, GDIPOBJ
...
begin
image:=TGPImage.Create('изображение.jpg');
// вывод изображения как есть
graphicsGDIPlus.DrawImage(image, 0, 0);
Image.Free;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »