When does Menu OnDrawItem fire?

[seany]

I have already asked a similar question. But, I was wondering, when does the ondrawItem event fire?

Here is my code:

Code: Pascal  [Select][+][-]

1.  
2. procedure TForm1.MainMenu1DrawItem(Sender: TObject; ACanvas: TCanvas;
3.   ARect: TRect; AState: TOwnerDrawState);
4. begin
5.   showMessage('1');
6.   ACanvas.Brush.Color := clBlack;
7.   ACanvas.FillRect(ARect);
8.   ACanvas.Font.Color := clYellow;
9.   ACanvas.TextOut(ARect.Left, ARect.Top, 'TEST');
10. end;
11.  
12. procedure TForm1.MenuItem1DrawItem(Sender: TObject; ACanvas: TCanvas;
13.   ARect: TRect; AState: TOwnerDrawState);
14. var
15.   s: string;
16. begin
17.   showMessage('2');
18.  
19.   ACanvas.Brush.Color := clBlack;
20.   ACanvas.FillRect(ARect);
21.   ACanvas.Font.Color := clYellow;
22.   ACanvas.TextOut(ARect.Left, ARect.Top, TMenuItem(Sender).Caption);
23.  
24.  
25. end;      
26.  

It never seems to fire. I never quite get the showmessage popups.
I have made the menu ownerdrable in the form designer

I also thought to call the function TForm1.MenuItem1DrawItem from the main form load function. But what arguments can I pass there?


Project attached.

Lazarus 2.2.4 (rev Unknown) FPC 3.2.2 x86_64-linux-qt5

[jamie]

a Widget limitation ?

[Slawek]

I looked at the source code and no procedure seems to call OnDrawItem, either in TMenu or TMenuItem.

[dsiders]

I looked at the source code and no procedure seems to call OnDrawItem, either in TMenu or TMenuItem.

That's not correct.  See TMenuItem.DoDrawItem.

[Sieben]

Did you try setting OwnerDraw to True for your menu to invoke the item's OnDrawItem?

[seany]

Did you try setting OwnerDraw to True for your menu to invoke the item's OnDrawItem?

Yes, of course

[seany]

I looked at the source code and no procedure seems to call OnDrawItem, either in TMenu or TMenuItem.

That's not correct.  See TMenuItem.DoDrawItem.

Is DoDrawItem een defined for Linux?

The only example i can find is this:

https://fossies.org/linux/lazarus/lcl/interfaces/win32/win32wsmenus.pp

This page does not show how to call it:

https://lazarus-ccr.sourceforge.io/docs/lcl/menus/tmenuitem.dodrawitem.html

As I said above, I am on Lazarus 2.2.4 (rev Unknown) FPC 3.2.2 x86_64-linux-qt5

[dsiders]

I looked at the source code and no procedure seems to call OnDrawItem, either in TMenu or TMenuItem.

That's not correct.  See TMenuItem.DoDrawItem.

Is DoDrawItem een defined for Linux?

The only example i can find is this:

https://fossies.org/linux/lazarus/lcl/interfaces/win32/win32wsmenus.pp

This page does not show how to call it:

https://lazarus-ccr.sourceforge.io/docs/lcl/menus/tmenuitem.dodrawitem.html

As I said above, I am on Lazarus 2.2.4 (rev Unknown) FPC 3.2.2 x86_64-linux-qt5

I overlooked that detail. My bad.