Windows und Fonts

[himitsu]

n'abend,

Einige kennen doch bestimmt noch die alten Windowse vor XP,
wo Vieles im Windows ein Font war?

[Win] + Charmap -> Marlett
Die Button-Icons oben rechts in der Titleleiste, die ScrollBar-Buttons, der DropDown-/ComboBox-Button usw.

oder "Segoe Fluent Icons",

oder etwas, wovon ich es garnicht gedacht hatte

Tja, hier mal ein Spaß im Windows 10 und 11.

Delphi-Quellcode:

// 2x TLabel und ein TTimer

procedure TForm2.FormCreate(Sender: TObject);
begin
  AddFontResourceEx(PChar('C:\Windows\Boot\Fonts\segoe_slboot.ttf'), FR_PRIVATE, nil);
  Label1.Font.Name := 'Segoe Boot Semilight';
  Label2.Font.Name := 'Segoe Boot Semilight';
  Label1.Font.Size := 50;
  Label2.Font.Size := 50;
  Label1.Transparent := False;
  Label2.Transparent := False;
  Self.DoubleBuffered := True;
end;

// Interval = 25
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag := Timer1.Tag + 1;
  Label1.Caption := Char($E052 + Timer1.Tag mod ($E0CB-$E052+1));  // Windows 10+
  Label2.Caption := Char($E100 + Timer1.Tag mod ($E176-$E100+1));  // Windows 11
end;

https://www.youtube.com/shorts/LNIVwoDtwX0