Graphics 320,480,0,2

;--> Konstanten für MessageBox
Const EPS_OK               = 0
Const EPS_OKCANCEL         = 1
Const EPS_ABORTRETRYIGNORE = 2
Const EPS_YESNOCANCEL      = 3
Const EPS_YESNO            = 4
Const EPS_RETRYCANCEL      = 5

Const EPS_ICONSTOP         = 16
Const EPS_ICONQUESTION     = 32
Const EPS_ICONWARNING      = 48
Const EPS_ICONASTERISK     = 64

Const EPS_IDOK             = 1
Const EPS_IDCANCEL         = 2
Const EPS_IDABORT          = 3
Const EPS_IDRETRY          = 4
Const EPS_IDIGNORE         = 5
Const EPS_IDYES            = 6
Const EPS_IDNO             = 7

;--> Voreinstellungen für ColorDialog
ColorBank = CreateBank( 68 )
PokeInt ColorBank, 0, $FF0000   ;--> Startfarbe (Rot )
PokeInt ColorBank, 4, $0000FF   ;--> 1. Benutzerfarbe   (Blau)
PokeInt ColorBank, 8, $00FFFF   ;--> 2. Benutzerfarbe   (Türkis)

;--> Voreinstellungen für FontDialog
FontBank = CreateBank( 269 )
FontName$ = "Tahoma"            ;--> Fontname
For i = 1 To Len( Fontname$ )
   PokeByte FontBank, i-1, Asc( Mid$( FontName$, i, 1 ) )
Next
PokeInt  FontBank, 256, 20      ;--> Size (Points)
PokeInt  FontBank, 260, -1      ;--> Height (Pixel)
PokeByte FontBank, 264, True   ;--> Fett
PokeByte FontBank, 265, True   ;--> Kursiv
PokeByte FontBank, 266, True   ;--> Unterstrichen
PokeByte FontBank, 267, True   ;--> Durchgestrichen
PokeByte FontBank, 268, 12      ;--> Farbe

Menu()
Repeat

   a = GetKey()
   If a Or start Then

      Select a
         ;--> MessageBox
         Case Asc("1")
            Print
            If eps_MessageBox( "Das ist eine MessageBox", "Message", EPS_OKCANCEL Or EPS_ICONWARNING ) = EPS_IDOK Then
               Print "Sie haben OK gedrückt."
            Else
               Print "Sie haben Abbrechen gedrückt."
            End If
         ;--> ImageDialog
         Case Asc("2")
            Res$   = eps_ImageDialog$( True, "Alle Dateien (*.*)|*.*", 1, "", "", "", False )
            Print
            If Res$ = "" Then
               Print "Sie haben den Dialog abgebrochen."
            Else
               Print "Sie haben diese Datei ausgewählt: " + Res$
            End If
         ;--> FileDialog
         Case Asc("3")
            Res$   = eps_FileDialog$( True, "Alle Dateien (*.*)|*.*", 1, "", "", "", True )
            Print
            If Res$ = "" Then
               Print "Sie haben den Dialog abgebrochen."
            Else
               Print "Sie haben diese Datei(en) ausgewählt: " + Res$
            End If
         ;--> ColorDialog
         Case Asc("4")
            Result = eps_ColorDialog( ColorBank )
            Print
            If Result Then
               Print "Sie haben diese Farbe ausgewählt: $" + Right$( Hex$( PeekInt( Colorbank, 0 ) ), 6 )
               For i=1 To 16
                  Print "Das ist Farbe " + i + " im Speicher: $" + Right$( Hex$( PeekInt( Colorbank, i*4 ) ), 6 )
               Next
            Else
               Print "Sie haben den Dialog abgebrochen."
            End If
         ;--> BrowseForFolder
         Case Asc("5")
            Res$   = eps_BrowseForFolder( "Bitte wählen Sie einen Pfad aus:", "C:\Programme" )
            Print
            If Res$ = "" Then
               Print "Sie haben den Dialog abgebrochen."
            Else
               Print "Sie haben diesen Pfad ausgewählt: " + Res$
            End If
         ;--> InputBox
         Case Asc("6")
            Res$   = eps_InputBox$( "Geben Sie einen Text ein", "Texteingabe", "Vorgabetext" )
            Print
            Print "Sie haben folgenden Text eingegeben: " + Res$
         ;--> FontDialog
         Case Asc("7")
            If eps_FontDialog( FontBank )
               FontName$ = ""
               For i=0 To 255
                  Byte = PeekByte( FontBank, i )
                  If Byte = 0 Then Exit
                  FontName$ = FontName$ + Chr$( Byte )
               Next
               Print
               Print "Gewählter Font: " + FontName$
               Print "Größe in Point: " + PeekInt( FontBank, 256 )
               Print "Größe in Pixel: " + PeekInt( FontBank, 260 )
               If PeekByte( FontBank, 264 ) Then Print "           Fett: Ja" Else Print "           Fett: Nein"
               If PeekByte( FontBank, 265 ) Then Print "         Kursiv: Ja" Else Print "         Kursiv: Nein"
               If PeekByte( FontBank, 266 ) Then Print "  Unterstrichen: Ja" Else Print "  Unterstrichen: Nein"
               If PeekByte( FontBank, 267 ) Then Print "Durchgestrichen: Ja" Else Print "Durchgestrichen: Nein"
               Print "Farbe: " + PeekByte( FontBank, 268 )
            Else
               Print: Print "Dialog wurde abgebrochen"
            End If
         ;--> Beenden
         Case 27
            Exit
      End Select
   
      Print: Print "Bitte eine Taste drücken": WaitKey(): FlushKeys()
      Menu()
         
   End If
   
Forever

FreeBank ColorBank
FreeBank FontBank
End

Function Menu()
   Cls: Locate 1, 1
   Print "1...MessageBox"
   Print "2...ImageDialog"
   Print "3...FileDialog mit Multiselect"
   Print "4...ColorDialog"
   Print "5...BrowseForFolder"
   Print "6...InputBox"
   Print "7...FontDialog"
   Print
   Print "ESC...Ende"
End Function