Ковыряюсь во всяких справочниках... чего то ни фига не получается... Если кто может подскажите, как сделать или где поглядеть пример...
1. CreateWindow ( 'STATIC', text', WS_CHILD or WS_VISIBLE, 30, 8, 500, 80, handleWnd, 0, hInstance, nil ); * как задать ему цвет * сделать вертикальный скролл * изменить шрифт (размер, цвет и сам шрифт)
... case LoWord(WParam) of BTN_ID: // По нажатию кнопки перед закрытием, отобразим Progress... begin for i := 0 to 100 do begin Sleep(50); SendMessage(myProgress, PBM_SETPOS, i, 0); end; PostQuitMessage(0); Result := 0; end; ...
Ну всё также, загрузка/показ рисунка... ни где так примера и не нашел...
Вот тебе пример:
var StaticWnd: HWND; ImLogo: HBITMAP; ... // Создаем статический контрол StaticWnd := CreateWindow('static', 'Test', WS_VISIBLE or WS_CHILD or SS_BITMAP or SS_CENTERIMAGE, 100, 100, 500, 300, handleWnd, 0, HInstance, nil); // Грузим в битмап содержимое BMP-файла ImLogo := LoadImage(0, 'real_map.bmp', IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE or LR_LOADMAP3DCOLORS or LR_LOADTRANSPARENT); // И посылаем стат. контролу сообщение об установке изображения SendMessage(StaticWnd, STM_SETIMAGE, IMAGE_BITMAP, ImLogo);
Насчет неизменяемого EDIT-а сейчас гляну...
Добавлено через 9 мин. P.S. А, ну так не надо делать ES_READONLY, достаточно написать ничего не делающую оконную функцию:
... case LoWord(WParam) of BTN_ID: // По нажатию кнопки перед закрытием, отобразим Progress... begin for i := 0 to 100 do begin Sleep(50); SendMessage(myProgress, PBM_SETPOS, i, 0); end; PostQuitMessage(0); Result := 0; end; ...