Alternativer Schriftendialog

[horsthorn]

@Frank

Ach ja. Setzt dein Programm die vorgegebenen Schriftgrössen (10, 12, 13,...), oder ermittelst du die Werte irgendwo her. Ich vermute, Ersteres.

Da auf der Oberfläche meines EU-Adressors Schriftgrößen > 30 nicht mehr angezeigt werden können, habe ich eine Listbox mit vorgegebenen Größen eingebaut. Der User kann hier aus den vorhandenen Größen wählen und sieht den Erfolg sofort in dem kleinen Vorschaufenster (wenn ich recht weiß, hast du doch eine 1.Version zum Testen bekommen oder ?)

Die Schrift-Optionen und Hintergrundfarbe werden auf die Listview.dll angewendet.

gross&=CREATE("LISTBOX",con_win&,"",180,65,50,100)
SetFont gross&,font0%
CLEARLIST
ADDSTRING(gross&,"10")
ADDSTRING(gross&,"12")
ADDSTRING(gross&,"14")
ADDSTRING(gross&,"16")
ADDSTRING(gross&,"18")
ADDSTRING(gross&,"20")
ADDSTRING(gross&,"22")
ADDSTRING(gross&,"24")
ADDSTRING(gross&,"26")
ADDSTRING(gross&,"28")
SELECTSTRING(gross&,-1,gross$)

[Frabbing]

Testversion war erfolgreich, ja. Jedes Detail weiss ich aber nicht mehr.

Gibt wohl keine sichere Methode an die verfügbaren Schriftgrössen zu gelangen. Mein Dialog testet alle Schriftgrössen aus und wenn sie erfolgreich vom DC angenommen wurde, wird sie in die Liste eingefügt. Das ist oft bei den meisten Grössen der Fall, weil das System unterscheidet zwischen logischen und physikalischen Schriftarten.

[Frabbing]

Hab doch noch eine Methode ausarbeiten können. Bitte mal neu laden.

[Jac de Lad]

Wieso steht da "Cancel" statt "Abbrechen"?

[horsthorn]

@Jac
Dann hätte er auch an Stelle von "OK" - "In Ordnung" schreiben müssen
Das ist "neudeutsch" ...
Frohes Fest

[Jac de Lad]

OK ist ja wirklich eingebürgert, aber Cancel...???

[Frabbing]

Ich ändere es gerne um in Abbrechen. Ich selber lese auch lieber deutsch als englisch. Danke für die Anregung!

[Andreas Miethe]

Hallo Frank,

hier nochmal der Hinweis auf Choosefont mit Hook.
Unter Windows7 werden im Dialog die Fonts anders dargestellt als in vorherigen Versionen und es werden noch andere Schniftschnitte angezeigt.
Da man per Hook den Dialog auf seine eigenen Bedürfnisse anpassen kann, ist der gut geeignet für Dein Vorhaben ( für Horst übrigens auch ) .

[Frabbing]

Hallo Andreas,

klasse Spielerei, sieht gut aus.

Wie schon gesagt, der Dialog von mir soll nicht den Systemdialog ersetzen, sondern nur in meinem Programm Shooter zum Einsatz kommen. Wollte ihn hier nur testen lassen, weil ich selber kein Vista installiert habe.
An Styles sind momentan nur Standard, Fett, Kursiv und Fettkursiv nötig - kann XProfans Use/Create-Font mit erweiterten Styles eigentlich schon umgehen?

Bislang benutzt Shooter zwei System-Dialoge, das wollte ich nun ändern. Ein weiterer Grund ist, dass mein Shooter-Bearbeitenfenster nicht aktualisiert wird, wenn ein Systemdialog aktiv ist, das gefällt mir nicht sonderlich. Darum werde ich für Shooter erstmal meinen Schriftartendialog verwenden.

Für spätere Anwendungen ist dein Code aber gut geeignet, ich kann mir jetzt schon einige Anwendungsmöglichkeiten vorstellen. Da ich selber ja schon Dialoge gehookt (Load/Save-Dialog, Messagebox) habe, weiss ich, wieviel Spass sowas macht.

Ein Problem ist mir noch aufgefallen in deinem Quellcode. Wenn das Texteingabefeld den Focus hat, wird die Textfarbe nicht geändert, wenn eine neue Farbe angeklickt wurde.
Die Farben generiere ich übrigens selber. Könntest du bei dir ja gerne einbauen, dann brauchst du kein Bild mitzugeben:

Clear bereich#
Long bereich#,0=0,$FFFFFF,$EEEEEE,$DDDDDD,$CCCCCC,$BBBBBB,$AAAAAA,$999999,$888888,$777777,$666666,$555555,$444444,$333333,$222222,$111111
Long bereich#,64=$220000,$440000,$660000,$880000,$aa0000,$cc0000,$ee0000,$ff0022,$ff0044,$ff0066,$ff0088,$ff00aa,$ff00cc,$ff00ee,$ff22ff,$ff44ff
Long bereich#,128=$ff66ff,$ff88ff,$ffaaff,$ffccff,$ffeeff
Long bereich#,148=$002200,$004400,$006600,$008800,$00aa00,$00cc00,$00ee00,$22ff00,$44ff00,$66ff00,$88ff00,$aaff00,$ccff00,$eeff00,$ffff22,$ffff44
Long bereich#,212=$ffff66,$ffff88,$ffffaa,$ffffcc,$ffffee
Long bereich#,232=$000022,$000044,$000066,$000088,$0000aa,$0000cc,$0000ee,$0022ff,$0044ff,$0066ff,$0088ff,$00aaff,$00ccff,$00eeff,$22ffff,$44ffff
Long bereich#,296=$66ffff,$88ffff,$aaffff,$ccffff,$eeffff
Long bereich#,316=$220022,$440044,$660066,$880088,$aa00aa,$cc00cc,$ee00ee,$222200,$444400,$666600,$888800,$aaaa00,$cccc00,$eeee00,$002222,$004444,$006666,$008888,$00aaaa,$00cccc,$00eeee
Long bereich#,400=$2200ee,$4400cc,$6600aa,$880088,$aa0066,$cc0044,$ee0022,$ee2200,$cc4400,$aa6600,$888800,$66aa00,$44cc00,$22ee00,$00ee22,$00cc44,$00aa66,$008888,$0066aa,$0044cc,$0022ee
Long bereich#,484=$ee00ee,$cc22cc,$aa44aa,$886688,$668866,$44aa44,$22cc22,$00ee00,$eeee00,$cccc22,$aaaa44,$888866,$666688,$4444aa,$2222cc,$0000ee,$00eeee,$22cccc,$44aaaa,$668888,$886666,$aa4444,$cc2222,$ee0000
Long bereich#,580=$228822,$448844,$668866,$888888,$aa88aa,$cc88cc,$ee88ee,$222288,$444488,$666688,$888888,$aaaa88,$cccc88,$eeee88,$882222,$884444,$886666,$888888,$88aaaa,$88cccc,$88eeee
Long bereich#,664=$2288ee,$4488cc,$6688aa,$888888,$aa8866,$cc8844,$ee8822,$ee2288,$cc4488,$aa6688,$888888,$66aa88,$44cc88,$22ee88,$88ee22,$88cc44,$88aa66,$888888,$8866aa,$8844cc,$8822ee
Long bereich#,748=$02468a,$2468ac,$468ace,$68ace0,$8ace02,$ace024,$ce0246,$e02468,$eca864,$ca8642,$a86420,$86420e,$6420ec

Sind 200 Farbwerte in 40 x 5.

[Andreas Miethe]

Zitat von Frabbing

Hallo Andreas,

klasse Spielerei, sieht gut aus.

An Styles sind momentan nur Standard, Fett, Kursiv und Fettkursiv nötig - kann XProfans Use/Create-Font mit erweiterten Styles eigentlich schon umgehen?

Danke.

Per Api - CreateFontInderect() geht es auf jeden Fall.
Noch ein Vorteil der Systemdialoge. An die benötigte Struktur kommt man mit einer Zeile Code ran

Zitat von Frabbing

Ein Problem ist mir noch aufgefallen in deinem Quellcode. Wenn das Texteingabefeld den Focus hat, wird die Textfarbe nicht geändert, wenn eine neue Farbe angeklickt wurde.

Kann man einfach in der Subclassing-Procedur des Farbfeldes (Proc EP ) mit Setfocus(wnd&) ändern. Habe ich einfach nur vergessen.
In der Hook-Prozedur habe ich das Ändern abgefangen, da sonst ein permanentes Flackern auftritt.

[horsthorn]

Auch ich habe den Dialog für mein Programm "EU-Adressor" angepasst.
Hier werden nur Schriftfont, Größe, fett oder nicht, Farbe und ganz wichtig Hintergrund geändert oder auch nicht.
Daher brauche ich keine anderen Optionen.

In der Hook-Prozedur habe ich das Ändern abgefangen, da sonst ein permanentes Flackern auftritt.

In meinem Code wird jede Änderung schon vor der Übernahme mit "Startpaint" in der Vorschau auf diesem Einstellungsdialog gezeigt. Kann begutachtet und danach entweder übernommen oder verworfen werden.

[Andreas Miethe]

Zitat von horsthorn

In meinem Code wird jede Änderung schon vor der Übernahme mit "Startpaint" in der Vorschau auf diesem Einstellungsdialog gezeigt. Kann begutachtet und danach entweder übernommen oder verworfen werden.

Hallo Horst,

bei meinen Code wird auch jede Änderung sofort im Edit-Feld angezeigt.
Die Textfarbe und auch die Hintergrundfarbe kann per Links- oder Rechtsklick gewählt werden.

[horsthorn]

@Andreas

Die Textfarbe und auch die Hintergrundfarbe kann per Links- oder Rechtsklick gewählt werden.

Das sind aber dann schon die "höheren Weihen" für den User.
Bei mir ist die ganze Sache auch für Einsteiger (und das Progrämmchen ist für solche gedacht) zu begreifen und zu bedienen

[Frabbing]

Die Textfarbe und auch die Hintergrundfarbe kann per Links- oder Rechtsklick gewählt werden.

Klasse! Den Rechtsklick hatte ich nicht mal ausprobiert, weil ich keine Funktion dort erwartet hatte.

[Frabbing]

Noch ein Vorteil der Systemdialoge. An die benötigte Struktur kommt man mit einer Zeile Code ran

Wohl wahr. Mit etwas API kann ich aber sehr einfach die Struktur von jedem gesetzen Font auslesen:

~GetObject(~GetCurrentObject(%hdc,~OBJ_FONT),60,logfont#)