mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 22:45:39 +02:00
55 lines
905 B
ObjectPascal
55 lines
905 B
ObjectPascal
unit CanvasPanel;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
ExtCtrls;
|
|
|
|
type
|
|
//TCanvasPanel = class(TcustomPanel)
|
|
TCanvasPanel = class(TCustomPanel)
|
|
private
|
|
{ Private declarations }
|
|
FOnPaint: TNotifyEvent;
|
|
protected
|
|
{ Protected declarations }
|
|
public
|
|
{ Public declarations }
|
|
property Canvas;
|
|
Procedure paint;override;
|
|
published
|
|
{ Published declarations }
|
|
Property BevelInner;
|
|
Property BevelOuter;
|
|
Property Color;
|
|
Property DragMode;
|
|
Property DragCursor;
|
|
Property OnPaint:TNotifyEvent read FOnpaint write FOnpaint;
|
|
Property OnStartDrag;
|
|
Property OnEndDrag;
|
|
Property OnDragOver;
|
|
end;
|
|
|
|
implementation
|
|
|
|
Procedure TCanvasPanel.Paint;
|
|
Begin
|
|
inherited paint;
|
|
If assigned (FOnPaint) then FOnpaint(self);
|
|
end;
|
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|