B
bart.syryn
Guest
Hi Matt, This is the code that is in a procedure of the first Embedded ABL Window: DEFINE VARIABLE L_crplanningform AS crplanningform NO-UNDO. L_crplanningform = NEW crplanningform(). L_crplanningform:MdiParent = toolsclass:instance:MenuFormHandle. L_crplanningform:TEXT = "Planningsbord". L_crplanningform:show(). The constructor of the second (called) form/window: CONSTRUCTOR PUBLIC crplanningform (): SUPER(). InitializeComponent(). THIS-OBJECT:ComponentsCollection:ADD(THIS-OBJECT:components). windowcontainer1:BringToFront(). ASSIGN G_PrgNaam = "crplanning". RUN value(G_PrgNaam) PERSISTENT SET hABLProcedure1 ({incl\pmrun.i}). ASSIGN hABLWindow1 = hABLProcedure1:CURRENT-WINDOW G_designwidth = hABLWindow1:WIDTH-PIXELS G_designheight = hABLWindow1:HEIGHT-PIXELS. windowSize1 = NEW Size (hABLWindow1:WIDTH-PIXELS, hABLWindow1:HEIGHT-PIXELS). WindowContainer1:EmbeddedWindow = hABLWindow1. WindowContainer1:Size = windowSize1. WindowContainer1:Show( ). RUN enable_UI IN hABLProcedure1. RUN Init-prog IN hABLProcedure1. CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END CONSTRUCTOR.
Continue reading...
Continue reading...