unitform1.pas

来自「《Delphi实用程序100例》配套书源码盘」· PAS 代码 · 共 73 行

unit unitForm1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    n1: TMenuItem;
    n2: TMenuItem;
    n3: TMenuItem;
    n4: TMenuItem;
    procedure n1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
      Selected: Boolean);
    procedure n2DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
      Selected: Boolean);
    procedure n4DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
      Selected: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.n1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  acanvas.Font.Color := clred;
  if selected then
    SetBkColor(acanvas.handle, clgreen)
  else
    setBkcolor(acanvas.handle, clblue);
  acanvas.TextRect(arect, arect.Left, arect.Top, (sender as tmenuitem).Caption);


end;

procedure TForm1.n2DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  acanvas.Font.Color := clred;
  if selected then
    SetBkColor(acanvas.handle, clgreen)
  else
    setBkcolor(acanvas.handle, clblue);
  acanvas.TextRect(arect, arect.Left, arect.Top, (sender as tmenuitem).Caption);
end;

procedure TForm1.n4DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  acanvas.Font.Color := clred;
  if selected then
    SetBkColor(acanvas.handle, clgreen)
  else
    setBkcolor(acanvas.handle, clblue);
  acanvas.TextRect(arect, arect.Left, arect.Top, (sender as tmenuitem).Caption);

end;

end.