AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Windows und Fonts

Ein Thema von himitsu · begonnen am 24. Mär 2024 · letzter Beitrag vom 4. Apr 2024
Antwort Antwort
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#1

Windows und Fonts

  Alt 24. Mär 2024, 20:56
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
$2B or not $2B

Geändert von himitsu (24. Mär 2024 um 21:08 Uhr)
  Mit Zitat antworten Zitat
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
442 Beiträge
 
Delphi 12 Athens
 
#2

AW: Windows und Fonts

  Alt 25. Mär 2024, 08:03
MS: So bekommt man die Festplatte auch voll
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#3

AW: Windows und Fonts

  Alt 25. Mär 2024, 08:36
Wieso?
Das sind je knapp 55 kB für beide Animationen?
Als 256-Farb-GIF wären sie auch nicht kleiner und auch als WMF oder SVG würden sie ebenfalls so einiges an Platz benötigen, abgesehn vom zusätzlichen Code um sie anzuzeigen.

Auch im Marlett sind es keine 700 Byte pro Grafik.
Damals z.B. auch als Icon für den Start-Button.




Ja, man könnte das auch Live berechnen und malten, am Besten noch mit GPU-Unterstüzung für eine schöne Kantenglättung.
$2B or not $2B

Geändert von himitsu (25. Mär 2024 um 08:53 Uhr)
  Mit Zitat antworten Zitat
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
442 Beiträge
 
Delphi 12 Athens
 
#4

AW: Windows und Fonts

  Alt 25. Mär 2024, 10:52
Ja, man könnte das auch Live berechnen und malten, am Besten noch mit GPU-Unterstüzung für eine schöne Kantenglättung.
Daran hatte ich gedacht...
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#5

AW: Windows und Fonts

  Alt 25. Mär 2024, 12:40
Aber darum geht es auch.

Selbst das Einstellungen-Fenster im Windows 11 wird inzwischen von der GPU gerendert (letztens im Taskmanager bemerkt), so wie z.B. auch das FMX,
während das GDI, die VCL und der BootScreen auch ohne GPU-Unterstützung über die CPU gerendert werden können -> einfach nur billig in den Ausgabepuffer des Grafiktreibers schreiben.
$2B or not $2B
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Windows und Fonts

  Alt 25. Mär 2024, 13:19
Ja, man könnte das auch Live berechnen und malten, am Besten noch mit GPU-Unterstüzung für eine schöne Kantenglättung.
VCL/FMX + Skia, high-res malen, downscale, fertig.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.800 Beiträge
 
Delphi 12 Athens
 
#7

AW: Windows und Fonts

  Alt 26. Mär 2024, 11:02
Aber bei weitem nicht so performant und gleichzeitig Resourcen schonend. Font Animation ist schon sehr schnell und leistungsfähig. Aber auch unflexibel.
Oliver
Geändert von Sherlock (Morgen um 16:78 Uhr) Grund: Weil ich es kann
  Mit Zitat antworten Zitat
Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
691 Beiträge
 
Delphi 10.3 Rio
 
#8

AW: Windows und Fonts

  Alt 26. Mär 2024, 12:13
Das gabs schon zu DOS Zeiten : \-/| da hat man mit den Zeichen, ins gleiche Feld gezeichnet, Leute warten lassen
Stefan
Nur die Besten sterben jung
A constant is a constant until it change.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#9

AW: Windows und Fonts

  Alt 26. Mär 2024, 12:41
z.B. mehrere Farben sind in einem Font normal nicht so möglich.
und natürlich muß auch erstmal ein Font erstellt werden, welcher die Grafiken enthält, aber als GIF/WMF/SVG muß man das ja ebenfalls,
und live die Grafik berechnen, da muß man das Berechnen/Zeichnen vor Ort erledigen.

DOS: Man konnte sogar ein paar Zeichen programmieren, also die Pixel der Zeichen mit 'ner Grafik füllen und dann in der Console grafisch "Text" anzeigen.
$2B or not $2B
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#10

AW: Windows und Fonts

  Alt 4. Apr 2024, 17:00
PS: In der Übersetzung fällt schnell auf, dass viele der kleinen Icons in der englischen DP eigentlich Fonts sind.

https://en.delphipraxis.net/topic/11...age-component/
https://en-delphipraxis-net.translat..._x_tr_pto=wapp
$2B or not $2B
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz