From Clomosy Docs
function AddNewMenuFrame(AComponent: TCLComponent; xName: string): TclMenuFrame;
AComponent : Specifies the parent of the object to be defined.
xName : The name of the defined component should be written.
"TclMenuFrame" is a component frame type in Clomosy. This frame can be used as a menu component and helps create menu options in the application.
| Feature | Use of | Definition |
|---|---|---|
| TClMenuFrame | MenuFrame1 : TClMenuFrame; | A variable belonging to the TclMenuFrame class is created. |
| AddNewMenuFrame | MenuFrame1 = Form1.AddNewMenuFrame(Form1,'MenuFrame1'); | A new Menu Frame is added to the form. |
| Align | MenuFrame1.Align = alContents; | Alignment adjustment is made. |
| MenuBar | MenuFrame1.MenuBar.Width = 250; MenuFrame1.MenuBar.Height = 250; | It defines the main menu of the application and provides users with access to application functions. With this, adjustments such as height and width can be made. |
| Visible | MenuFrame1.Visible = False; | Visibility settings can be adjusted. If it is true it is visible, if it is false it is not visible. |
| ClMenuPosition | MenuFrame1.ClMenuPosition = clLeft; | Menu Frame position is set.(Default => clRight) |
| VertScrollBox | MenuFrame1.VertScrollBox | The MenuFrame provides an area with a vertical scrollbar within. This allows objects placed inside it to be created and displayed vertically one below the other. |
Example
Var
MyForm : TclForm;
TstSideMenu : TClMenuFrame;
ShowBtn,menuBtn: TClProButton;
void showMenuFrame;
{
TstSideMenu.Visible = True;
clRTMethod(TstSideMenu, 'BringTofront');
}
void showShowBtn;
{
TstSideMenu.Visible = False;
clRTMethod(menuBtn, 'BringTofront');
}
{
MyForm = TclForm.Create(Self);
TstSideMenu = MyForm.AddNewMenuFrame(MyForm,'TstSideMenu');
TstSideMenu.Align = alContents;
TstSideMenu.MenuBar.Width = 250;
TstSideMenu.Visible = False;
TstSideMenu.ClMenuPosition = clLeft; //Default clRight
menuBtn= MyForm.AddNewProButton(MyForm,'menuBtn','...');
clComponent.SetupComponent(menuBtn,'{"Align":"Left",
"BackgroundColor":"#7295ed", "TextColor":"#ffffff",
"TextBold":"yes","RoundHeight":10,"RoundWidth":10}');
MyForm.AddNewEvent(menuBtn,tbeOnClick,'showMenuFrame');
ShowBtn= MyForm.AddNewProButton(TstSideMenu.VertScrollBox,'ShowBtn','Show');
clComponent.SetupComponent(ShowBtn,'{"Height":40,"MarginTop":10,"Align":"Top","TextHorizontalAlign":"center","BackgroundColor":"#fc6713", "TextColor":"#ffffff","TextBold":"yes","RoundHeight":10,"RoundWidth":10}');
MyForm.AddNewEvent(ShowBtn,tbeOnClick,'showShowBtn');
MyForm.Run;
}