Cambiar fuente PopupMenu

[vivamotos]

Saludos,

Quisiera saber si puedo agrandar la fuente de un PopupMenu o bien cambiar su color o algo parecido.

Grácias.

[Lepe]

Así de forma fácil... no, ni la fuente ni el fondo ni el color. Aunque podrás usar un Popupmenu hecho por terceros www.torry.net y seguro que te permite modificar todos esos parámetros y algo más.

Saludos

[cHackAll]

procedure TForm1.MenuItemDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
begin
ACanvas.Font.Name := 'Comic Sans MS';
ACanvas.Font.Color := clGreen;
ACanvas.FillRect(ARect);
Inc(ARect.Left, 5);
with Sender as TMenuItem do
DrawText(ACanvas.Handle, PChar(Caption), Length(Caption), ARect, 0)
end;

DFM; object PopupMenu1: TPopupMenu
OwnerDraw = True
object MenuItem1: TMenuItem
Caption = '&Cut'
OnDrawItem = MenuItemDrawItem
end
object MenuItem2: TMenuItem
Caption = '&Copy'
OnDrawItem = MenuItemDrawItem
end
object MenuItem3: TMenuItem
Caption = '&Paste'
OnDrawItem = MenuItemDrawItem
end
object MenuItem4: TMenuItem
Caption = '&Delete'
OnDrawItem = MenuItemDrawItem
end
end