Alternativer Schriftendialog

[Frabbing]

Für Shooter bastle ich gerade ein anderes Dialogfenster, um die beiden vorhandenen Systemdialoge (Schriftauswahl und Texteingabe) dort der Einfachheit halber abzulösen. Wäre über Testberichte auf Systemen ab XP ganz glücklich.

http://frabbing.bplaced.net/Schriftarten.zip

[GAST-0815]

Bei mir sieht es so aus.Fett und Kursiv ist vertauscht, alles andere funzt.



Mfg.

[Frabbing]

Ah, danke für den Hinweis! Werde ich natürlich ändern.

[AHT]

Unter Vista nur kurz angeschmissen: Kann den obigen Fehler bestätigen, scheint sonst zu laufen.

[horsthorn]

Warum kann ich kein Bild hochladen ?

Fehlermeldung: 500 Internal Server Error

Frank:
unter Windows-7 auch der Fehler mit Fett + Kursiv !

[MaZz]

Scheint bis auf den schon angesprochenen Fehler (Fett/Kursiv) bestens zu laufen.

Gruß Matthias

[MaZz]

Scheint bis auf den schon angesprochenen Fehler (Fett/Kursiv) bestens zu laufen.

Gruß Matthias

[Frabbing]

Dank euch! Der Fehler ist noch drin, aber bei mir bereits ausgemerzt. Wenn ich eine neue Zip hochlade, ist er behoben.

[THFR]

Als unglücklich empfinde ich: wird ein neuer Font gewählt, werden alle anderen Einstellungen verworfen.

Gruß Thomas

PS. Hatte mich doch glatt vertan.

[Frabbing]

Als unglücklich empfinde ich: wird ein neuer Font gewählt, werden alle anderen Einstellungen verworfen.

Gruß Thomas

PS. Hatte mich doch glatt vertan.

Nein nein, du hast ja recht. Hab es jetzt so abgeändert, dass immer versucht wird, die Einstellung zu halten.

[Jac de Lad]

@Frank: Warum positionierst du die Buttons oben und nicht unten drunter (nebeneinander) und warum sind die unterschiedlich groß?

[Andreas Miethe]

Hallo Frank,

der Choosefont-Dialog lässt sich ganz prima per Hook anpassen.
Dann musst Du Dir keine Gedanken um die Fonts usw. machen.



Beispiel :

$H Windows.ph
$H Messages.ph


DEF &CF_APPLY $200
DEF &CF_SCREENFONTS 1
DEF &CF_PRINTERFONTS 2
DEF &CF_BOTH 3
DEF &CF_EFFECTS $100
DEF &CF_ENABLEHOOK $8
DEF &CF_INITTOLOGFONTSTRUCT $40
DEF &CF_LIMITSIZE $2000
DEF &CF_SHOWHELP $4

'Konstanten für Font-Dialog-Handles
'###########################################
DEF &Control_Effects 1072
DEF &Control_Effects_Color_Strikeout 1040
DEF &Control_Effects_Color_Underline 1041
DEF &Control_Effects_Color_Static 1091
DEF &Control_Effects_Color_Dropdown 1139
DEF &Control_Script_Static 1094
DEF &Control_Script_Dropdown 1140
DEF &Control_Sample 1073
DEF &Control_S_Static 1092
DEF &Control_Fontname_Static 1088
DEF &Control_Fontname_Combo 1136
DEF &Control_Fontstyle_Static 1089
DEF &Control_Fontstyle_Combo 1137
DEF &Control_Fontweight_Static 1090
DEF &Control_Fontweight_Combo 1138
DEF &Control_Button_Ok 1
DEF &Control_Button_Cancel 2
DEF &Control_Button_Apply 1026
DEF &Control_Button_Help 1038
'###########################################

Struct LOGFONT =  lfHeight&,lfWidth&,lfEscapement&,lfOrientation&,lfWeight&,\
lfItalic#(1),lfUnderline#(1),lfStrikeOut#(1),lfCharSet#(1),lfOutPrecision#(1),\
lfClipPrecision#(1),lfQuality#(1),lfPitchAndFamily#(1),lfFaceName$(32)

Struct CHOOSEFONT = lStructSize&,hwndOwner&,hDC&,lpLogFont&,iPointSize&,Flags&,\
rgbColors&,lCustData&,lpfnHook&,lpTemplateName&,hInstance&,\
lpszStyle&,nFontType%,MISSING_ALIGNMENT%,nSizeMin&,nSizeMax&

Proc CFHookProc
  Parameters hdlg&,uiMsg&,wParam&,lParam&
  'hier wird der Font-Dialog manipuliert
  Var Result& = 0
  Select uiMsg&
    Caseof ~WM_INITDIALOG
    'Fenster vergrössern
    ~Movewindow(hdlg&,0,0,800,400,1)
    'ein Icon in den Dialog malen
    Create("Icon",hdlg&,"A",370,140)
    
    ~SetWindowText(hdlg&,"Der Font-Dialog wurde manipuliert")
    Result& = 1
    Caseof ~WM_COMMAND
    Select LoWord(wParam&)
      Caseof &Control_Button_Help
      'Hilfe-Button wurde gedrückt
      MessageBox("Hier gibt es keine Hilfe","Info",~MB_ICONINFORMATION | ~MB_SYSTEMMODAL)
      Result& = 1
      CaseOf &Control_Button_Apply
      'Übernehmen-Button wurde gedrückt
      MessageBox("Nicht eingebaut","Info",~MB_ICONINFORMATION | ~MB_SYSTEMMODAL)
      Result& = 1
      Caseof &Control_Button_Ok
      'Übernehmen-Button wurde gedrückt
      ~PostMessage(hdlg&,~WM_COMMAND,~IDABORT,0)
      Result& = 1
      Caseof &Control_Button_Cancel
      'Abbrechen-Button wurde gedrückt
      ~PostMessage(hdlg&,~WM_COMMAND,~IDABORT,0)
      Result& = 1
    EndSelect
  EndSelect
  Return Result&
EndProc

Proc MyChooseFont
  Set("FastMode", 1)
  Var lf# = New(LOGFONT)
  ';Strukturen mit ein paar Voreinstellugnen füllen
  lf#.lfHeight& = 1000/75 'Fonthoehe = 10 ist voreingestellt
  lf#.lfFaceName$ = "Arial"'Arial ist voreingestellt
  
  Var cf# = New(CHOOSEFONT)
  cf#.lStructSize& = SizeOf(cf#)
  cf#.lpLogFont& = lf#
  cf#.flags& = &CF_BOTH | &CF_INITTOLOGFONTSTRUCT | &CF_LIMITSIZE | &CF_ENABLEHOOK | &CF_EFFECTS | &CF_SHOWHELP | &CF_APPLY	
  cf#.rgbColors& = RGB(255,0,0)'Farbe vorgeben
  cf#.nSizeMin& = 8'minimale Fonthoehe
  cf#.nSizeMax& = 72'maximale Fonthoehe
  cf#.lpfnHook& = ProcAddr("CFHookProc",4)'Hook-Procedur setzen
  ';Dialog aufrufen
  External("comdlg32.dll","ChooseFontA",cf#)
  Dispose lf#
  Dispose cf#
  Set("FastMode", 0)
EndProc

cls
MyChoosefont()
waitinput

[Frabbing]

@Frank: Warum positionierst du die Buttons oben und nicht unten drunter (nebeneinander) und warum sind die unterschiedlich groß?

Ich mag es so. Und es passt gut zum anderen Dialogfenster, das ist ähnlich aufgebaut.

[horsthorn]

@Frank
Da ich aber den Hintergrund auch färben will, klappt das mit deinem Vorschlag so nicht

So geht es bei mir:

[Frabbing]

Horst, das wird ja ein Dialogfenster für mein Screenshot-Tool "Shooter". Hintergrundfarbe der Schrift wird nicht benötigt.
Ich wollte gerne alle benötigten Sachen in einem Fenster haben.

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