开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DynaMenu.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：5k
源码类别：

Delphi控件源码

开发平台：

Delphi

DynaMenu.pas：源码内容
  1. unit DynaMenu;
  3. interface
  5. uses
  6.   SysUtils, Windows, Classes, Graphics, Forms, Controls,
  7.   StdCtrls, Menus, Dialogs, ExtCtrls;
  9. type
  10.   TFormColorText = class(TForm)
  11.     Label1: TLabel;
  12.     ColorDialog1: TColorDialog;
  13.     MainMenu1: TMainMenu;
  14.     FontDialog1: TFontDialog;
  15.     Options1: TMenuItem;
  16.     Font1: TMenuItem;
  17.     BackColor1: TMenuItem;
  18.     N1: TMenuItem;
  19.     Left1: TMenuItem;
  20.     Center1: TMenuItem;
  21.     Right1: TMenuItem;
  22.     Help1: TMenuItem;
  23.     About1: TMenuItem;
  24.     File1: TMenuItem;
  25.     Exit1: TMenuItem;
  26.     View1: TMenuItem;
  27.     Toolbar1: TMenuItem;
  28.     Panel1: TPanel;
  29.     BtnLeft: TButton;
  30.     BtnFontColor: TButton;
  31.     BtnCenter: TButton;
  32.     BtnBackColor: TButton;
  33.     BtnRight: TButton;
  34.     HideLabel1: TMenuItem;
  35.     N2: TMenuItem;
  36.     FixedFont1: TMenuItem;
  37.     N3: TMenuItem;
  38.     FixedView1: TMenuItem;
  39.     DisableHelp1: TMenuItem;
  40.     procedure About1Click(Sender: TObject);
  41.     procedure Font1Click(Sender: TObject);
  42.     procedure BackColor1Click(Sender: TObject);
  43.     procedure Left1Click(Sender: TObject);
  44.     procedure Center1Click(Sender: TObject);
  45.     procedure Right1Click(Sender: TObject);
  46.     procedure Exit1Click(Sender: TObject);
  47.     procedure Toolbar1Click(Sender: TObject);
  48.     procedure HideLabel1Click(Sender: TObject);
  49.     procedure FixedFont1Click(Sender: TObject);
  50.     procedure FixedView1Click(Sender: TObject);
  51.     procedure DisableHelp1Click(Sender: TObject);
  52.     procedure FormCreate(Sender: TObject);
  53.   public
  54.     procedure SizeItemClick(Sender: TObject);
  55.     procedure SizeClick(Sender: TObject);
  56.   end;
  58. var
  59.   FormColorText: TFormColorText;
  61. implementation
  63. {$R *.DFM}
  65. procedure ToggleCheck (Item: TMenuItem);
  66. begin
  67.   Item.Checked := not Item.Checked;
  68. end;
  70. procedure TFormColorText.About1Click(Sender: TObject);
  71. begin
  72.   MessageDlg ('MenuOne is the first example' + #13 +
  73.     'with a menu of the book ' + #13 +
  74.     '"Mastering Delphi 3" written by Marco Cant