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

Вниз

Как обработать 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]

Спасибо!!!!



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

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

Наверх




Память: 0.46 MB
Время: 0.032 c
3-94336
Black-Grin
2002-04-05 22:35
2002.04.29
Delphi 5,6 + Mysql


3-94325
DPetrovich
2002-04-09 14:17
2002.04.29
Выполнение хранимой процедуры в отдельном потоке


3-94265
cranium
2002-04-07 20:36
2002.04.29
Список пользователей базы InterBase


1-94520
kopachev
2002-04-15 19:48
2002.04.29
Создание превью как в отчетах


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