Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Voor een project waar ik mee bezig was moest ik het font vergroten van de hint windows (je weet wel; die gele blokjes met hints).
De volgende eenvoudig truc doet dit:
...
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;
...
