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 bring you to the same post, in Dutch, as there is no translation for that post!
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;
...
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;
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.
