TclMenuFrame - Revision history

Salih at 15:27, 6 November 2025

2025-11-06T15:27:05Z

← Older revision		Revision as of 15:27, 6 November 2025
Line 35:		Line 35:
	TstSideMenu : TClMenuFrame;		TstSideMenu : TClMenuFrame;
	ShowBtn,menuBtn: TClProButton;		ShowBtn,menuBtn: TClProButton;
			MenuItem1, MenuItem2: TClProButton;

	void showMenuFrame;		void showMenuFrame;
Line 54:		Line 55:
	TstSideMenu.MenuBar.Width = 250;		TstSideMenu.MenuBar.Width = 250;
	TstSideMenu.Visible = False;		TstSideMenu.Visible = False;
	TstSideMenu.ClMenuPosition = clLeft; ~~//Default clRight~~		TstSideMenu.ClMenuPosition = clLeft;

	menuBtn= MyForm.AddNewProButton(MyForm,'menuBtn','~~...~~');		menuBtn= MyForm.AddNewProButton(MyForm,'menuBtn','menu');
	menuBtn.Align = AlLeft;		menuBtn.Align = AlLeft;
	menuBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#~~7295ed~~');		menuBtn.Width = 60;
	menuBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#~~ffffff~~');		menuBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#A5C9CA');
			menuBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#2E4F4F');
	menuBtn.clProSettings.TextSettings.Font.Style = [fsBold];		menuBtn.clProSettings.TextSettings.Font.Style = [fsBold];
	menuBtn.clProSettings.IsRound = True;		menuBtn.clProSettings.IsRound = True;
	menuBtn.clProSettings.RoundHeight = 10;		menuBtn.clProSettings.RoundHeight = 10;
	menuBtn.clProSettings.RoundWidth = 10;		menuBtn.clProSettings.RoundWidth = 10;
	menuBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#~~808080~~');		menuBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#C7D8D8');
	menuBtn.clProSettings.BorderWidth = 2;		menuBtn.clProSettings.BorderWidth = 2;
	menuBtn.SetclProSettings(menuBtn.clProSettings);		menuBtn.SetclProSettings(menuBtn.clProSettings);
	MyForm.AddNewEvent(menuBtn,tbeOnClick,'showMenuFrame');		MyForm.AddNewEvent(menuBtn,tbeOnClick,'showMenuFrame');

	ShowBtn= MyForm.AddNewProButton(TstSideMenu.VertScrollBox,'ShowBtn','~~Show~~');		ShowBtn= MyForm.AddNewProButton(TstSideMenu.VertScrollBox,'ShowBtn','Close');
	ShowBtn.Align = AlTop;		ShowBtn.Align = AlTop;
	ShowBtn.Height = 40;		ShowBtn.Height = 40;
	ShowBtn.Margins.Top = 10;		ShowBtn.Margins.Top = 10;
	ShowBtn.clProSettings.FontHorzAlign = palCenter;		ShowBtn.clProSettings.FontHorzAlign = palCenter;
	ShowBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#~~fc6713~~');		ShowBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E7D4B5');
	ShowBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#~~ffffff~~');		ShowBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');
	ShowBtn.clProSettings.TextSettings.Font.Style = [fsBold];		ShowBtn.clProSettings.TextSettings.Font.Style = [fsBold];
	ShowBtn.clProSettings.IsRound = True;		ShowBtn.clProSettings.IsRound = True;
Line 83:		Line 85:
	ShowBtn.SetclProSettings(ShowBtn.clProSettings);		ShowBtn.SetclProSettings(ShowBtn.clProSettings);
	MyForm.AddNewEvent(ShowBtn,tbeOnClick,'showShowBtn');		MyForm.AddNewEvent(ShowBtn,tbeOnClick,'showShowBtn');

			MenuItem1 = MyForm.AddNewProButton(TstSideMenu.VertScrollBox,'MenuItem1','Main Page');
			MenuItem1.Align = AlTop;
			MenuItem1.Height = 40;
			MenuItem1.Margins.Top = 15;
			MenuItem1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D2E9E9');
			MenuItem1.clProSettings.FontColor = clAlphaColor.clHexToColor('#2E4F4F');
			MenuItem1.clProSettings.IsRound = True;
			MenuItem1.clProSettings.RoundHeight = 8;
			MenuItem1.clProSettings.RoundWidth = 8;
			MenuItem1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#C7D8D8');
			MenuItem1.SetclProSettings(MenuItem1.clProSettings);

			MenuItem2 = MyForm.AddNewProButton(TstSideMenu.VertScrollBox,'MenuItem2','Settings');
			MenuItem2.Align = AlTop;
			MenuItem2.Height = 40;
			MenuItem2.Margins.Top = 10;
			MenuItem2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F6EACB');
			MenuItem2.clProSettings.FontColor = clAlphaColor.clHexToColor('#2E4F4F');
			MenuItem2.clProSettings.IsRound = True;
			MenuItem2.clProSettings.RoundHeight = 8;
			MenuItem2.clProSettings.RoundWidth = 8;
			MenuItem2.clProSettings.BorderColor = clAlphaColor.clHexToColor('#EAD7BB');
			MenuItem2.SetclProSettings(MenuItem2.clProSettings);

	MyForm.Run;		MyForm.Run;
	}		}

	</pre>		</pre>

			<b>Output</b><br>

			[[File:TclMenuFrame.gif\|frameless\|thumb\|600px]]


	<h2> See Also </h2>		<h2> See Also </h2>

ClomosyAdmin at 13:26, 24 December 2024

2024-12-24T13:26:11Z

← Older revision		Revision as of 13:26, 24 December 2024
Line 92:		Line 92:
	* [[Object Properties]]		* [[Object Properties]]
	* [[AddNewEvent]]		* [[AddNewEvent]]
			{{#seo:\|title=TclMenuFrame Using - Clomosy Docs}}
	{{#seo:\|description=Explore TclMenuFrame on Clomosy. Learn about its structure, functionality, and integration for building efficient menu-driven applications.}}		{{#seo:\|description=Explore TclMenuFrame on Clomosy. Learn about its structure, functionality, and integration for building efficient menu-driven applications.}}

ClomosyAdmin at 06:37, 24 December 2024

2024-12-24T06:37:39Z

← Older revision		Revision as of 06:37, 24 December 2024
Line 92:		Line 92:
	* [[Object Properties]]		* [[Object Properties]]
	* [[AddNewEvent]]		* [[AddNewEvent]]
			{{#seo:\|description=Explore TclMenuFrame on Clomosy. Learn about its structure, functionality, and integration for building efficient menu-driven applications.}}

ClomosyManager at 15:16, 20 November 2024

2024-11-20T15:16:50Z

← Older revision		Revision as of 15:16, 20 November 2024
Line 32:		Line 32:
	<pre>		<pre>
	Var		Var
	MyForm : TclForm;		MyForm : TclForm;
	TstSideMenu : TClMenuFrame;		TstSideMenu : TClMenuFrame;
	ShowBtn,menuBtn: TClProButton;		ShowBtn,menuBtn: TClProButton;

	void showMenuFrame;		void showMenuFrame;
	{		{
	TstSideMenu.Visible = True;		TstSideMenu.Visible = True;
	clRTMethod(TstSideMenu, 'BringTofront');		clRTMethod(TstSideMenu, 'BringTofront');
	}		}

	void showShowBtn;		void showShowBtn;
	{		{
	TstSideMenu.Visible = False;		TstSideMenu.Visible = False;
	clRTMethod(menuBtn, 'BringTofront');		clRTMethod(menuBtn, 'BringTofront');
	}		}

	{		{
	MyForm = TclForm.Create(Self);		MyForm = TclForm.Create(Self);
	TstSideMenu = MyForm.AddNewMenuFrame(MyForm,'TstSideMenu');		TstSideMenu = MyForm.AddNewMenuFrame(MyForm,'TstSideMenu');
	TstSideMenu.Align = alContents;		TstSideMenu.Align = alContents;
	TstSideMenu.MenuBar.Width = 250;		TstSideMenu.MenuBar.Width = 250;
	TstSideMenu.Visible = False;		TstSideMenu.Visible = False;
	TstSideMenu.ClMenuPosition = clLeft; //Default clRight		TstSideMenu.ClMenuPosition = clLeft; //Default clRight

	menuBtn= MyForm.AddNewProButton(MyForm,'menuBtn','...');		menuBtn= MyForm.AddNewProButton(MyForm,'menuBtn','...');
	~~clComponent~~.~~SetupComponent(menuBtn,'{"~~Align~~":"Left",~~		menuBtn.Align = AlLeft;
	"BackgroundColor~~":"~~#7295ed~~", "TextColor":"~~#ffffff",		menuBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7295ed');
	~~"TextBold":"yes","~~RoundHeight":10,"RoundWidth":10}');		menuBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
	MyForm.AddNewEvent(menuBtn,tbeOnClick,'showMenuFrame');		menuBtn.clProSettings.TextSettings.Font.Style = [fsBold];
			menuBtn.clProSettings.IsRound = True;
	ShowBtn= MyForm.AddNewProButton(TstSideMenu.VertScrollBox,'ShowBtn','Show');		menuBtn.clProSettings.RoundHeight = 10;
	~~clComponent~~.~~SetupComponent(~~ShowBtn~~,'{"~~Height":40~~,"MarginTop":~~10~~,"Align":"Top","TextHorizontalAlign":"center","~~BackgroundColor~~":"~~#fc6713~~", "TextColor":"~~#ffffff~~","TextBold":"yes","~~RoundHeight":10,"RoundWidth":10}');		menuBtn.clProSettings.RoundWidth = 10;
	MyForm.AddNewEvent(ShowBtn,tbeOnClick,'showShowBtn');		menuBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#808080');
			menuBtn.clProSettings.BorderWidth = 2;
	MyForm.Run;		menuBtn.SetclProSettings(menuBtn.clProSettings);
			MyForm.AddNewEvent(menuBtn,tbeOnClick,'showMenuFrame');

			ShowBtn= MyForm.AddNewProButton(TstSideMenu.VertScrollBox,'ShowBtn','Show');
			ShowBtn.Align = AlTop;
			ShowBtn.Height = 40;
			ShowBtn.Margins.Top = 10;
			ShowBtn.clProSettings.FontHorzAlign = palCenter;
			ShowBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#fc6713');
			ShowBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');
			ShowBtn.clProSettings.TextSettings.Font.Style = [fsBold];
			ShowBtn.clProSettings.IsRound = True;
			ShowBtn.clProSettings.RoundHeight = 10;
			ShowBtn.clProSettings.RoundWidth = 10;
			ShowBtn.clProSettings.BorderWidth = 2;
			ShowBtn.SetclProSettings(ShowBtn.clProSettings);
			MyForm.AddNewEvent(ShowBtn,tbeOnClick,'showShowBtn');

			MyForm.Run;
	}		}
	</pre>		</pre>

ClomosyManager at 13:38, 14 November 2024

2024-11-14T13:38:52Z

← Older revision		Revision as of 13:38, 14 November 2024
Line 3:		Line 3:
	</div>		</div>

	<span style="color:blue"><b>AComponent</b></span> : ~~The variable name~~ of the defined ~~component is written. Here you have to write the name of the component you want in it~~.<br>		<span style="color:blue"><b>AComponent</b></span> : Specifies the parent of the object to be defined.<br>

	<span style="color:blue"><b>xName</b></span> : The name of the defined component should be written.<br>		<span style="color:blue"><b>xName</b></span> : The name of the defined component should be written.<br>

ClomosyManager at 12:55, 7 November 2024

2024-11-07T12:55:26Z

Show changes

ClomosyManager at 11:54, 22 August 2024

2024-08-22T11:54:00Z

@@ Line 22: / Line 22: @@
 '''Example:'''
 :'''TRObject Syntax'''
@@ Line 99: / Line 61: @@
   MyForm.Run;
+  }

ClomosyManager at 06:59, 6 February 2024

2024-02-06T06:59:17Z

← Older revision		Revision as of 06:59, 6 February 2024
Line 22:		Line 22:

	'''Example:'''		'''Example:'''
	:''~~Basic~~ Syntax''		:'''Base Syntax'''
	Var		Var
	MyForm : TclForm;		MyForm : TclForm;
Line 61:		Line 61:
	End;		End;

	:''TRObject Syntax''		:'''TRObject Syntax'''
	Var		Var
	MyForm : TclForm;		MyForm : TclForm;

ClomosyManager at 07:31, 22 December 2023

2023-12-22T07:31:19Z

← Older revision		Revision as of 07:31, 22 December 2023
Line 17:		Line 17:
	\|-		\|-
	\|ClMenuPosition \|\|TstSideMenu.ClMenuPosition := clLeft;\|\|Menu Frame position is set.(Default => clRight)		\|ClMenuPosition \|\|TstSideMenu.ClMenuPosition := clLeft;\|\|Menu Frame position is set.(Default => clRight)
			\|-
			\|VertScrollBox \|\|TstSideMenu.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.
	\|}		\|}

ClomosyManager at 10:13, 5 December 2023

2023-12-05T10:13:51Z

@@ Line 20: / Line 20: @@
 '''Example:'''
   Var
    MyForm : TclForm;
@@ Line 57: / Line 58: @@
    MyForm.Run;
   End;