文件名称：流程图控件
文件大小：52KB
文件格式：RAR
更新时间：2018-11-18 07:12:09
流程图
unit ArrowGraphicControlTL; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus;//,bsSkinCtrls; type TArrowDirection=(adUp,adDown,adLeft,adRight,adleftX,adRightX,adX,adLine,adLineX,adLineY, adLineXX,adLineYY,adLineZ); TArrowGraphicControlTL=class(TCustomControl) //TCustomControl,TGraphicControl,TbsSkinPanel private FPen:TPen; FBrush:TBrush; FColor:TColor; FArrowHeight:integer; FFilled:Boolean; FDirection:TArrowDirection; FArrowDblClick:TNotifyEvent; FPopMenu:TPopupMenu; procedure SetPen(Value:TPen); procedure SetBrush(Value:TBrush); procedure SetColor(Value:TColor); procedure RepaintRequest(Sender:TObject); procedure SetArrowHeight(Value:integer); procedure SetFilled(value:Boolean); procedure SetDirection(Value:TArrowDirection); //消息处理双击 procedure WMLButtonDlbClk(var Msg:TWMLButtonDblClk); message wm_LButtonDblClk; //消息处理双击 protected procedure Paint;override;
【文件预览】：
cXArrowGraphicControlTL
----__history()
--------ArrowGraphicControlTLPK.dpk.~2~(584B)
--------ArrowGraphicControlTL.pas.~108~(16KB)
--------ArrowGraphicControlTLPK.dpk.~3~(608B)
--------ArrowGraphicControlTL.pas.~113~(16KB)
--------ArrowGraphicControlTL.pas.~110~(16KB)
--------ArrowGraphicControlTL.pas.~107~(16KB)
--------ArrowGraphicControlTLPK.dpk.~1~(576B)
--------ArrowGraphicControlTL.pas.~109~(16KB)
--------ArrowGraphicControlTL.pas.~114~(16KB)
--------ArrowGraphicControlTL.pas.~112~(16KB)
--------ArrowGraphicControlTL.pas.~115~(16KB)
--------ArrowGraphicControlTL.pas.~111~(16KB)
--------ArrowGraphicControlTL.pas.~116~(16KB)
----ArrowGraphicControlTLPK.res(6KB)
----ArrowGraphicControlTLPK.identcache(76B)
----ArrowGraphicControlTLPK.dpk(610B)
----ArrowGraphicControlTLPK.dproj.local(315B)
----ArrowGraphicControlTLPK.dcu(3KB)
----ArrowGraphicControlTLPK.dproj(19KB)
----ArrowGraphicControlTLPK.skincfg(892B)
----ArrowGraphicControlTL.pas(16KB)
----ArrowGraphicControlTL.dcu(17KB)