Page 1 of 1
Forum

Welcome to the Tweaking4All community forums!
When participating, please keep the Forum Rules in mind!

Topics for particular software or systems: Start your topic link with the name of the application or system.
For example “MacOS X – Your question“, or “MS Word – Your Tip or Trick“.

Please note that switching to another language when reading a post will not work!





Share:
Notifications
Clear all

Delphi – How to change the font of a hint window  

  RSS

Hans
 Hans
(@hans)
Noble Member Admin
Joined: 7 years ago
Posts: 1266
July 14, 2013 11:51 AM  

Working on a little project, I needed to increase the font size of the font of hint windows (you know; those yellow boxes with hints).
This is how I managed to get it to work:

...
Type
TMyHintWindow = class(THintWindow)
constructor Create(AOwner: TComponent); override;
end;
...
constructor TMyHintWindow.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
with Canvas.Font do
begin
Name := 'Arial';
Size := Size + 3;
end;
end;
...
procedure TFrom1.FormCreate(Sender: TObject);
begin
...
HintWindowClass := TMyHintWindow;
Application.ShowHint := False;
Application.ShowHint := True;
...

ReplyQuote
benstadler
(@benstadler)
New Member
Joined: 5 years ago
Posts: 0
July 24, 2015 4:00 PM  

Is there anywhere to alter or customize this portion below? Im not familiar enough with this stuff, but I have someone from xxxxx, working on it.

    Name := 'Arial';    Size := Size + 3;

ReplyQuote
Hans
 Hans
(@hans)
Noble Member Admin
Joined: 7 years ago
Posts: 1266
July 24, 2015 10:20 PM  

I'm not sure what you mean with "altering" that portion ...

Since a link has been placed in your post, I for now assume this is spam.
If no reply follows in the next few days, this message will be removed and marked as such.


ReplyQuote
Share: