Höhe von TMenuItems bei 120 DPI erhöhen?

[anse]

Mal wieder das Thema hohe DPI Einstellungen: In meiner Delphi 2010 Form sind die Menu items (aus TMainMenu + TPopupMenu) bei 120 oder mehr DPI mit dem vergrößerten Font "gequetscht" siehe
Screenshot.

Ich finde im Netz und in der Delphi Hilfe nichts wie ich die Höhe anpassen könnte, oder warum diese Items nicht sowieso schon durch Windows bzw. Delphi vergrößert werden, so wie alle anderen Form-Controls auch. Ist eher kosmetisch, weil man die Items noch so gerade lesen kann, aber schön aussehen tut das nicht.

[daywalker9]

Hast du schon versucht selber das zu machen?

Delphi-Quellcode:

    property OnDrawItem: TMenuDrawItemEvent read FOnDrawItem write FOnDrawItem;
    property OnAdvancedDrawItem: TAdvancedMenuDrawItemEvent read FOnAdvancedDrawItem write FOnAdvancedDrawItem;
    property OnMeasureItem: TMenuMeasureItemEvent read FOnMeasureItem write FOnMeasureItem;

Bei MeasureItem gibts kannst du die höhe angeben und malst dann selber?

[anse]

Hört sich nach viel Aufwand an, wenn ich sämtliche Menüs erwischen will (sind ca. 15 PopupMenus), aber werd ich mal versuchen. Danke!

[anse]

Ok,
* TPopupMenu.OwnerDraw auf True gestellt
* OnMeasureItem handler geschrieben:

Delphi-Quellcode:

procedure TMainform.omi(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
begin
  height := 40;
end;

Dadurch wird tatsächlich das Item höher. Allerdings mit dem Nachteil, dass dann Checked items keinen Haken mehr haben, und noch einen kleinen Fehler beim Malen des Begrenzers zwischen Itemtext und des linken Bereiches für das Icon:

http://www.heidisql.com/files/menu_ownerdraw.png

Hmmmm....

[daywalker9]

Du hast ja auch OwnerDraw auf true gestellt. dann musst du dich selber darum kümmern

[anse]

Richtig... also der Preis scheint mir zu hoch zu sein, nur um 120 DPI bedienen zu können.