canvaspanel.pas

来自「delphi语言开发的矢量图形处理对象」· PAS 代码 · 共 78 行

///////////////////////////////////////////////////////////////////////////////
// I needed a panel with a canvas. Install onto Palette
// John Biddiscombe [e-mail]
///////////////////////////////////////////////////////////////////////////////

unit CanvasPanel;

interface

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

type
  TPanelWithCanvas = class(TCustomPanel)
  private
    FOnPaint: TNotifyEvent;
  protected
    procedure Paint; override;
  public
    property Canvas;
  published
    property Align;
    property Alignment;
    property BevelInner;
    property BevelOuter;
    property BevelWidth;
    property BorderWidth;
    property BorderStyle;
    property DragCursor;
    property DragMode;
    property Enabled;
    property Caption;
    property Color;
    property Ctl3D;
    property Font;
    property Locked;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Visible;
    property OnClick;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
    property OnResize;
    property OnStartDrag;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('yhdraw', [TPanelWithCanvas]);
end;

procedure TPanelWithCanvas.Paint;
begin
  inherited paint;
  if assigned(FOnPaint) then FOnPaint(self);
end;

end.