|
;
property Brush: TBrush read FBrush write SetBrush;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Constraints;
property ParentShowHint;
property Pen: TPen read FPen write SetPen;
property Shape: TShapeType read FShape write SetShape default stRectangle;
property ShowHint;
property Visible;
property OnContextPopup;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDock;
property OnStartDrag;
end;
implementation
//构造函数，ControlStyle确定控件的特征，这里是加上csReplicatable
//使该控件可以用PaintTo方法把它画到一个任意的画布中
//另外还指定Pen和Brush对象的OnChange事件的方法指针给StyleChanged;
constructor TShapeEx.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csReplicatable];
Width := 65;
Height := 65;
FPen := TPen.Create;
FPen.OnChange := StyleChanged;
FBrush := TBrush.Create;
FBrush.OnChange := StyleChanged;
end;
destructor TShapeEx.Destroy;
begin
FPen.Free;
FBrush.Free;
inherited Destroy;
end;
//最重要函数，控件就是以这个函数画出来的。
procedure TShapeEx.Paint;
var
//X:左上角X， Y：左上角Y， W：宽， Y：高 S：宽高中大的值
X, Y, W, H, S: Integer;
begin
//Canvas是父类TGraphicControl的属性，用于画控件
//在画图之前，要进行一些坐标点的确定，
with Canvas do
begin
//如果以控件的四个角来画图形，当Pen太大时，图形的边线
//将比Pen的宽要小一些，所以要进行点的重定位。
Pen := FPen;
Brush := FBrush;
X := Pen.Width div 2;
Y := X;
W := Width - Pen.Width + 1;
H := Height - Pen.Width + 1;
//Pen.width的值为0和为1时是一样的等于一个象素
//如果上面Pen.width等于1，则图形的宽高刚好等于控件的宽高
//如果为0，则图形宽高要大于控件宽高一个象素了，所以有了下面的语句
if Pen.Width = 0 then
begin
Dec(W);
Dec(H);
end;
if W < H then S := W else S := H;
//当图形为正方类型的图形时，需要对图形的位置进行一些调整
if FShape in [stSquare, stRoundSquare, stCircle] then
begin
Inc(X, (W - S) div 2);
Inc(Y, (H - S) div 2);
W := S;
上一页 [1] [2] [3] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
