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:Padding = 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.GraphicsUnit:Point, 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