PureBoard

Code: Alles auswählen

#FR_Save = 1
#FR_Save = 1 ;Öffnet den SaveFileRequester
#FR_Open = 2 ;Öffnet den OpenFileRequester
#FR_OverwritePrompt = 4 ;Frägt bei Wahl einer existierenden Datei nach, ob sie überschrieben werden soll (nur bei #FR_Save)
#FR_FileMustExist = 8 ;Lässt nur existierende Dateien zu (nur bei #FR_Open)
#FR_DontAddToRecent = 16 ;Fügt die ausgewählte Datei nicht zu den zuletzt verwendeten Dateien hinzu
#OFN_DONTADDTORECENT = $02000000
Procedure.s FileRequester(Title.s, DefaultFile.s, Pattern.s, *PatternPosition.Long, hParent.l = 0, flags.l = 0)
  Protected of.OPENFILENAME, *lpstrFilter, *c.Byte, a.l, Size.l, DefaultPath.s, Result.s
  
  of\lStructSize = SizeOf(OPENFILENAME)
  of\hwndOwner = hParent
  of\flags = 0
  If Pattern <> ""
    Size = Len(Pattern) + 2
    of\lpstrFilter = AllocateMemory(Size)
    If of\lpstrFilter
      PokeS(of\lpstrFilter, Pattern)
      *c = of\lpstrFilter
      For a = 1 To Size
        If *c\b = '|' : *c\b = 0 : EndIf
        *c + 1
      Next
    EndIf
  Else
    of\lpstrFilter = 0
  EndIf
  of\lpstrCustomFilter = 0
  of\nMaxCustFilter = 0
  If *PatternPosition
    of\nFilterIndex = *PatternPosition\l
  Else
    of\nFilterIndex = 0
  EndIf
  of\lpstrFile = AllocateMemory(100 * 1024 + 1)
  If GetFilePart(DefaultFile) <> "" And of\lpstrFile
    PokeS(of\lpstrFile, DefaultFile)
  EndIf
  of\nMaxFile = 100 * 1024
  of\lpstrFileTitle = 0
  of\nMaxFileTitle = 0
  
  DefaultPath = GetPathPart(DefaultFile)
  If Right(DefaultPath, 1) <> "\" : DefaultPath + "\" : EndIf
  of\lpstrInitialDir = AllocateMemory(Len(DefaultPath) + 1)
  If of\lpstrInitialDir : PokeS(of\lpstrInitialDir, DefaultPath) : EndIf
  
  of\lpstrTitle = @Title
  
  of\flags = #OFN_EXPLORER | #OFN_DONTADDTORECENT
  of\flags | #OFN_HIDEREADONLY | #OFN_NODEREFERENCELINKS
  ;If flags & #FR_MultiSelection : of\flags | #OFN_ALLOWMULTISELECT : EndIf
  If flags & #FR_FileMustExist : of\flags | #OFN_FILEMUSTEXIST : EndIf
  If flags & #FR_OverwritePrompt : of\flags | #OFN_OVERWRITEPROMPT : EndIf
  If flags & #FR_DontAddToRecent : of\flags | #OFN_DONTADDTORECENT : EndIf
  
  of\lpstrDefExt = 0
  of\lCustData = 0
  of\lpfnHook = 0
  of\lpTemplateName = 0
  
  If flags & #FR_Open
    GetOpenFileName_(of)
  ElseIf flags & #FR_Save
    GetSaveFileName_(of)
  EndIf
  
  Result = PeekS(of\lpstrFile)
  
  If of\lpstrInitialDir : FreeMemory(of\lpstrInitialDir) : EndIf
  If of\lpstrFile : FreeMemory(of\lpstrFile) : EndIf
  If of\lpstrFilter : FreeMemory(of\lpstrFilter) : EndIf
  
  If *PatternPosition
    *PatternPosition\l = of\nFilterIndex
  EndIf
  
  ProcedureReturn Result
EndProcedure
Procedure.l FileRequesterMulti(Title.s, DefaultPath.s, Pattern.s, *PatternPosition.Long, Files.s(), hParent.l = 0, flags.l = 0)
  Protected of.OPENFILENAME, *lpstrFilter, *c.Byte, a.l, Size.l, Result.s, Path.s, File.s
  
  of\lStructSize = SizeOf(OPENFILENAME)
  of\hwndOwner = hParent
  of\flags = 0
  If Pattern <> ""
    Size = Len(Pattern) + 2
    of\lpstrFilter = AllocateMemory(Size)
    If of\lpstrFilter
      PokeS(of\lpstrFilter, Pattern)
      *c = of\lpstrFilter
      For a = 1 To Size
        If *c\b = '|' : *c\b = 0 : EndIf
        *c + 1
      Next
    EndIf
  Else
    of\lpstrFilter = 0
  EndIf
  of\lpstrCustomFilter = 0
  of\nMaxCustFilter = 0
  If *PatternPosition
    of\nFilterIndex = *PatternPosition\l
  Else
    of\nFilterIndex = 0
  EndIf
  of\lpstrFile = AllocateMemory(100 * 1024 + 1)
  of\nMaxFile = 100 * 1024
  of\lpstrFileTitle = 0
  of\nMaxFileTitle = 0
  
  If Right(DefaultPath, 1) <> "\" : DefaultPath + "\" : EndIf
  of\lpstrInitialDir = AllocateMemory(Len(DefaultPath) + 1)
  If of\lpstrInitialDir : PokeS(of\lpstrInitialDir, DefaultPath) : EndIf
  
  of\lpstrTitle = @Title
  
  of\flags = #OFN_EXPLORER | #OFN_DONTADDTORECENT | #OFN_ALLOWMULTISELECT
  of\flags | #OFN_HIDEREADONLY | #OFN_NODEREFERENCELINKS
  If flags & #FR_FileMustExist : of\flags | #OFN_FILEMUSTEXIST : EndIf
  If flags & #FR_OverwritePrompt : of\flags | #OFN_OVERWRITEPROMPT : EndIf
  If flags & #FR_DontAddToRecent : of\flags | #OFN_DONTADDTORECENT : EndIf
  
  of\lpstrDefExt = 0
  of\lCustData = 0
  of\lpfnHook = 0
  of\lpTemplateName = 0
  
  If flags & #FR_Open
    GetOpenFileName_(of)
  ElseIf flags & #FR_Save
    GetSaveFileName_(of)
  EndIf
  
  Path = PeekS(of\lpstrFile)
  
  *c = of\lpstrFile + of\nFileOffset
  Repeat
    File = PeekS(*c)
    If File <> ""
      If AddElement(Files())
        Files() = Path + File
      EndIf
      *c + Len(File) + 1
    EndIf
  Until File = ""
  
  If of\lpstrInitialDir : FreeMemory(of\lpstrInitialDir) : EndIf
  If of\lpstrFile : FreeMemory(of\lpstrFile) : EndIf
  If of\lpstrFilter : FreeMemory(of\lpstrFilter) : EndIf
  
  If *PatternPosition
    *PatternPosition\l = of\nFilterIndex
  EndIf
  
  If Path <> ""
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
EndProcedure

PatternPosition = 1
Debug FileRequester("Wählen sie eine Datei aus", "c:\", "Alle Dateien (*.*)|*.*|Text-Dateien (*.txt;*.ini)|*.txt;*.ini", @PatternPosition, 0, #FR_Save)
Debug PatternPosition

NewList Files.s()
Debug FileRequesterMulti("Wählen sie mehrere Dateien aus", "c:\", "Alle Dateien (*.*)|*.*|Text-Dateien (*.txt;*.ini)|*.txt;*.ini", @PatternPosition, Files(), 0, #FR_Open)
ForEach Files()
  Debug Files()
Next
Debug PatternPosition