Возможны ли извраты с PopupMenu?

← →
De (2005-11-25 13:41) [0]

Можно ли PopupMenu сделать прозрачным или изменить его цветовую гамму (не затрагивая глобальных настроек windows и не переписывая компонент полностью с нуля) ?
Спасибо

← →
Ega23 © (2005-11-25 13:43) [1]

Градиентную заливку когда-то на нём рисовал. Начальству понравилось. Сам считаю полной блажью.

← →
De (2005-11-25 13:51) [2]

меню вызывается на форме черного цвета с динамическим изображением (OpenGL сцена), черный текст на белом фоне смотрится отвратно, вот и задался вопросом сделать его полупрозрачным или хотя бы изменить световую гамму

← →
De (2005-11-25 14:51) [3]

> Ega23
чем рисовал, что юзал?

← →
Ega23 © (2005-11-25 15:20) [4]

> чем рисовал, что юзал?

Ох... Если бы я помнил... Сейчас поищу...

Вот. TRxPopupMenu.OnDrawMargin

procedure TFMain.RxPupSpecFuncDrawMargin(Sender: TMenu; Rect: TRect);
var cl:tcolor;
mnu:Trxpopupmenu;
ss:string;
const
Txt = "";
begin
mnu:=(sender as Trxpopupmenu);
ss:=mnu.Name;
with mnu .Canvas.Font do begin
Name := "Courier New";
Style := [fsBold];
Size := 14;
Color := clWhite;
Handle := CreateRotatedFont(mnu.Canvas.Font, 90);
end;
cl:=$00ACDAFB;
mnu.DefaultDrawMargin(Rect, cl, RGB(GetRValue(cl) div 4, GetGValue(cl) div 4, GetBValue(cl) div 4));
SetBkMode(mnu.Canvas.Handle, TRANSPARENT);
ExtTextOut(mnu.Canvas.Handle, Rect.Left, Rect.Bottom - 5, ETO_CLIPPED,
@Rect, Txt, Length(Txt), nil);
end;

← →
De (2005-11-25 15:35) [5]

так у тебя RX, меня стандартный интересовал :(

Посмотри, может и для стандартного адаптировать можно.

Возможны ли извраты с PopupMenu? Найти похожие ветки