Daarom gebruik ik:
In mijn Mainform:
Delphi Code:
StandaardFont.Name := Screen.IconFont.Name; // dit is de systeemfont
StandaardFont.Size := Screen.IconFont.Size;
// e.v. StandaardFont uit instellingen lezen indien gebruiker een andere font wil
Application.DefaultFont.Name := StandaardFont.Name; // is dit nodig ?
Application.DefaultFont.Size := StandaardFont.Size; // is dit nodig ?
Screen.MessageFont.Name := StandaardFont.Name;
Screen.MessageFont.Size := StandaardFont.Size;
Screen.MenuFont.Name := StandaardFont.Name;
Screen.MenuFont.Size := StandaardFont.Size;
Self.Font.Name := StandaardFont.Name; // dit is dus ook de Application.MainForm.Font
Self.Font.Size := StandaardFont.Size;
En in al mijn forms (via een inherited form):
Delphi Code:
if not Scaled then
begin
Font := StandaardFont; // bij not scaled altijd Fnt.Size
end
else
begin
Font.Name := StandaardFont.Name; // altijd fontface pakken
end;
Op die manier heb ik altijd dezelfde font die het besturingssysteem gebruikt. Dit is in de instellingen te wijzigen in een font die de gebruiker eventueel wil. Zo kan ik ook een Comic Sans 30pt instellen (wat er natuurlijk niet uitziet ).
Bookmarks