Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Как обработать OwnerDraw??? 


Gamar   (2002-04-17 16:49) [0]

Очень надо самому прорисовать меню, т.к. хочу поменять шрифт. Ставлю в MainMenu OwnerDraw=True и обрабатываю событие OnDrawItem (кажется) MenuItem. Помогите, как это сделать. В аргументах обработчика этого события есть ACanvas, а как его использоватьто??? Может вопрос кому то и простой, но для меня возникла небольшая проблема...



Игорь Шевченко   (2002-04-17 17:18) [1]

День добрый,


var Text : String;
begin
Text := (Sender AS TMenuItem).Caption;
if Selected then
ACanvas.Font.Color := clRed
else
ACanvas.Font.Color := clBlack;
DrawText(ACanvas.Handle,PChar(Text), -1, ARect, 0);
end;


К примеру, нарисовать выбранный пункт меню красным цветом...

С уважением,



Gamar   (2002-04-17 17:29) [2]

Спасибо!!!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.028 c
3-94270           almikhb               2002-04-08 03:56  2002.04.29  
Печать стркутуры Базы Данных


1-94442           lipskiy               2002-04-05 21:43  2002.04.29  
Как описать входной параметр процедуры многовариантно?


1-94355           besen-ok              2002-04-17 11:44  2002.04.29  
Как пробежаться по всем елементам на форме


1-94460           Sergey Karagodin      2002-04-16 10:32  2002.04.29  
Дурацкий вопрос про TreeView


1-94416           ListView              2002-04-17 19:42  2002.04.29  
Как в ЛистВиеве при щелчке на каком нибуть итемсе получить егоимя