Weet iemand waarom het zetten van Screen.MenuFont geen enkel effect heeft?
Edit: ok OwnerDraw van menu aanzetten... Maar dan ziet het er helaas nog steeds niet uit haha.
Weet iemand waarom het zetten van Screen.MenuFont geen enkel effect heeft?
Edit: ok OwnerDraw van menu aanzetten... Maar dan ziet het er helaas nog steeds niet uit haha.
Probeer eens Ownerdraw uit te zetten en weer aan te zetten in je code om het menu te refreshen. De Screen Menufont zou danwel effect moeten hebben.
Vriendelijke groeten,
Dany
Je moet natuurlijk niet ALLEEN OwnerDraw aanzetten.
Je moet ook TMenuItem.OnDrawItem maar OOK TMenuItem.OnMeasureItem implementeren (vergeet deze laatste vooral niet).
Als je deze code op de juiste plaats zet en aan alle TMenuItem's hangt en TMainMenu of TPopupMenu .OwnerDraw := true doet dan gaat het prima.
(Er zijn ook nog zat andere voorbeelden te vinden.)
Delphi Code:
type TMyMenuItem = class(TMenuItem); procedure TForm1.MenuItemMeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); var OldMeasureItem: TMenuMeasureItemEvent; begin with Sender as TMenuItem do begin OldMeasureItem := OnMeasureItem; OnMeasureItem := nil; ACanvas.Font.Name := 'Courier New'; TMyMenuItem(Sender).MeasureItem(ACanvas, Width, Height); OnMeasureItem := OldMeasureItem; end; end; procedure TForm1.MenuItemAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState); var OldAdvancedDrawItem: TAdvancedMenuDrawItemEvent; begin with Sender as TMenuItem do begin OldAdvancedDrawItem := OnAdvancedDrawItem; OnAdvancedDrawItem := nil; ACanvas.Font.Name := 'Courier New'; DrawMenuItem(TMenuItem(Sender), ACanvas, ARect, State); OnAdvancedDrawItem := OldAdvancedDrawItem; end; end;
Voor zover ik weet reageren jullie nu op een necro-post en bestaat de gebruiker niet (meer).
TMemoryLeak.Create(Nil);
Ah. Ik dacht dat de gebruiker Anoniem genoemd was.
Maar ik zie dat de post inderdaad van 2018 is
Ach... goed voor het archief als iemand naar dit probleem zoekt
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks