Folder / Tab on my own created form

Marcel Kieboom

Hi there,
I was wondering if anyone could help me with the following problem. I created a new form in C# and I was wondering if it's possible to add multiple folders/tabs.
In the attached image you're able to see that the pointer of my mouse show that there is a tab however it is not visible.
Does anyone know what the problem is? And how could I attach grid's and other information to the different folders?

Kind regards

Exception threadEx = null;
try
{
Form newForm = Form.CreateNewForm("TCForm", "TCForm" + SwissAddonFramework.Utils.UniqueStringGenerator.Next());
Grid myGrid = Grid.CreateNew("GRID_01");
newForm.Value = "Planning";
newForm.Width = 950;
newForm.Height = 800;
newForm.PaneLevel = 80;
newForm.Visible = true;
newForm.Load();
Folder Tab1 = Folder.CreateNew("PLAN_TAB01");
Folder Tab2 = Folder.CreateNew("PLAN_TAB02");
Tab1.Value = "TAB 01";
Tab1.SetSizeAndPosition(10, 80, 700, 500);
Tab1.AffectsFormMode = false;
Tab1.Pane = 80;
Tab1.FromPane = 80;
Tab1.ToPane = 80;
Tab2.Value = "TAB 02";
Tab2.SetSizeAndPosition(50, 80, 700, 500);
Tab2.AffectsFormMode = false;
Tab2.Pane = 82;
Tab2.FromPane = 80;
Tab2.ToPane = 80;
newForm.AddItem(Tab1);
newForm.AddItem(Tab2);
newForm.Update();
Button btn = Button.CreateNew();
btn.UniqueID = "BTN_01";
btn.Top = 730;
btn.Left = 850;
btn.Value = "OK";
newForm.AddItem(btn);
btn.AddHandler_Click(SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, new SwissAddonFramework.UI.EventHandling.ItemEvents.ClickEventHandler(delegate(SwissAddonFramework.UI.EventHandling.ItemEvents.Click eventVal) {
newForm.Close();
}));
Tab1.AddHandler_Click(SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, new SwissAddonFramework.UI.EventHandling.ItemEvents.ClickEventHandler(delegate(SwissAddonFramework.UI.EventHandling.ItemEvents.Click eventVal) {
MessageBox.Show("Tab 01","OK");
pVal.Form.Freeze(true);
eventVal.Form.PaneLevel = 81;
pVal.Form.Freeze(false);
}));
Tab2.AddHandler_Click(SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, new SwissAddonFramework.UI.EventHandling.ItemEvents.ClickEventHandler(delegate(SwissAddonFramework.UI.EventHandling.ItemEvents.Click eventVal) {
MessageBox.Show("Tab 02","OK");
pVal.Form.Freeze(true);
eventVal.Form.PaneLevel = 82;
pVal.Form.Freeze(false);
}));
newForm.Update();
}
catch (Exception ex)
{
threadEx = ex;
SwissAddonFramework.UI.Dialogs.MessageBox.Show(threadEx.ToString(), "OK");
return;
}

Attachment
[url=http://www.coresystems.ch/wp-content/../wp-content/forum-image-uploads/mkieboom/2011-01-17_170032.png]2011-01-17_170032.png[/url]

Paolo Manfrin

Hi Marcel,
please define a UserDataSource to be bind to the different folders you create and add a rectangle to show the container.

Please note that the folders are defined before the formload.

Kind Regards,
Paolo

Exception threadEx = null;
try
{
Form newForm = Form.CreateNewForm("TCForm", "TCForm" + SwissAddonFramework.Utils.UniqueStringGenerator.Next());
newForm.Value = "Planning";
newForm.Width = 400;
newForm.Height = 625;

// Create a User DataSource
UserDatasource oUDS = UserDatasource.CreateNew("folder");
newForm.AddUserDatasource(oUDS);

Folder Tab1 = Folder.CreateNew("TAB01");
Tab1.SetSizeAndPosition(5, 5, 150, 22);
Tab1.Value = "TAB 01";
Tab1.Pane = 1;
Tab1.ValOn = "TAB01";
Tab1.DataBind = DataBind.CreateNew("folder");
Tab1.DataBind.DataBound = true;
newForm.AddItem(Tab1);
Tab1.AddHandler_Click(SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, new SwissAddonFramework.UI.EventHandling.ItemEvents.ClickEventHandler(delegate(SwissAddonFramework.UI.EventHandling.ItemEvents.Click eventVal) {
eventVal.Form.PaneLevel = 1;
}));

Folder Tab2 = Folder.CreateNew("TAB02");
Tab2.SetSizeAndPosition(Tab1);
Tab2.Left += Tab1.Width;
Tab2.Value = "TAB 02";
Tab2.Pane = 2;
Tab2.ValOn = "TAB02";
Tab2.DataBind = DataBind.CreateNew("folder");
Tab2.DataBind.DataBound = true;
newForm.AddItem(Tab2);
Tab2.AddHandler_Click(SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, new SwissAddonFramework.UI.EventHandling.ItemEvents.ClickEventHandler(delegate(SwissAddonFramework.UI.EventHandling.ItemEvents.Click eventVal) {
eventVal.Form.PaneLevel = 2;
}));



Rectangle rect = Rectangle.CreateNew();
rect.UniqueID = "rectFolder";
rect.SetSizeAndPosition(5, 26, 603, 310);
newForm.AddItem(rect);

newForm.Load();
Tab2.GroupWith(Tab1.UniqueID);
newForm.Update();


}
catch (Exception ex)
{
threadEx = ex;
SwissAddonFramework.UI.Dialogs.MessageBox.Show(threadEx.ToString(), "OK");
return;
}

Marcel Kieboom

Hi Paolo,

Thank you very much for your quick reply.
I used it already and it works perfect!!!

Kind regards,

Marcel Kieboom