Как создать WinAPI форму с загруженным в нее изображением?

kineziz

Для загрузки файла из компа вроде функция LoadImage. А выводить её в окно можно обрабатывая сообщение WM_PAINT

HDC hDC = GetDC(HWND окна)

HDC hMemDC = CreateCompatibleDC(hDC); // Создание совместимого контекста

SelectObject(hMemDC,Описатель картинки, полученный вызовом ф-ции LoadImage); // Помещение картинки в контекст

BitBlt(hDC,x,y,w,h,hMemDC,0,0,SRCCOPY); // Вывод содержимого совместимого контекста в основной

// x,у - координаты верхнего левого угла куда будет выводиться изображение

// w,h - размеры изображения

DeleteDC(hMemDC);

ReleaseDC(hWnd,hDC);

Если файл с расширением .iso, то вывести можно с помощью функции DrawIcon

Если картинка находится в ресурсах .exe, то

HBITMAP hBitmap = LoadBitmap(HINSTANCE модуля,MAKEINTRESOURCE(ID - ресурса));

HDC hDC = GetDC(HWND окна)

HDC hMemDC = CreateCompatibleDC(hDC);

SelectObject(hMemDC,hBitmap);

BitBlt(hDC,x,y,w,h,hMemDC,0,0,SRCCOPY);

DeleteDC(hMemDC);

ReleaseDC(hWnd,hDC);

Если нужно загрузить иконку для отображения в левом верхнем углу приложения, то:

WNDCLASS wc;

....

wc.hIcon = LoadIcon(0,MAKEINTRESOURCE(ID ресурса));

...

тема на форуме

Как программно сменить шрифт в консоли? (читать всё…)

(читать всё…)

Как добавить файл из пути в автозагрузку? Например D:\Proga\proga.exe (читать всё…)

для определения времени я создал две глобальные переменные и увеличивал их в таймере. но время определяет не правильно. как можно доработать? (читать всё…)

(читать всё…)

Как связать Excel и Autocad? (читать всё…)

При работе с AutoCad возникла такая проблема, как создать верхний индекс для числа, например, х в степени (-0.5)?

Stilet

Если речь идет об объекте MText то можно просто использовать его спецкодировку
Вот например такой пример

var

 q,s:string;      mt,adc,e2,e:OleVariant;

 SelectedObject:IDispatch;   pnt:variant;

 mn,mx:variant;

begin       {$o-}

 mn:=VarArrayCreate([0,2],varDouble);

 mx:=VarArrayCreate([0,2],varDouble);

 adc:=AcadActiveDoc;

  PostMessage(adc.Application.hwnd, WM_SYSCOMMAND, SC_MAXIMIZE, 1);

   SetForegroundWindow(adc.Application.hwnd);

 adc.Utility.GetEntity(SelectedObject,pnt);

 e:=SelectedObject;

 e.GetBoundingBox(mn, mx);

 mn[1]:=mx[1];

 mt:=adc.PaperSpace.AddMText(mn, 10, '{\Fgreeks|c204;\H1.429x;\C256;d\fArial|b0|i0|c0|p34;\H0.5835x;'+IntToStr(i)+'}');

 mt.Rotate(mn, e.Rotation);

 e.delete;

 inc(i);

 e:=EmptyParam;

 Edit1.Text:=IntToStr(i);

вот там я использую его специальную кодировку для форматирования текста, подставляя между ней свои значения.

Autocad купить
AutoCAD 2014 — это САПР с мощными 2D- и 3D-инструментами для проектирования и производства документации. В новой версии рабочий процесс обогащен инструментами взаимодействия — для обсуждения проекта с коллегами и более глубокого вовлечения всех заинтересованных сторон. Добавлены десятки усовершенствований, ускоряющий каждодневных рабочий процесс. Работа с картографическими службами и новые функции захвата реальности позволят применять сканированные данные объектов реального мира.

тема на форуме

Программа добавляет в строке текст например «привет», и через 3-4сек заменяет его в этой же строке на текст «пока». (читать всё…)

Мой проект выполняет действие по мониторингу процессов (это программа серфинга сайтов одной системы САР), и при отсутствии процесса wasppacer.exe запускает его снова из указанной папки. Но как только обновляется программа серфинга, запускается updater.exe, а процесс wasppacer.exe исчезает из процессов. Вследствие чего, мой проект инициирует запуск wasppacer.exe снова, не успев обновить серфинг. Бывает до 10 updater.exe работает, пока первый не обновит, тогда в процессах снова запустится wasppacer.exe и процесс обновления завершится, но те updater.exe, что остались висеть в процессах, также обновятся и запустится 10 копий (образно говоря). (читать всё…)