Menü selber zeichnen

[Lollipop]

Hallo Robert,

nene. Jeden Eintrag per Hand zuzuweisen, wäre mir auch zu aufwändig gewesen. Im Prinzip verfolgen wir ja beide die gleiche Idee - ich hatte es nun noch vom Form gelöst. Die erste Methode ist öffentlich und arbeitet sich ein beliebiges Menü. Die zweite Methode ist im 'private'-Abschnitt meiner Klasse deklariert und verrichtet die eigentliche 'Drecksarbeit'.

Delphi-Quellcode:

Procedure t_MenuPainter.AttachToMenu( aMenu : TMenu );
var mIndex : Integer;
Begin
  aMenu.OwnerDraw:= TRUE;

  For mIndex:= 0 To aMenu.Items.Count-1 Do
    AttachToMenuItem( aMenu.Items.Items[mIndex] );
End;

Procedure t_MenuPainter.AttachToMenuItem( aMenuItem : TMenuItem );
var mIndex : Integer;
Begin
  aMenuItem.OnMeasureItem:= doMeasureItem;
  aMenuItem.OnAdvancedDrawItem:= doAdvancedPaint;

  For mIndex:= 0 To aMenuItem.Count-1 Do
    AttachToMenuItem( aMenuItem.Items[mIndex] );
End;

Lolli -->