Setting font in THintWindow

[Pascal]

Hello,

i derived a class from THintWindow and changed the Canvas.Font in it's Constructor. The Constructor gets called but the apperance didn't change. Even Changing the color makes no difference. What am i doing wrong here?

Code: [Select]

  TsusHintWindow = class(THintWindow)
    constructor Create(AOwner: TComponent); override;
  end;


Code: [Select]

constructor TsusHintWindow.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  with Canvas.Font do begin
    Name := 'Courier New';
    Size := 10;
  end;
end;


Code: [Select]

procedure TEditorFile.ShowHint(Sender: TObject; HintInfo: PHintInfo);
begin
  HintInfo^.Hint := '----|----1----|----2----|----3'+chr(10)+'abcdefghijklmnopqrsyvw';
  HintInfo^.HintWindowClass := TsusHintWindow;
end;


[howardpc]

What is the declaration for TEditorFile?

[Pascal]

TSynEdit.OnShowHint is set to TEditorFile.ShowHint. So this function is
an event funtion and the type TEditorFile doesn't have any influence.

[howardpc]

It seems you have to change the hintwindow Color from its default of clInfoBk, otherwise painting is done via themes and the font settings are ignored. This works for me (Win 7).

Code: [Select]

constructor TsusHintWindow.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Font.Name:='Courier New';
  Font.Size:=12;
end;

procedure TForm1.SynEdit1ShowHint(Sender: TObject; HintInfo: PHintInfo);
begin
  HintInfo^.HintWindowClass:=TsusHintWindow;
  HintInfo^.HintColor:=clMoneyGreen;
  HintInfo^.HideTimeout:=5000;
  HintInfo^.HintStr:='----|----1----|----2----|----3'+chr(10)+'abcdefghijklmnopqrsyvw';
end;


[JuhaManninen]

Version of Lazarus?
Is this a regression?

[Pascal]

howardpc,

this works! Thanks.
I've seen the themes routines but i've changed the wrong color, so no effect there!

[howardpc]

Version of Lazarus?
Is this a regression?

No, it's clearly a designed feature. The trunk version of UseThemes (a boolean called in THintWindow.Paint) is

Code: [Select]

function THintWindow.UseThemes: Boolean;
begin
  Result := (Color = clInfoBk) or (Color = clDefault);
end; 
It has been this way for ages, I presume since it was first written.

[JuhaManninen]

Code: [Select]

function THintWindow.UseThemes: Boolean;
begin
  Result := (Color = clInfoBk) or (Color = clDefault);
end; 


Ok, right. It is not very intuitive but I guess it is needed for Delphi compatibility.