Текущий архив: 2004.09.26;
Скачать: CL | DM;
Вниз
PopupMenu другого цвета Найти похожие ветки
← →
mrald (2004-09-11 22:40) [0]Подскажите, пожалуйста, как изменить цвет PopupMenu? Дело в том, что у этого компонента (и ему подобных) нет механизмов для графической работы с окном объекта (такие как TCanvas). Тем не менее у некоторых типов PopupMenu есть возможность устанавливать клиентскую графическую область окна, но не всего, а только слева. Подскажите, может есть расширенный компонент. Или может я просто что-то пропустил?
← →
Рыба © (2004-09-11 22:46) [1]ставить OwnerDraw := True и обрабатывать OmMeasureItem/ OnDrawItem(OnAdvancedDrawItem).
← →
тот же (2004-09-12 09:53) [2]
procedure TForm1.FormCreate(Sender: TObject);
begin
PopupMenu1.OwnerDraw := true;
end;
procedure TForm1.N1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; State: TOwnerDrawState);
begin
ACanvas.Font.Name := "Times New Roman";
ACanvas.Font.Style := [fsbold];
ACanvas.Font.Color:=clRed;
ACanvas.Font.Size:=10;
ACanvas.TextOut(1,1," Красный Item");
end;
← →
DVM © (2004-09-12 12:25) [3]Вот только рамку меню перерисовать путём не удасться под XP.
Страницы: 1 вся ветка
Текущий архив: 2004.09.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.04 c
