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

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

Delphi控件源码

开发平台：

Delphi

BitMenuF.pas：源码内容
  1. unit BitMenuF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, Menus;
  9. type
  10.   TForm1 = class(TForm)
  11.     ShapeDemo: TShape;
  12.     MainMenu1: TMainMenu;
  13.     File1: TMenuItem;
  14.     Exit1: TMenuItem;
  15.     Shape1: TMenuItem;
  16.     Ellipse1: TMenuItem;
  17.     RoundRec1: TMenuItem;
  18.     Rectang1: TMenuItem;
  19.     Color1: TMenuItem;
  20.     Red1: TMenuItem;
  21.     Green1: TMenuItem;
  22.     Blue1: TMenuItem;
  23.     Help1: TMenuItem;
  24.     About1: TMenuItem;
  25.     procedure FormResize(Sender: TObject);
  26.     procedure Exit1Click(Sender: TObject);
  27.     procedure About1Click(Sender: TObject);
  28.     procedure ColorClick(Sender: TObject);
  29.     procedure FormCreate(Sender: TObject);
  30.     procedure Ellipse1Click(Sender: TObject);
  31.     procedure RoundRec1Click(Sender: TObject);
  32.     procedure Rectang1Click(Sender: TObject);
  33.     procedure ColorMeasureItem(Sender: TObject; ACanvas: TCanvas;
  34.       var Width, Height: Integer);
  35.     procedure ColorDrawItem(Sender: TObject; ACanvas: TCanvas;
  36.       ARect: TRect; Selected: Boolean);
  37.     procedure ShapeMeasureItem(Sender: TObject; ACanvas: TCanvas;
  38.       var Width, Height: Integer);
  39.     procedure Ellipse1DrawItem(Sender: TObject; ACanvas: TCanvas;
  40.       ARect: TRect; Selected: Boolean);
  41.     procedure RoundRec1DrawItem(Sender: TObject; ACanvas: TCanvas;
  42.       ARect: TRect; Selected: Boolean);
  43.     procedure Rectang1DrawItem(Sender: TObject; ACanvas: TCanvas;
  44.       ARect: TRect; Selected: Boolean);
  45.   private
  46.     { Private declarations }
  47.   end;
  49. var
  50.   Form1: TForm1;
  52. implementation
  54. {$R *.DFM}
  56. procedure TForm1.FormResize(Sender: TObject);
  57. begin
  58.   ShapeDemo.SetBounds (ClientWidth div 6, ClientHeight div 6,
  59.     2 * ClientWidth div 3, 2 * ClientHeight div 3);
  60. end;
  62. procedure TForm1.Exit1Click(Sender: TObject);
  63. begin
  64.   Close;
  65. end;
  67. procedure TForm1.About1Click(Sender: TObject);
  68. begin
  69.   MessageDlg ('Owner-draw menu example,'#13 +
  70.     'from "Mastering Delphi" by Marco Cant