Add lhs_dialog.pbi a GUI Library/Module
Initial state with some Bugs
This commit is contained in:
parent
9d6def2132
commit
a7d3ed5432
1 changed files with 174 additions and 0 deletions
174
GUI/lhs_dialog.pbi
Normal file
174
GUI/lhs_dialog.pbi
Normal file
|
|
@ -0,0 +1,174 @@
|
||||||
|
;************************************************
|
||||||
|
;*
|
||||||
|
;* Advanced Dialog V0.1
|
||||||
|
;*
|
||||||
|
;*
|
||||||
|
;*
|
||||||
|
|
||||||
|
DeclareModule lhs_lib_adv_diag
|
||||||
|
Enumeration Dialogtypes
|
||||||
|
#lhs_adv_dialog_text
|
||||||
|
#lhs_adv_dialog_string
|
||||||
|
#lhs_adv_dialog_edit
|
||||||
|
EndEnumeration
|
||||||
|
|
||||||
|
Declare dialog() ;Dialog darstellen und abwarten
|
||||||
|
Declare init(Titel.s)
|
||||||
|
Declare add(Descrition.s, UID.s, Type.i, Lines.i, Content.s="") ;Element zum Dialog hinzufügen
|
||||||
|
Declare reset() ;dialog Liste leeren.
|
||||||
|
Declare.s get_explizit(UID.s) ;Respronse exlpizit zurückgeben
|
||||||
|
Declare get_init() ;get() Initilaiseren beim ersten element
|
||||||
|
Declare.s get() ;gibt das Aktuelle element zurück
|
||||||
|
|
||||||
|
EndDeclareModule
|
||||||
|
|
||||||
|
Module lhs_lib_adv_diag
|
||||||
|
Structure lhs_adv_dialog
|
||||||
|
Lines.i
|
||||||
|
Id.i
|
||||||
|
Text_Id.i
|
||||||
|
UID.s
|
||||||
|
Description.s
|
||||||
|
Type.i
|
||||||
|
Response.s
|
||||||
|
EndStructure
|
||||||
|
|
||||||
|
Global NewList lhs_adv_diag_content.lhs_adv_dialog()
|
||||||
|
Global Current_Element, Total_Elements
|
||||||
|
|
||||||
|
Procedure reset()
|
||||||
|
ClearList(lhs_adv_diag_content())
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure add(Descrition.s, UID.s, Type.i, Lines.i, Content.s="")
|
||||||
|
AddElement(lhs_adv_diag_content())
|
||||||
|
lhs_adv_diag_content()\Description = Descrition
|
||||||
|
lhs_adv_diag_content()\UID = UID
|
||||||
|
lhs_adv_diag_content()\Type= Type
|
||||||
|
lhs_adv_diag_content()\Lines = Lines
|
||||||
|
lhs_adv_diag_content()\Response = Content
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure init(Titel.s)
|
||||||
|
reset()
|
||||||
|
AddElement(lhs_adv_diag_content())
|
||||||
|
lhs_adv_diag_content()\Description = Titel
|
||||||
|
Total_Elements = 0
|
||||||
|
Current_Element = 0
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
|
||||||
|
Procedure dialog()
|
||||||
|
Define Dialog, Dialog_Height, Event, PosY, Lines_curr, Current, Button_Ok, Button_Cancel
|
||||||
|
ResetList(lhs_adv_diag_content())
|
||||||
|
NextElement(lhs_adv_diag_content())
|
||||||
|
Current_Element = 0
|
||||||
|
PosY = 0
|
||||||
|
Lines_curr = 0
|
||||||
|
Height = 0
|
||||||
|
Dialog_Height = 50
|
||||||
|
Dialog = OpenWindow(#PB_Any, 0,0, 400, Dialog_Height, lhs_adv_diag_content()\Description, #PB_Window_TitleBar | #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
|
||||||
|
While NextElement(lhs_adv_diag_content())
|
||||||
|
Current_Element + 1
|
||||||
|
If lhs_adv_diag_content()\Lines = 1
|
||||||
|
Lines_curr + 1
|
||||||
|
PoSY = (Lines_curr * 50) - 45
|
||||||
|
Height = 40
|
||||||
|
Dialog_Height + 50
|
||||||
|
Else
|
||||||
|
Lines_curr + lhs_adv_diag_content()\Lines
|
||||||
|
Height = (lhs_adv_diag_content()\Lines * 50)
|
||||||
|
Dialog_Height + Height
|
||||||
|
Height - 15
|
||||||
|
PosY = (Lines_curr * 50) - Height
|
||||||
|
EndIf
|
||||||
|
ResizeWindow(Dialog, #PB_Ignore, #PB_Ignore, #PB_Ignore, Dialog_Height)
|
||||||
|
WindowBounds(Dialog, 400, Dialog_Height, 400, Dialog_Height)
|
||||||
|
Select lhs_adv_diag_content()\Type
|
||||||
|
Case #lhs_adv_dialog_text
|
||||||
|
lhs_adv_diag_content()\Id = TextGadget(#PB_Any, 5, PoSY , 390, Height, lhs_adv_diag_content()\Description)
|
||||||
|
Case #lhs_adv_dialog_string
|
||||||
|
lhs_adv_diag_content()\Text_Id = TextGadget(#PB_Any, 5, PoSY , 90, Height, lhs_adv_diag_content()\Description)
|
||||||
|
lhs_adv_diag_content()\Id = StringGadget(#PB_Any, 100, PoSY , 290, Height, lhs_adv_diag_content()\Response)
|
||||||
|
Case #lhs_adv_dialog_edit
|
||||||
|
lhs_adv_diag_content()\Text_Id = TextGadget(#PB_Any, 5, PoSY , 90, Height, lhs_adv_diag_content()\Description)
|
||||||
|
lhs_adv_diag_content()\Id = EditorGadget(#PB_Any, 100, PoSY , 290, Height)
|
||||||
|
SetGadgetText(lhs_adv_diag_content()\Id, lhs_adv_diag_content()\Response)
|
||||||
|
Default
|
||||||
|
;Reines Text Element
|
||||||
|
|
||||||
|
EndSelect
|
||||||
|
|
||||||
|
Wend
|
||||||
|
; Ok und Cancel Button
|
||||||
|
PosY + Height + 10
|
||||||
|
Button_Ok = ButtonGadget(#PB_Any, 5, PosY, 190, 40, "Ok")
|
||||||
|
Button_Cancel = ButtonGadget(#PB_Any, 205, PosY, 190, 40, "Cancel")
|
||||||
|
Repeat
|
||||||
|
Event = WaitWindowEvent()
|
||||||
|
|
||||||
|
Select Event
|
||||||
|
Case #PB_Event_CloseWindow
|
||||||
|
Quit=1
|
||||||
|
Case #PB_Event_Gadget
|
||||||
|
Select EventGadget()
|
||||||
|
Case Button_Cancel
|
||||||
|
CloseWindow(dialog)
|
||||||
|
ProcedureReturn #False
|
||||||
|
Case Button_Ok
|
||||||
|
ResetList(lhs_adv_diag_content())
|
||||||
|
NextElement(lhs_adv_diag_content())
|
||||||
|
While NextElement(lhs_adv_diag_content())
|
||||||
|
lhs_adv_diag_content()\Response = GetGadgetText(lhs_adv_diag_content()\Id)
|
||||||
|
Wend
|
||||||
|
CloseWindow(dialog)
|
||||||
|
ProcedureReturn #True
|
||||||
|
EndSelect
|
||||||
|
|
||||||
|
EndSelect
|
||||||
|
|
||||||
|
|
||||||
|
Until Quit=1
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure.s get_explizit(UID.s)
|
||||||
|
ResetList(lhs_adv_diag_content())
|
||||||
|
While NextElement(lhs_adv_diag_content())
|
||||||
|
If lhs_adv_diag_content()\UID = UID
|
||||||
|
ProcedureReturn lhs_adv_diag_content()\Response
|
||||||
|
EndIf
|
||||||
|
Wend
|
||||||
|
|
||||||
|
ProcedureReturn UID
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
|
||||||
|
Procedure get_init()
|
||||||
|
Current_Element = 1
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
Procedure.s get()
|
||||||
|
|
||||||
|
EndProcedure
|
||||||
|
|
||||||
|
|
||||||
|
EndModule
|
||||||
|
|
||||||
|
; lhs_lib_adv_diag::init("Test Dialog")
|
||||||
|
; lhs_lib_adv_diag::add("Test", "test", lhs_lib_adv_diag::#lhs_adv_dialog_edit, 2)
|
||||||
|
; lhs_lib_adv_diag::add("Test2", "test2", lhs_lib_adv_diag::#lhs_adv_dialog_string, 1)
|
||||||
|
; lhs_lib_adv_diag::add("Test3", "test3", lhs_lib_adv_diag::#lhs_adv_dialog_edit, 1)
|
||||||
|
; lhs_lib_adv_diag::add("Test4", "test4", lhs_lib_adv_diag::#lhs_adv_dialog_string, 1)
|
||||||
|
; If lhs_lib_adv_diag::dialog()
|
||||||
|
; MessageRequester("Info", "Ok")
|
||||||
|
; Else
|
||||||
|
; MessageRequester("Info", "Cancel")
|
||||||
|
; EndIf
|
||||||
|
; MessageRequester("Test", lhs_lib_adv_diag::get_explizit("test"))
|
||||||
|
; IDE Options = PureBasic 5.71 beta 1 LTS (Linux - x64)
|
||||||
|
; CursorPosition = 95
|
||||||
|
; FirstLine = 67
|
||||||
|
; Folding = --
|
||||||
|
; EnableXP
|
||||||
|
; SubSystem = qt
|
||||||
Loading…
Reference in a new issue