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