S
shireeshn
Guest
DEFINE PRIVATE VARIABLE myTabPage AS System.Windows.Forms.TabPage NO-UNDO. DEFINE PRIVATE VARIABLE checkbox AS System.Windows.Forms.CheckBox NO-UNDO. DEFINE PRIVATE VARIABLE K_LABEL AS System.Windows.Forms.Label NO-UNDO. DEFINE PRIVATE VARIABLE KGroupBox AS System.Windows.Forms.GroupBox NO-UNDO. METHOD PUBLIC VOID AddNewTab(TabSection AS CHAR ,counter AS INT): ASSIGN myTabPage = NEW System.Windows.Forms.TabPage(TabSection) myTabPage:TabIndex = counter myTabPage:Location = NEW System.Drawing.Point(4, 22). myTabPage
adding = NEW System.Windows.Forms.Padding(3). myTabPage:Size = NEW System.Drawing.Size(561, 323). myTabPage:UseVisualStyleBackColor = TRUE. . END METHOD. METHOD PUBLIC VOID AddNewGroupbox(postFix AS CHAR,Counter AS INT): ASSIGN objName = "GB" + "_" + postFix + "_" + STRING(Counter) KGroupBox = NEW System.Windows.Forms.GroupBox() KGroupBox:Location = NEW System.Drawing.Point(GUI.PM.Kiosk_UI_Helper:CUR_X, GUI.PM.Kiosk_UI_Helper:CUR_Y) KGroupBox:Name = objName KGroupBox:Size = NEW System.Drawing.Size(GUI.PM.Kiosk_UI_Helper:CUR_H, GUI.PM.Kiosk_UI_Helper:CUR_W) KGroupBox:UseCompatibleTextRendering = TRUE . myTabPage:Controls:Add(KGroupBox). END METHOD. METHOD PUBLIC VOID AddNewLabel(klabel AS CHAR,postFix AS CHAR): ASSIGN objName = "lbl" + "_" + klabel + "_" + postFix K_LABEL = NEW System.Windows.Forms.Label() K_LABEL:Location = NEW System.Drawing.Point(GUI.PM.Kiosk_UI_Helper:CUR_X, GUI.PM.Kiosk_UI_Helper:CUR_Y) K_LABEL:Name = objName K_LABEL:Size = NEW System.Drawing.Size(GUI.PM.Kiosk_UI_Helper:CUR_H, GUI.PM.Kiosk_UI_Helper:CUR_W) K_LABEL:Text = klabel . IF klabel = "Display" OR klabel = "Required" THEN K_LABEL:Font = NEW System.Drawing.Font("Segoe UI", Progress.Util.CastUtil:ToSingle(8.25), System.Drawing.FontStyle:Bold, System.Drawing.GraphicsUnitoint, System.Convert:ToByte(0)). KGroupBox:Controls:Add(K_LABEL). END METHOD. METHOD PUBLIC VOID AddNewCheckbox(kLabel AS CHAR,postFix AS CHAR,DispReq AS CHAR): ASSIGN objName = "CB" + DispReq + "_" + REPLACE(klabel," ","") + "_" + postFix checkbox = NEW System.Windows.Forms.CheckBox() checkbox:Location = NEW System.Drawing.Point(GUI.PM.Kiosk_UI_Helper:CUR_X, GUI.PM.Kiosk_UI_Helper:CUR_Y) checkbox:Name = objName checkbox:Size = NEW System.Drawing.Size(GUI.PM.Kiosk_UI_Helper:CUR_H, GUI.PM.Kiosk_UI_Helper:CUR_W) checkbox:TabIndex = GUI.PM.Kiosk_UI_Helper:TAB_INDEX checkbox:UseCompatibleTextRendering = TRUE checkbox:UseVisualStyleBackColor = TRUE ttKiosk_Labels.typeObj = checkbox ttKiosk_Labels.objName = objName . /* CAST(KGroupBox,System.Windows.Forms.GroupBox):ITEM[1]:checkbox. */ checkbox:CheckedChanged:Subscribe(checkbox_Click). KGroupBox:Controls:Add(checkbox). END METHOD. My request to create a Folder tab dyamically and on each tab, dynamically creating checkboxs based on the table data. This is working fine till creating .net controls placing dynamically. but when i try to save, i am not getting the object of each checkbox. i looking for container control example so that i can loop through the objects. can any one help me on this. Thanks & Regards Shireesh
Continue reading...
adding = NEW System.Windows.Forms.Padding(3). myTabPage:Size = NEW System.Drawing.Size(561, 323). myTabPage:UseVisualStyleBackColor = TRUE. . END METHOD. METHOD PUBLIC VOID AddNewGroupbox(postFix AS CHAR,Counter AS INT): ASSIGN objName = "GB" + "_" + postFix + "_" + STRING(Counter) KGroupBox = NEW System.Windows.Forms.GroupBox() KGroupBox:Location = NEW System.Drawing.Point(GUI.PM.Kiosk_UI_Helper:CUR_X, GUI.PM.Kiosk_UI_Helper:CUR_Y) KGroupBox:Name = objName KGroupBox:Size = NEW System.Drawing.Size(GUI.PM.Kiosk_UI_Helper:CUR_H, GUI.PM.Kiosk_UI_Helper:CUR_W) KGroupBox:UseCompatibleTextRendering = TRUE . myTabPage:Controls:Add(KGroupBox). END METHOD. METHOD PUBLIC VOID AddNewLabel(klabel AS CHAR,postFix AS CHAR): ASSIGN objName = "lbl" + "_" + klabel + "_" + postFix K_LABEL = NEW System.Windows.Forms.Label() K_LABEL:Location = NEW System.Drawing.Point(GUI.PM.Kiosk_UI_Helper:CUR_X, GUI.PM.Kiosk_UI_Helper:CUR_Y) K_LABEL:Name = objName K_LABEL:Size = NEW System.Drawing.Size(GUI.PM.Kiosk_UI_Helper:CUR_H, GUI.PM.Kiosk_UI_Helper:CUR_W) K_LABEL:Text = klabel . IF klabel = "Display" OR klabel = "Required" THEN K_LABEL:Font = NEW System.Drawing.Font("Segoe UI", Progress.Util.CastUtil:ToSingle(8.25), System.Drawing.FontStyle:Bold, System.Drawing.GraphicsUnitoint, System.Convert:ToByte(0)). KGroupBox:Controls:Add(K_LABEL). END METHOD. METHOD PUBLIC VOID AddNewCheckbox(kLabel AS CHAR,postFix AS CHAR,DispReq AS CHAR): ASSIGN objName = "CB" + DispReq + "_" + REPLACE(klabel," ","") + "_" + postFix checkbox = NEW System.Windows.Forms.CheckBox() checkbox:Location = NEW System.Drawing.Point(GUI.PM.Kiosk_UI_Helper:CUR_X, GUI.PM.Kiosk_UI_Helper:CUR_Y) checkbox:Name = objName checkbox:Size = NEW System.Drawing.Size(GUI.PM.Kiosk_UI_Helper:CUR_H, GUI.PM.Kiosk_UI_Helper:CUR_W) checkbox:TabIndex = GUI.PM.Kiosk_UI_Helper:TAB_INDEX checkbox:UseCompatibleTextRendering = TRUE checkbox:UseVisualStyleBackColor = TRUE ttKiosk_Labels.typeObj = checkbox ttKiosk_Labels.objName = objName . /* CAST(KGroupBox,System.Windows.Forms.GroupBox):ITEM[1]:checkbox. */ checkbox:CheckedChanged:Subscribe(checkbox_Click). KGroupBox:Controls:Add(checkbox). END METHOD. My request to create a Folder tab dyamically and on each tab, dynamically creating checkboxs based on the table data. This is working fine till creating .net controls placing dynamically. but when i try to save, i am not getting the object of each checkbox. i looking for container control example so that i can loop through the objects. can any one help me on this. Thanks & Regards ShireeshContinue reading...