Popupmenu show hint on item

[AlistairG]

Hi I have hints defined, but when mouseover item the hint is not shown in Ubuntu.
Any ideas thanks.
Alistair.

[Blaazen]

Do you have:

ParentShowHint:=False;
ShowHint:=True;
Hint:='My hint';

This works on Kubuntu (Qt).

EDIT: Or did you mean hint over MenuItem. It seems does not work here too.

[typo]

Nor here.

Lazarus 0.9.29 r28656 FPC 2.5.1 i386-win32-win32/win64

[AlistairG]

EDIT: Or did you mean hint over MenuItem. It seems does not work here too.

Exactly. I understood that Linux did not do hints so well, but if ur using Windows and its not showing hints then ????

[typo]

Then you could report it: http://bugs.freepascal.org/view_all_bug_page.php?project_id=1

[DirkS]

EDIT: Or did you mean hint over MenuItem. It seems does not work here too.

Exactly. I understood that Linux did not do hints so well, but if ur using Windows and its not showing hints then ????

I thought that Win does not show popup hints for menu items by design.

Gr.
Dirk.

[AlistairG]

Another thing which is Delphi related popupmenu is if you enter a '-' in the caption property it displays the caption as a divider.
Is there no such thing in Lazarus/FP?
Tks,
Al.

[typo]

Yes.

[AlistairG]

I am now showing application hints which include popupmenu as follows:

in formcreate:
Application.OnHint := @ShowHint;

procedure TmainForm.ShowHint(Sender: TObject);
var hintstr:string;
begin
try
hintstr:= GetLongHint(Tapplication(sender).Hint);
if hintstr<>'' then Showmessage(hintstr);
except
on e: Exception do
ShowMessage(e.ClassName);
end;
end;

Unfortunately, its throwing an access violation, which I havent been able to sus so far.

[AlistairG]

If I get rid of the showmessage (which interferes with messaging) the error above goes duh!

So to get hints all you need is above code and statusbar or balloonhints to replace the showmessage - that works.
Still doesnt sort out why the hints dont work on popupmenu.
Cheers,
Alistair.

procedure TmainForm.ShowHint(Sender: TObject);
var hintstr:string;
begin
try
hintstr:= GetLongHint(application.hint);
if hintstr<>'' then
begin
trayicon1.BalloonHint:=hintstr;
trayicon1.ShowBalloonHint;
end;
except
on e: Exception do
ShowMessage(e.ClassName);
end;
end;