XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Fontauswahldialog erstellen et abfragen
Def @Choosefont(1) ! COMDLG32.DLL,ChooseFontA
Déclarer Choosefont#,Logfont#,Buf#,Buf&,Fett%,Kursiv%,Unterstrichen%
Déclarer Font&
Settruecolor 1
Windowstyle 31
Windowtitle Fontauswahldialog
Fenêtre 0,0-640,440
Faible Logfont#,60
Faible Choosefont#,60
Faible Buf#,32
Claire Buf#
String Buf#,0=Standard
Claire Choosefont#
Long Choosefont#,0=60
Long Choosefont#,4=%Hwnd
Long Choosefont#,12=Logfont#
Long Choosefont#,20=$800 | $20000 | $400 | $80 | $100 | $40000 | $1 | $40 + $800000
Long Choosefont#,44=Buf#
Laisser Buf&=Buf#
Claire Logfont#
Long Logfont#,0=20
Long Logfont#,4=0
Long Logfont#,12=200
Long Logfont#,16=400
Byte Logfont#,20=1
Byte Logfont#,26=1
String Logfont#,28=Times New Roman
@Choosefont(Choosefont#)

Si @Instr(KURSIV,@Upper$(@String$(Buf#,0)))>0

    Laisser Kursiv%=1

Endif

Si @Instr(FETT,@Upper$(@String$(Buf#,0)))>0

    Laisser Fett%=1

Endif

Si @Byte(Logfont#,21)=1

    Laisser Unterstrichen%=1

Endif

Si @Byte(Logfont#,22)=1

    @Messagebox(Durchstreichen veux je aujourd'hui pas!,Hinweis,64)

Endif

Addstring Font=+@String$(Logfont#,28)
Addstring Hauteur=+@Str$(@Long(Logfont#,0))
Addstring Breite=+@Str$(@Long(Logfont#,4))
Addstring Fett=+@Str$(Fett%)
Addstring Kursiv=+@Str$(Kursiv%)
Addstring Unterstrichen=+@Str$(Unterstrichen%)
Addstring la couleur=+@Str$(@Long(Choosefont#,24))
Usefont @String$(Logfont#,28),@Abs(@Long(Logfont#,0)),@Abs(@Long(Logfont#,4)),Fett%,Kursiv%,Unterstrichen%
Textcolor @Long(Choosefont#,24),@Rgb(255,255,255)
Drawtext 0,0,allô
@Listbox$(cela wurde gewählt:,1)
Dispose Logfont#
Dispose Choosefont#
Dispose Buf#

Tandis que 0=0

    Waitinput

Wend