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....