geänderter Font bei Rückkehr in Dialog

[Martin_K]

Wenn ich von einem Dialogfenster aus ein neues Window öffne und da dann mit diversen Usefonts geschrieben und gemalt habe, dieses Window wieder schließe und in das aufrufende Dialogfenster zurückkehre, verhagelt es mir sämtliche Beschriftungen mit anderen Fontgrößen. Wie vermeide ich sowas?

[Frabbing]

Benutzt du SetDialogFont?

Die sicherste Methode ist und bleibt, jedem Control seinen Font mit SetFont zuzuweisen:

font&=Create("Font","Verdana",10,0,0,0,0)

Var dec& = Create("Button",%hwnd,"DEC",16,188,24,18)
Var hex& = Create("Button",%hwnd,"HEX",48,188,24,18)
Var oct& = Create("Button",%hwnd,"OCT",80,188,24,18)
Var bin& = Create("Button",%hwnd,"BIN",112,188,24,18)

SetFont dec&,font&
SetFont hex&,font&
SetFont oct&,font&
SetFont bin&,font&

Du kannst natürlich beliebig viele Fonts erstellen, sodass deine Controls auch verschiedene Fonts benutzen können. Nicht vergessen, die Fonts nachher wieder freizugeben mit:

DeleteObject font&

[Martin_K]

Setdialogfont benutze ich hier und dort, aber der echte Unterschied zwischen den verschiedenen Möglichkeiten, Fonts zuzuweisen, ist mir noch nicht ganz aufgegangen - im Moment noch eher try and error

[Frabbing]

Dann probier mal für jedes Dialogfenster und Hauptfenster nach dem Erstellen, aber vor dem Erstellen der Childcontrols:

Usefont "Verdana",13,0,0,0,0
SetDialogFont 1

Font natürlich deinen Bedürfnissen anpassen.
Wenn das noch nicht ausreicht (müsste aber eigentlich), jedem Controls mit SetFont einen Font zuweisen. Das ist absolut narrensicher.

[Martin_K]

Ich definiere am Programmanfang meinen Font

font& = @Create("Font","Tahoma",13,0,0,0,0)

und vor dem Erstellen der Controls in den erzeugten Fenstern setze ich

SetDialogfont font&

dann gehts. Mit dem SetdialogFont 1 kam ich regelmässig ins Hakeln, aber mit dem Handle passts. Thanx.

[horsthorn]

Hier mal eine "narrensichere" Möglichkeit:

DECLARE font0%,font1%,win1&,txt1&,edit1&

font0%=CREATE("FONT","ARIAL",16,6,0,0,0)
font1%=CREATE("FONT","ARIAL",20,10,1,0,0)

win1&=CREATE("WINDOW",%hwnd,"",100,50,300,200)
txt1&=CREATE("TEXT",win1&,"Das ist ein Beispiel",10,10,300,20)
SetFont txt1&,font0%
edit1&=CREATE("EDIT",win1&,"",10,100,200,20)
SetFont edit1&,font1%

Es ist ein bischen mehr Schreibarbeit, wenn du aber die Font-Declarationen zu Anfang deines Codes machst, kannst du diese Fonts überall setzen und sie ändern sich nichts.
Auch hier natürlich mit

DeleteObject font0%

alles wieder entfernen