PureBoard

PureRequester DOC hat geschrieben:
Befehlsübersicht

PR_CheckBoxRequester()
PR_DateRequester()
PR_InputRequester()
PR_MultiButtonRequester()
PR_RgbRequester()
PR_TimeRequester()


PR_CheckBoxRequester(Title$, Text$)
Diese Funktion öffnet eine DialogBox mit einer CheckBox. D.H. das neben den üblichen "JA & NEIN" Buttons,
auch eine CheckBox mit dem Text Diese Meldung nicht mehr anzeigen unten links angezeigt wird.
Parameter
Title$ = Der Name des Titels für die DialogBox.
Text$ = Der Text der in der DialogBox erscheinen soll. (Mehrzeilige Texte können durch "|" getrennt werden.)
Rückgabewert
#PureRequester_Yes - Wenn der JA Button ohne CheckBox-Hacken betätigt wurde.
#PureRequester_No - Wenn der NEIN Button ohne CheckBox-Hacken betätigt wurde.
#PureRequester_YesWithCheckBox - Wenn der JA Button mit CheckBox-Hacken betätigt wurde.
#PureRequester_NoWithCheckBox - Wenn der NEIN Button mit CheckBox-Hacken betätigt wurde.
Hinweis
Alternativ kann natürlich auch #IDYES oder #IDNO (Bei inaktivierter CheckBox) benutzt werden.



PR_DateRequester()
Diese Funktion öffnet eine DialogBox zur eingabe eines Datums.
Parameter
Keine
Rückgabewert
Das gewählte Datum im PureBasic format oder #PureRequester_CancelDate wenn die DialogBox abgebrochen wurde.
Hinweis
Wenn die Systemsprache nicht in Deutsch eingestellt ist, wird der Tag & Monat in der DialogBox vertauscht.



PR_InputRequester (Title$, Text$, DefaultText$, StoredText$)
Diese Funktion öffnet eine DialogBox zur Eingabe eines Textes über einer Editierbaren ComboBox.
Parameter
Title$ = Der Name des Titels für die DialogBox.
Text$ = Der Text der in der DialogBox erscheinen soll.
DefaultText$ = Der vorgabetext der in dem Eingabefeld erscheinen soll.
StoredText$ = Mehrzeilige durch "|" getrennte Texte, die in der ComboBox eingetragen werden sollen.
Rückgabewert
Der eingegebene Text oder ("") wenn die DialogBox abgebrochen wurde.



PR_MultiButtonRequester (Title$, Text$)
Diese Funktion öffnet eine DialogBox mit mehreren Buttons. (JA / NEIN / JA ALLE / NEIN ALLE / ABBRECHEN)
Parameter
Title$ = Der Name des Titels für die DialogBox.
Text$ = Der Text der in der DialogBox erscheinen soll. (Mehrzeilige Texte können durch "|" getrennt werden.)
Rückgabewert
#PureRequester_Yes - Wenn der JA Button betätigt wurde.
#PureRequester_No - Wenn der NEIN Button betätigt wurde.
#PureRequester_YesAll - Wenn der JA ALLE Button betätigt wurde.
#PureRequester_NoAll - Wenn der NEIN ALLE Button betätigt wurde.
#PureRequester_Cancel - Wenn der ABBRECHEN Button betätigt wurde.
Hinweis
Alternativ kann natürlich auch #IDYES, #IDNO und #IDCANCEL (Bei JA / NEIN / ABBRECHEN) benutzt werden.



PR_RgbRequester (Color.l)
Diese Funktion öffnet eine DialogBox zum auswählen einer Farbe. (RGB-Werte)
Parameter
Color = Der Startwert der beim öffnen der DialogBox eingetragen werden soll.
Rückgabewert
Die ausgewählte Farbe oder #PureRequester_CancelRGB wenn die DialogBox abgebrochen wurde.



PR_TimeRequester (Title$, Text$, Seconds.l, DefaultButton.l)
Diese Funktion öffnet eine DialogBox, die sich nach Ablauf einer voreingestellten Zeit von selbst schließt.
Parameter
Title$ = Der Name des Titels für die DialogBox.
Text$ = Der Text der in der DialogBox erscheinen soll. (Mehrzeilige Texte können durch "|" getrennt werden.)
Seconds = Eine vorgegebene Zeit in Sekunden, nach der sich die DialogBox von selbst schließen soll.
DefaultButton = Der Button der nach Ablauf der Zeit ausgelöst werden soll. (Event)
Rückgabewert
#PureRequester_Yes - Wenn der JA Button betätigt wurde.
#PureRequester_No - Wenn der NEIN Button betätigt wurde.
Hinweis
Alternativ kann natürlich auch #IDYES oder #IDNO benutzt werden.

TomS hat geschrieben:Heyho.
Ein paar Screenshots wären nicht schlecht

STARGÅTE hat geschrieben:[OT]
PR_MultiButtonRequester()

Ja ? Nein ? Ja Alle ? Nein Alle ? Abbrechen ? .... Ja Ab und Zu ? Nein Ab und Zu ? Ja jedes Zweite ? Nein jedes Dritte ? Ja jedes 4. und Nein jedes 3. und jedes 12. Abbrechen ?

ich finde diese Optionenn sollte mit rein
[/OT]

Im Ernst, nette Sache ... aber ich bin überhaupt kein Freund dieser Popups ^^

Thorium hat geschrieben:Ich warte immernoch auf ein Programm, was mir nen zusätzlichen Button in Message Boxes einbaut mit der Aufschrift. "Halts Maul und mach einfach."

Andesdaf hat geschrieben:schöne Sache

Procedure.l CheckBoxRequester(Title$, Text$)

If GetUserDefaultLangID_() & $FF = #LANG_GERMAN
  Ja$="Ja"
  Nein$="Nein"
  Msg$="Diese Meldung nicht mehr anzeigen"
Else
  Ja$="Yes"
  Nein$="No"
  Msg$="Don't show again this message"
EndIf

If ExamineDesktops()
  DeskWidth=DesktopWidth(0)
  DeskHeight=DesktopHeight(0)
EndIf

txt$=ReplaceString(Text$,#CRLF$,"|")
Text$=ReplaceString(txt$,#LFCR$,"|")
txt$=ReplaceString(Text$,#CR$,"|")
Text$=ReplaceString(txt$,#LF$,"|")
txt$=ReplaceString(Text$,"|",Chr(10))
Text$=txt$
If Right(Text$,1)<>Chr(10):Text$+Chr(10):EndIf

oldwin=GetActiveWindow_()
win=OpenWindow(#PB_Any,50,50,400,200,Title$,#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered,oldwin)

If win
  EnableWindow_(oldwin,#False)

  fnt=LoadFont(#PB_Any,"Arial",9)
  If fnt
    SetGadgetFont(#PB_Default,FontID(fnt))
  EndIf

  sum=CountString(Text$,Chr(10))
  If StartDrawing(WindowOutput(win))
    If fnt : DrawingFont(FontID(fnt)) : EndIf
    For i=1 To sum
      c$=StringField(Text$,i,Chr(10))
      height+TextHeight(c$)
      If TextWidth(c$)>width
        width=TextWidth(c$)+95
      EndIf
    Next
    If width<480:width=480:EndIf
    If width>DeskWidth:width=DeskWidth-20:EndIf
    height+10
    StopDrawing()
  EndIf

  x=(DeskWidth/2)-((width)/2)
  y=(DeskHeight/2)-((height+111)/2)

  ResizeWindow(win,x,y,width,height+111)
  icon=LoadIcon_(0,#IDI_QUESTION)
  ImageGadget=ImageGadget(#PB_Any,25,25,10,10,icon)
  TextGadget=TextGadget(#PB_Any,80,33,width-85,height,Text$)
  CheckBox=CheckBoxGadget(#PB_Any,15,height+72,220,25,Msg$)
  x=width-120
  Yes=ButtonGadget(#PB_Any,x-105,height+70,100,27,Ja$)
  No=ButtonGadget(#PB_Any,x,height+70,100,27,Nein$)
  MessageBeep_(#MB_ICONQUESTION)

  Repeat
    Event=WaitWindowEvent()
    If Event=#PB_Event_Gadget
      st=EventGadget()
      If st=Yes : state=#IDYES : EndIf
      If st=No : state=#IDNO : EndIf
      If st<>CheckBox : Break : EndIf
    EndIf
  Until Event=#PB_Event_CloseWindow

  If Event=#PB_Event_CloseWindow
    state=#IDNO
  EndIf
  If GetGadgetState(CheckBox)=#True
    If state=#IDYES : state=-6 : EndIf
    If state=#IDNO : state=-7 : EndIf
  EndIf

  SetGadgetFont(#PB_Default, #PB_Default)
  If fnt : FreeFont(fnt) : EndIf
  DestroyIcon_(icon)
  EnableWindow_(oldwin,#True)
  CloseWindow(win)

  ProcedureReturn state

EndIf

EndProcedure


If OpenWindow(0, 100, 100, 600, 400, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  Debug CheckBoxRequester("Frage","Möchten Sie das Programm jetzt wirklich beenden ?")
  CloseWindow(0)
EndIf

End