Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

В WM_DRAWITEM   Найти похожие ветки 

 
anod ©   (2002-08-10 23:31) [0]

в lparam приходит структура TDRAWITEMSTRUCT, подскажите как мне её обработать (присвоить переменной), да и написанно, что нужно возвратить значение true, как это реализовать?


 
Юрий Зотов ©   (2002-08-11 13:23) [1]

Уточните, о чем идет речь. Это обработка WM_DRAWITEM или что-то другое?


 
Юрий Зотов ©   (2002-08-11 13:31) [2]

Sorry, невнимательно прочитал вопрос. Исправляюсь.

var
DIS: TDrawItemStruct;
begin
DIS := PDrawItemStruct(Message.LParam)^;
...
Message.Result := Integer(True)
end;



 
anod ©   (2002-08-11 14:00) [3]

Огромнейшее спасибо.
Я как только не извращался с этим


 
anod ©   (2002-08-11 18:28) [4]

Я думал, что в DRAWITEMSTRUCT можно определить когда кнопка (именно её я перерисовываю) нажата или над ней мышь, если да то кинте примерчик, а то я с С никак не могу перевести в Паскаль.


 
Юрий Зотов ©   (2002-08-11 23:49) [5]

Какой пример нужен - на чистом API или для TButton?

А еще проще - давайте сюда Ваш пример на С, народ моментом переведет...


 
anod ©   (2002-08-12 03:52) [6]

Я врубился как для нажатой кнопки прорисовывать, а если мышь находится над кнопкой (onMouseMove), то WM_DrawItem здесь не подходит...
IDC_MENU: case dis.itemAction of
ODA_SELECT:if (ODS_SELECTED and dis.itemState)<>0 then begin c.X:=90; c.Y:=32; end;
else c.X:=90; c.Y:=0;
end;
StretchBlt(dis.hDC, dis.rcItem.left, dis.rcItem.top, dis.rcItem.right-dis.rcItem.left, dis.rcItem.bottom - dis.rcItem.top, cbDC, c.X, c.Y,15,15, SRCCOPY);



Страницы: 1 вся ветка

Текущий архив: 2002.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-85585
[WhItE]
2002-09-14 00:29
2002.09.26
Delphi Outlook(Входящие)


3-85388
Alex Y
2002-09-04 10:02
2002.09.26
Помогите с запросом


1-85611
tytus
2002-09-15 15:31
2002.09.26
Сохранение в файле


6-85626
Leny
2002-07-24 11:32
2002.09.26
Запуск программы


1-85543
Лана Розанова
2002-09-13 13:52
2002.09.26
Delphi 1