Class TStateConnector (unit statmach) |
Inherits from
TObject
constructor Create(AOwner: TStateControl; OwnerRole: TStatePathOwner);
- ****************************************************************************** ** ** TStateConnector **
function GetLines(var Lines: TConnectorLines): Boolean;
function HitTest(Mouse: TPoint): Boolean;
class function MakeRect(pa, pb: TPoint): TRect;
Switch to auto if position makes path impossible
procedure Paint;
procedure PaintFlipLine;
LogBrush.
class function RectCenter(r: TRect): TPoint;
function GetPeer(Index: integer): TStateControl;
procedure SetPeer(Index: integer; Value: TStateControl);
property Offset : integer
property Path : TStatePath
property ActualPath : TStatePath
property Destination : TStateControl
property PeerNode : TStateControl
property Selected : Boolean
property Source : TStateControl
BoundsRect : TRect;
FActualPath : TStatePath;
FDestination : TStateControl;
FOffset : integer;
FOwner : TStatePathOwner;
FPath : TStatePath;
FSelected : Boolean;
FSource : TStateControl;
constructor Create(AOwner: TStateControl; OwnerRole: TStatePathOwner);
****************************************************************************** ** ** TStateConnector **
function GetLines(var Lines: TConnectorLines): Boolean;
function HitTest(Mouse: TPoint): Boolean;
class function MakeRect(pa, pb: TPoint): TRect;
Switch to auto if position makes path impossible
procedure Paint;
procedure PaintFlipLine;
LogBrush.lbStyle := BS_SOLID;
LogBrush.lbColor := clGreen;
Source.StateMachine.Canvas.Pen.Handle := ExtCreatePen(
PS_GEOMETRIC or PS_SOLID or PS_ENDCAP_FLAT or PS_JOIN_ROUND, // PS_JOIN_BEVEL,
Source.StateMachine.Canvas.Pen.Width,
LogBrush, // CONST LOGBRUSH * lplb, // address of structure for brush attributes
0, nil);
class function RectCenter(r: TRect): TPoint;
function GetPeer(Index: integer): TStateControl;
procedure SetPeer(Index: integer; Value: TStateControl);
property Offset : integer
property Path : TStatePath
property ActualPath : TStatePath
property Destination : TStateControl
property PeerNode : TStateControl
property Selected : Boolean
property Source : TStateControl
BoundsRect : TRect;
FActualPath : TStatePath;
FDestination : TStateControl;
FOffset : integer;
FOwner : TStatePathOwner;
FPath : TStatePath;
FSelected : Boolean;
FSource : TStateControl;