Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
3 - Helfer & Tools

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Jetzt mit visuellem Fenster-Designer "LemonVid"
Autor: Frabbing (---.dip.t-dialin.net)
Datum:   26.08.12 11:45

Für Neugierige. Der Fensterdesigner "LemonViD" erzeugt solche Codes in dieser Art:

Declare nurso%, istab#[22], ilist%, smallicon%, largeicon%, tabctrl1%, tabctrl2%, radiobutton1%, checkbox1%, tabctrl3%
 Declare radiobutton2%, checkbox2%, tabctrl4%, dialog1%, tabctrl5%, button1%, button2%, multiedit1%, tabctrl6%, toolbar1%
 Declare toolbar2%, toolbar3%, button3%, hvscroll1%, hvscroll2%, iconbutton1%, gridbox1%, radiobutton3%, radiobutton4%
 Declare radiobutton5%, calendar1%, statuswindow1%
 
 Def GetStockObject(1) !"GDI32","GetStockObject"
 Def GetSysColor(1) !"USER32","GetSysColor"
 Def GetParent(1) !"USER32","GetParent"
 Def ImageList_Create(5) !"COMCTL32","ImageList_Create"
 Def ImageList_ReplaceIcon(3) !"COMCTL32","ImageList_ReplaceIcon"
 Def ImageList_Duplicate(1) !"COMCTL32","ImageList_Duplicate"
 Def ImageList_GetIcon(3) !"COMCTL32","ImageList_GetIcon"
 Def ExtractIconEx(5) !"SHELL32","ExtractIconEx"
 Def GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
 
 Def &COLOR_BTNFACE $F
 Def &DEFAULT_GUI_FONT $11
 Def &WM_COMMAND $111
 
 Struct is_tab = h$(40), t$(40), r%, p%
 Dim istab#[], is_tab
 
 Proc CreateImageList
 
   ilist% = ImageList_Create(32, 32, $21, 0, 0)
   ExtractIconEx("shell32.dll", 7, Addr(largeicon%), Addr(smallicon%), 1)
   DeleteObject smallicon%
   ImageList_ReplaceIcon(ilist%, -1, largeicon%)
   DeleteObject largeicon%
   Return ilist%
 
 EndProc
 
 Proc CreateElements
 
   WindowStyle 26 | 512 | 2048
   WindowTitle "Arbeitsfenster"
   Window 280, 0 - 742, 568
 
   Cls GetSysColor(&COLOR_BTNFACE)
   SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
 
   tabctrl1% = Create("TabCtrl", %hwnd, "panel1", 272, 120, 364, 297)
   InsertTab(tabctrl1%, 1, "panel2")
   InsertTab(tabctrl1%, 2, "panel3")
 
   calendar1% = Control("SysMonthCal32", "", $54000000, 166, 81, 189, 202, tabctrl1%, $4000, %hInstance, 0)
 
   radiobutton5% = Create("RadioButton", tabctrl1%, "radiobutton", 13, 26, 150, 24)
 
   radiobutton4% = Create("RadioButton", tabctrl1%, "radiobutton", 14, 79, 150, 24)
 
   radiobutton3% = Create("RadioButton", tabctrl1%, "radiobutton", 13, 53, 150, 24)
 
   nurso% = Create("Text", tabctrl1%, "", 15, 266, 312, 20)
   hvscroll2% = Create("HScroll", nurso%, "", 0, 0, 312, 20)
 
   nurso% = Create("Text", tabctrl1%, "", 337, 37, 20, 249)
   hvscroll1% = Create("VScroll", nurso%, "", 0, 0, 20, 249)
 
   button3% = Create("Button", tabctrl1%, "button", 11, 125, 96, 24)
 
   nurso% = Create("Text", tabctrl1%, "", 11, 79, 240, 40)
   toolbar3% = Create("ToolBar", nurso%, ImageList_Duplicate(ilist%), 0, 32, $4000, 1)
   Toolbar("AddButton", toolbar3%, 0, $4000, "")
   Toolbar("AddButton", toolbar3%, 0, $4001, "")
   Toolbar("Separator", toolbar3%)
   Toolbar("AddButton", toolbar3%, 0, $4002, "")
 
   nurso% = Create("Text", tabctrl1%, "", 11, 33, 240, 40)
   toolbar2% = Create("ToolBar", nurso%, ImageList_Duplicate(ilist%), 0, 32, $4064, 1)
   Toolbar("AddButton", toolbar2%, 0, $4064, "")
   Toolbar("AddButton", toolbar2%, 0, $4065, "")
   Toolbar("Separator", toolbar2%)
   Toolbar("AddButton", toolbar2%, 0, $4066, "")
 
   tabctrl2% = Create("TabCtrl", tabctrl1%, "panel", 16, 32, 314, 238)
   InsertTab(tabctrl2%, 1, "panel")
   InsertTab(tabctrl2%, 2, "panel")
 
   gridbox1% = Create("Gridbox", tabctrl2%, "gridbox;0;216", 0, 59, 73, 232, 150)
 
   iconbutton1% = Create("IconButton", tabctrl2%, ImageList_GetIcon(ilist%, 0, 0), 15, 68, 32, 32)
 
   tabctrl3% = Create("TabCtrl", tabctrl2%, "panel", 16, 40, 263, 176)
   InsertTab(tabctrl3%, 1, "panel")
   InsertTab(tabctrl3%, 2, "panel")
 
   tabctrl4% = Create("TabCtrl", tabctrl3%, "panel", 24, 32, 204, 114)
   InsertTab(tabctrl4%, 1, "panel")
   InsertTab(tabctrl4%, 2, "panel")
 
   multiedit1% = Create("MultiEdit", tabctrl4%, "multiedit", 13, 34, 165, 66)
 
   checkbox2% = Create("CheckBox", tabctrl3%, "checkbox", 19, 35, 150, 24)
 
   radiobutton2% = Create("RadioButton", tabctrl3%, "option", 25, 38, 150, 24)
 
   checkbox1% = Create("CheckBox", tabctrl2%, "checkbox", 19, 37, 150, 24)
 
   radiobutton1% = Create("RadioButton", tabctrl2%, "option", 17, 33, 150, 24)
 
   dialog1% = Create("Dialog", %hwnd, "dialog", 12, 124, 250, 266)
 
   statuswindow1% = Create("StatusWindow", dialog1%, "")
 
   tabctrl5% = Create("TabCtrl", dialog1%, "tabctrl", 8, 6, 226, 185)
   InsertTab(tabctrl5%, 1, "tabctrl")
 
   tabctrl6% = Create("TabCtrl", tabctrl5%, "tabctrl", 16, 32, 181, 128)
   InsertTab(tabctrl6%, 1, "tabctrl")
 
   nurso% = Create("Text", tabctrl6%, "", 8, 32, 157, 40)
   toolbar1% = Create("ToolBar", nurso%, ImageList_Duplicate(ilist%), 0, 32, $40C8, 1)
   Toolbar("AddButton", toolbar1%, 0, $40C8, "")
   Toolbar("AddButton", toolbar1%, 0, $40C9, "")
   Toolbar("Separator", toolbar1%)
   Toolbar("AddButton", toolbar1%, 0, $40CA, "")
 
   button1% = Create("Button", tabctrl5%, "button", 8, 30, 96, 24)
 
   button2% = Create("Button", %hwnd, "button", 16, 15, 96, 24)
 
 EndProc
 
 Proc CreateTabList
 
   istab#[0].h$ = Str$(tabctrl2%) : istab#[0].t$ = Str$(tabctrl1%) : istab#[0].r% = 2 : istab#[0].p% = 0
   istab#[1].h$ = Str$(radiobutton1%) : istab#[1].t$ = Str$(tabctrl2%) : istab#[1].r% = 0 : istab#[1].p% = 0
   istab#[2].h$ = Str$(checkbox1%) : istab#[2].t$ = Str$(tabctrl2%) : istab#[2].r% = 1 : istab#[2].p% = 0
   istab#[3].h$ = Str$(tabctrl3%) : istab#[3].t$ = Str$(tabctrl2%) : istab#[3].r% = 2 : istab#[3].p% = 0
   istab#[4].h$ = Str$(radiobutton2%) : istab#[4].t$ = Str$(tabctrl3%) : istab#[4].r% = 0 : istab#[4].p% = 0
   istab#[5].h$ = Str$(checkbox2%) : istab#[5].t$ = Str$(tabctrl3%) : istab#[5].r% = 1 : istab#[5].p% = 0
   istab#[6].h$ = Str$(tabctrl4%) : istab#[6].t$ = Str$(tabctrl3%) : istab#[6].r% = 2 : istab#[6].p% = 0
   istab#[7].h$ = Str$(button1%) : istab#[7].t$ = Str$(tabctrl5%) : istab#[7].r% = 0 : istab#[7].p% = 0
   istab#[8].h$ = Str$(multiedit1%) : istab#[8].t$ = Str$(tabctrl4%) : istab#[8].r% = 2 : istab#[8].p% = 0
   istab#[9].h$ = Str$(tabctrl6%) : istab#[9].t$ = Str$(tabctrl5%) : istab#[9].r% = 1 : istab#[9].p% = 0
   istab#[10].h$ = Str$(toolbar1%) : istab#[10].t$ = Str$(tabctrl6%) : istab#[10].r% = 1 : istab#[10].p% = 1
   istab#[11].h$ = Str$(toolbar2%) : istab#[11].t$ = Str$(tabctrl1%) : istab#[11].r% = 1 : istab#[11].p% = 1
   istab#[12].h$ = Str$(toolbar3%) : istab#[12].t$ = Str$(tabctrl1%) : istab#[12].r% = 1 : istab#[12].p% = 1
   istab#[13].h$ = Str$(button3%) : istab#[13].t$ = Str$(tabctrl1%) : istab#[13].r% = 1 : istab#[13].p% = 0
   istab#[14].h$ = Str$(hvscroll1%) : istab#[14].t$ = Str$(tabctrl1%) : istab#[14].r% = 1 : istab#[14].p% = 1
   istab#[15].h$ = Str$(hvscroll2%) : istab#[15].t$ = Str$(tabctrl1%) : istab#[15].r% = 1 : istab#[15].p% = 1
   istab#[16].h$ = Str$(iconbutton1%) : istab#[16].t$ = Str$(tabctrl2%) : istab#[16].r% = 1 : istab#[16].p% = 0
   istab#[17].h$ = Str$(gridbox1%) : istab#[17].t$ = Str$(tabctrl2%) : istab#[17].r% = 1 : istab#[17].p% = 0
   istab#[18].h$ = Str$(radiobutton3%) : istab#[18].t$ = Str$(tabctrl1%) : istab#[18].r% = 0 : istab#[18].p% = 0
   istab#[19].h$ = Str$(radiobutton4%) : istab#[19].t$ = Str$(tabctrl1%) : istab#[19].r% = 0 : istab#[19].p% = 0
   istab#[20].h$ = Str$(radiobutton5%) : istab#[20].t$ = Str$(tabctrl1%) : istab#[20].r% = 0 : istab#[20].p% = 0
   istab#[21].h$ = Str$(calendar1%) : istab#[21].t$ = Str$(tabctrl1%) : istab#[21].r% = 0 : istab#[21].p% = 0
 
 EndProc
 
 Proc ExamineTabList
 
   WhileLoop 0, SizeOf(istab#[]) - 2
 
     If GetActiveTab(Val(istab#[&loop].t$)) = istab#[&loop].r%
       If istab#[&loop].p% = 0
         ShowWindow(Val(istab#[&loop].h$), 4)
       Else
         ShowWindow(GetParent(Val(istab#[&loop].h$)), 4)
       EndIf
     Else
       If istab#[&loop].p% = 0
         ShowWindow(Val(istab#[&loop].h$), 0)
       Else
         ShowWindow(GetParent(Val(istab#[&loop].h$)), 0)
       EndIf
     EndIf
 
   EndWhile
 EndProc
 
 SubClassProc
 
   Select %smessage
 
     CaseOf $114, $115
       SendMessage(%hwnd, %smessage, &swparam, &slparam)
 
     CaseOf $101, $202, $205, $208
       SendMessage(%hwnd, &WM_COMMAND, MakeLong(GetDlgCtrlID(&swnd), 0), &swnd)
 
   EndSelect
 
 Endproc
 
 Proc MainLoop
 
   UserMessages 16
   ShowWindow(%hwnd, 1)
 
   Subclass tabctrl2%, 1 : Subclass radiobutton1%, 1 : Subclass checkbox1%, 1 : Subclass tabctrl3%, 1 : Subclass radiobutton2%, 1 
   Subclass checkbox2%, 1 : Subclass tabctrl4%, 1 : Subclass button1%, 1 : Subclass multiedit1%, 1 : Subclass tabctrl6%, 1 
   Subclass toolbar1%, 1 : Subclass toolbar2%, 1 : Subclass toolbar3%, 1 : Subclass button3%, 1 : Subclass GetParent(hvscroll1%), 1 
   Subclass GetParent(hvscroll2%), 1 : Subclass iconbutton1%, 1 : Subclass gridbox1%, 1 : Subclass radiobutton3%, 1 
   Subclass radiobutton4%, 1 : Subclass radiobutton5%, 1 : Subclass calendar1%, 1 
 
   While 1
 
     WaitInput
 
     Case ((%umessage = 16) And (&uwnd = %hwnd)) : BREAK
 
     If Clicked(tabctrl1%)  '#window
       ExamineTabList
 
     ElseIf Clicked(tabctrl2%)  'tabctrl1% -> #window
       ExamineTabList
 
     ElseIf Clicked(radiobutton1%)  'tabctrl2% -> tabctrl1% -> #window
 
     ElseIf Clicked(checkbox1%)  'tabctrl2% -> tabctrl1% -> #window
 
     ElseIf Clicked(tabctrl3%)  'tabctrl2% -> tabctrl1% -> #window
       ExamineTabList
 
     ElseIf Clicked(radiobutton2%)  'tabctrl3% -> tabctrl2% -> tabctrl1% -> #window
 
     ElseIf Clicked(checkbox2%)  'tabctrl3% -> tabctrl2% -> tabctrl1% -> #window
 
     ElseIf Clicked(tabctrl4%)  'tabctrl3% -> tabctrl2% -> tabctrl1% -> #window
       ExamineTabList
 
     ElseIf Clicked(tabctrl5%)  'dialog1% -> #window
       ExamineTabList
 
     ElseIf Clicked(button1%)  'tabctrl5% -> dialog1% -> #window
 
     ElseIf Clicked(button2%)  '#window
 
     ElseIf Clicked(multiedit1%)  'tabctrl4% -> tabctrl3% -> tabctrl2% -> tabctrl1% -> #window
 
     ElseIf Clicked(tabctrl6%)  'tabctrl5% -> dialog1% -> #window
       ExamineTabList
 
     ElseIf Clicked(toolbar1%)  'tabctrl6% -> tabctrl5% -> dialog1% -> #window
 
     ElseIf Clicked(toolbar2%)  'tabctrl1% -> #window
 
     ElseIf Clicked(toolbar3%)  'tabctrl1% -> #window
 
     ElseIf Clicked(button3%)  'tabctrl1% -> #window
 
     ElseIf Clicked(hvscroll1%)  'tabctrl1% -> #window
 
     ElseIf Clicked(hvscroll2%)  'tabctrl1% -> #window
 
     ElseIf Clicked(iconbutton1%)  'tabctrl2% -> tabctrl1% -> #window
 
     ElseIf Clicked(gridbox1%)  'tabctrl2% -> tabctrl1% -> #window
 
     ElseIf Clicked(radiobutton3%)  'tabctrl1% -> #window
 
     ElseIf Clicked(radiobutton4%)  'tabctrl1% -> #window
 
     ElseIf Clicked(radiobutton5%)  'tabctrl1% -> #window
 
     ElseIf Clicked(calendar1%)  'tabctrl1% -> #window
 
     ElseIf Clicked(statuswindow1%)  'dialog1% -> #window
 
     EndIf
 
   EndWhile
 
   Subclass tabctrl2%, 0 : Subclass radiobutton1%, 0 : Subclass checkbox1%, 0 : Subclass tabctrl3%, 0 : Subclass radiobutton2%, 0 
   Subclass checkbox2%, 0 : Subclass tabctrl4%, 0 : Subclass button1%, 0 : Subclass multiedit1%, 0 : Subclass tabctrl6%, 0 
   Subclass toolbar1%, 0 : Subclass toolbar2%, 0 : Subclass toolbar3%, 0 : Subclass button3%, 0 : Subclass GetParent(hvscroll1%), 0 
   Subclass GetParent(hvscroll2%), 0 : Subclass iconbutton1%, 0 : Subclass gridbox1%, 0 : Subclass radiobutton3%, 0 
   Subclass radiobutton4%, 0 : Subclass radiobutton5%, 0 : Subclass calendar1%, 0 
 
 EndProc
 
 Proc Main
 
   CreateImageList
   CreateElements
   CreateTabList
   ExamineTabList
   MainLoop
 
 EndProc
 
 Main
 
 Dispose istab#[]
 End


Gruß, Frank

In der Wut verliert der Mensch seine Intelligenz.



 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 LemonEd - Editor für XProfan  Neu
Frabbing 02.07.11 21:09 
 Re: LemonEd - Editor für XProfan  Neu
Frabbing 04.07.11 13:01 
 Re: LemonEd - Editor für XProfan  Neu
Frabbing 14.08.11 22:03 
 Re: LemonEd - Editor für XProfan  Neu
Horst Horn 19.08.11 08:53 
 Re: LemonEd - Editor für XProfan  Neu
Frabbing 19.08.11 15:13 
 Re: LemonEd - Editor für XProfan  Neu
Frabbing 24.09.11 15:05 
 Re: LemonEd - Editor für XProfan  Neu
Frabbing 04.01.12 14:21 
 Re: LemonEd - Editor für XProfan  Neu
Frabbing 14.01.12 21:31 
 Re: LemonEd - Editor für XProfan  Neu
Frabbing 08.07.12 20:41 
 Re: Jetzt mit visuellem Fenster-Designer "LemonVid"  Neu
Frabbing 25.08.12 10:44 
 Re: Jetzt mit visuellem Fenster-Designer "LemonVid"  Neu
Horst Horn 25.08.12 17:56 
 Re: Jetzt mit visuellem Fenster-Designer "LemonVid"  Neu
Frabbing 26.08.12 11:45 
 Wichtiges Update!  Neu
Frabbing 15.09.12 22:03 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org