Autor Beitrag
gdvLive
Hält's aus hier
Beiträge: 17



BeitragVerfasst: Di 15.01.08 10:26 
Servus,

wenn die Frage nervt/einfach ist, entschuldige ich mich im Voraus - aber ich hab überall gesucht und nixx gefunden :oops:

Es geht darum, dass ich für ein kleines Malprogramm mit Ebenen eine Toolleiste gestalten möchte, bei der ich das Look&Feel vom OS übernehmen möchte. Soll heißen, ich benutze die Originalfarben von ActiveCaption, etc. Um dem ganzen aber noch das designtechnische Sahnehäubchen aufzusetzen, :lol: wollte ich die Schriftart der Titelleiste (ActiveCaption, oder wie auch immer der Fachbegriff lautet) auslesen und dann in dem entsprechenden Label einfügen.

ausblenden Delphi-Quelltext
1:
Label1.Font.Name := Form1.Font.Name; // geht ned, weil Font.Name ja Tahoma (bzw. MS Sans Serif) ist...					


Wie funktioniert das?

mfg Markus


€dit: Ich sollt vll noch erwähnen, dass ich bei mir die Schriftart der Titelleiste verändert habe - also ich hab nicht das klassische Tahoma (was ja Standard ab 2000 is), sondern ne andere Font - daher auch das Problem ^^
giantdwarf
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 35


Delphi 5, Delphi 2006 Prof, Delphi 2009
BeitragVerfasst: Di 15.01.08 12:25 
Ich verstehe Deine Frage nicht ganz. Möchtest Du den Font dem Label zuweisen oder über das Label anzeigen? Das wäre dann:
ausblenden Delphi-Quelltext
1:
label1.caption := Form1.Font.Name;					
Lannes
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2352
Erhaltene Danke: 4

Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
BeitragVerfasst: Di 15.01.08 12:30 
Hallo,

die Schriftart kann man mit Hilfe der WinApi ermitteln.

ein paar Stichworte:
SystemParametersInfo
SPI_GETNONCLIENTMETRICS
CreateFontIndirect
lfCaptionFont

noch ein Link:
[url=delphi.newswhat.com/...sgroups.borland.com]borland.public.delphi.nativeapi.win32: Window caption font[/url]

Ps.: Form.Font ist nicht Titel-Font

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )


Zuletzt bearbeitet von Lannes am Di 15.01.08 12:38, insgesamt 2-mal bearbeitet
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Di 15.01.08 12:37 
user profile iconLannes hat folgendes geschrieben:
die Schriftart kann man mit Hilfe der WinApi ermitteln.

Das geht aber nur, wenn die Schrift in der Systemsteuerung global für alle Fenster geändert wurde. Aus seinem Postinmg wird aber nicht klar, ob dies der Fall ist, oder ob er nur für sein Fenster die Schrift geändert hat.
gdvLive Threadstarter
Hält's aus hier
Beiträge: 17



BeitragVerfasst: Di 15.01.08 12:54 
Erstmal danke für eure Antworten
user profile iconLannes hat folgendes geschrieben:
Hallo,

die Schriftart kann man mit Hilfe der WinApi ermitteln.

ein paar Stichworte:
SystemParametersInfo
SPI_GETNONCLIENTMETRICS
CreateFontIndirect
lfCaptionFont

noch ein Link:
[url=delphi.newswhat.com/...sgroups.borland.com]borland.public.delphi.nativeapi.win32: Window caption font[/url]

Das probiere ich gleich mal aus (die Seite ist bei mir nicht freigeschaltet ^^)

user profile iconLannes hat folgendes geschrieben:
Ps.: Form.Font ist nicht Titel-Font

Weiß ich, ich wollte nur vermeiden, dass Missverständnisse auftreten (was aber doch nicht ganz geklappt hat, siehe giantdwarf ^^)


user profile iconLuckie hat folgendes geschrieben:
user profile iconLannes hat folgendes geschrieben:
die Schriftart kann man mit Hilfe der WinApi ermitteln.

Das geht aber nur, wenn die Schrift in der Systemsteuerung global für alle Fenster geändert wurde. Aus seinem Postinmg wird aber nicht klar, ob dies der Fall ist, oder ob er nur für sein Fenster die Schrift geändert hat.

Ich habe bei meinem Programm nicht die Schriftart geändert, es geht um die globale Schriftart, die bei [Windows->Syssteuerung->Anzeige->Darstellung->Erweitert->Titelleiste des aktiven Fensters] eingestellt wurde. Abgesehen davon weiß ich nicht mal, wie das gehen würde :roll:
gdvLive Threadstarter
Hält's aus hier
Beiträge: 17



BeitragVerfasst: Di 15.01.08 14:00 
user profile iconLannes hat folgendes geschrieben:
[url=delphi.newswhat.com/...sgroups.borland.com]borland.public.delphi.nativeapi.win32: Window caption font[/url]

Die GetCaptionFont hat geholfen und funktioniert wunderbar. :zustimm:

Vielen Dank für eure Hilfe!
Lannes
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2352
Erhaltene Danke: 4

Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
BeitragVerfasst: Di 15.01.08 14:27 
Hallo,
user profile icongdvLive hat folgendes geschrieben:
Erstmal danke für eure Antworten
user profile iconLannes hat folgendes geschrieben:
noch ein Link:
[url=delphi.newswhat.com/...sgroups.borland.com]borland.public.delphi.nativeapi.win32: Window caption font[/url]

Das probiere ich gleich mal aus (die Seite ist bei mir nicht freigeschaltet ^^)
hab sie Dir mal als Anlage hinzugefügt.

//Edit: warum hab ich Deinen letzten Post nicht mitbekommen :gruebel:
Einloggen, um Attachments anzusehen!
_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
gdvLive Threadstarter
Hält's aus hier
Beiträge: 17



BeitragVerfasst: Di 15.01.08 15:58 
user profile iconLannes hat folgendes geschrieben:
//Edit: warum hab ich Deinen letzten Post nicht mitbekommen :gruebel:

Keine Ahnung, aber danke nochmal für die Extra-Mühe - ich musste nur kurz an den SurfPC, da kann man dann überall rauf
However, falls in Zukunft jmd mal das Thema brauchen sollte, haben wir ja alle nötigsten Informationen vorbereitet :D 8)