Změna fontu bublinkové nápovědy

V našem seriálu už jsme si kdysi ukazovali, že lze celkem snadno změnit většinu parametrů bublinkové nápovědy (Hint), jako je barva podkladu či jednotlivé časové intervaly, kdy se nápověda objeví. Poněkud jsme však zapomněli na samotný text nápovědy, takže si dnes ukážeme, jak změnit jeho font a velikost. Vytvoříme si na to vlastní proceduru, kterou poté použijeme v události OnCreate hlavního formuláře (nebo formuláře, ve kterém budete tento "vylepšený" hint chtít použít). Zde je tedy příslušný kód:
type
TNasHint = class(THintWindow)
constructor Create(AOwner: TComponent); override;
end;

.
.
.

constructor TNasHint.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
with Canvas.Font do
begin
Name := 'Verdana';
Size := Size + 15;
Style := [fsBold, fsItalic];
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
HintWindowClass := TMyHintWindow;
end;