unit1.pas

来自「主要是对Bitmap的图片进行处理」· PAS 代码 · 共 60 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    NO1: TMenuItem;
    ssssssss1: TMenuItem;
    ssssssssss1: TMenuItem;
    ITEM31: TMenuItem;
    procedure NO1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width,
      Height: Integer);
    procedure NO1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
      Selected: Boolean);
    procedure Id3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.NO1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin

Width := NO1.Bitmap.Width-12 ;
Height:= NO1.Bitmap.Height ;
end;

procedure TForm1.NO1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
Acanvas.Draw(ARect.left,ARect.top,NO1.Bitmap);
end;

procedure TForm1.Id3Click(Sender: TObject);
begin
Close();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
PopupMenu1.OwnerDraw :=True;
end;

end.