AlphaHints stopped working

This topic has 3 replies, 2 voices, and was last updated 7 years, 7 months ago by HeDiBo.

Viewing 3 posts - 1 through 3 (of 3 total)

Author

Posts
July 25, 2018 at 11:52 am #58237
HeDiBo
Participant
The problem occurs because this change in AcAlphaHints:

Code:

procedure TacCustomHintWindow.ActivateHint(Rect: TRect; const AHint: string);
{$IFNDEF ACHINTS}
var
w, h: integer;
p: TPoint;
{$ENDIF}
begin
{$IFNDEF ACHINTS}
if Assigned(Manager) and HandleAllocated then begin // This is changed
Manager.State := hsInit;

In my case, apparently HandleAllocated is false.
July 26, 2018 at 4:41 am #58239
Support
Keymaster
Thank you for the demo, I will fix it.
July 28, 2018 at 10:00 pm #58248
HeDiBo
Participant
'Support' wrote:

Thank you for the demo, I will fix it.

It works great again
Author

Posts

Viewing 3 posts - 1 through 3 (of 3 total)

You must be logged in to reply to this topic.