flexbase.int

FlexGraphics是一套创建矢量图形的VCL组件

   procedure TransformPointIndirect(var P: TPoint);
   procedure UnTransformPoint(var px, py: integer);
   procedure BeginSelectionUpdate(IsTransformation: boolean = false;
     HistoryGroup: THistoryGroupClass = Nil);
   procedure EndSelectionUpdate(IsTransformation: boolean = false;
     HistoryGroup: THistoryGroupClass = Nil);
   function  IsSelected(AControl: TFlexControl): boolean;
   function  Select(AControl: TFlexControl): boolean;
   function  SelectNext: TFlexControl;
   function  SelectPrev: TFlexControl;
   function  Unselect(AControl: TFlexControl): boolean;
   procedure UnselectAll;
   procedure CopyToClipboard;
   procedure CutToClipboard;
   procedure PasteFromClipboard(FlexDocOnly: boolean = false); virtual;
   function  PasteAvailable(FlexDocOnly: boolean = false): boolean; virtual;
   procedure DeleteSelected;
   procedure BackOne;
   procedure ForwardOne;
   procedure ToBack;
   procedure ToFront;
   function  CloneSelected(ShiftX: integer = 0; ShiftY: integer = 0;
     CloneClass: TFlexCloneClass = nil): TFlexClone;
   function  Group(GroupClass: TFlexGroupClass = nil): TFlexGroup;
   function  Ungroup: boolean;
   procedure Zoom(AScale: integer; ZoomRect: PRect);
   procedure Rotate(ADegree: integer; AMirror: boolean);
   procedure Translate(var TranslateInfo: TTranslateInfo);
   procedure MoveSelected(ShiftX, ShiftY: integer);
   procedure ResizeSelected(DeltaX, DeltaY: integer;
     Proportional: boolean = false; UseGrid: boolean = true;
     ResizeCursor: TResizeCursor = rcrBottomRight;
     UseDefaultSnap: boolean = true;
     ProportionalToMax: boolean = false); virtual;
   procedure Duplicate(ShiftX, ShiftY: integer);
   procedure AlignSelected(Align: TFlexAlign);
   function  IsEditPointsVisible: boolean;
   function  EditPoints(Func: TPathEditFunc;
     Params: PPathEditParams = Nil): boolean;
   function  BreakApartSelected: boolean;
   function  CombineSelected: boolean;
   function  FlattenSelected(const Curvature: single): boolean;
   function  ConvertSelectedToCurves: boolean;
   procedure SelectPoint(Index: integer);
   procedure UnselectPoint(Index: integer);
   procedure UnselectAllPoints;
   procedure DeleteSelectedPoints;
   property  ToolMode: TFlexToolMode read FToolMode write SetToolMode;
   property  History: TFlexPanelHistory read FHistory;
   property  Origin: TPoint read FOrigin;
   property  ClientDocRect: TRect read FClientDocRect;
   property  Layers: TFlexLayers read FLayers;
   property  ActiveLayer: TFlexLayer read FActiveLayer write SetActiveLayer;
   property  Schemes: TFlexSchemes read FSchemes;
   property  ActiveScheme: TFlexCustomScheme read FActiveScheme
     write SetActiveScheme;
   property  DefaultScheme: TFlexCustomScheme read GetDefaultScheme;
   property  SelectedCount: integer read GetSelectedCount;
   property  Selected[Index: integer]: TFlexControl read GetSelected;
   property  SelectedRange: TRect read FSelRect;
   property  SelectionUpdateCounter: integer read FSelUpdateCounter;
   property  InDesign: boolean read FInDesign write SetInDesign;
   property  Modified: boolean read FModified write FModified;
   property  IsLoading: boolean read GetIsLoading;
   property  GridControl: TFlexGrid read FGridControl write SetGridControl;
   property  PaintWidth: integer read FPaintWidth;
   property  PaintHeight: integer read FPaintHeight;
   property  PaintRect: TRect read FPaintRect;
   property  PaintForExport: boolean read FPaintForExport;
   property  PaintSchemeBackground: boolean read FPaintSchemeBackground;
   property  DocFrameVisible: boolean read GetDocFrameVisible;
   property  PropRefList: TPropRefList read FRefPropsList;
   property  CreatingControlClass: TFlexControlClass
     read FCreatingControlClass write SetCreatingControlClass;
   property  CppCreatingControlClass: cardinal
     read GetCppCreatingControlClass write SetCppCreatingControlClass;
   property  MouseControl: TFlexControl read FMouseControl;
   property  MouseSubControl: TFlexControl read FMouseSubControl;
   property  EditPointControl: TFlexControl read FEditPointControl
     write SetEditPointControl;
   property  EditPointsCaps: TPathEditFuncs read GetEditPointsCaps;
   property  EditPointSelected[Index: integer]: boolean
     read GetEditPointSelected write SetEditPointSelected;
   property  EditPointSelectedTotal: integer read FEditPointSelCount;
   property  DefaultLinkPoint: TLinkPointInfo read FDefaultLinkPoint;
   property  UseOriginalBezier: boolean read FUseOriginalBezier;
   property  UseImageClipTransparent: boolean read FUseImageClipTransparent;
   property  NotifyLink: TNotifyLink read GetNotifyLink write FNotifyLink;
  published
   property  AutoDragEnabled: boolean read FAutoDragEnabled write FAutoDragEnabled
     default false;
   property  AutoZoom: boolean read FAutoZoom write SetAutoZoom default false;
   property  Scale: integer read FScale write SetScale default 100;
   //property  Viewing: boolean read FViewing write FViewing;
   property  DocWidth: integer read FDocWidth write SetDocWidth;
   property  DocHeight: integer read FDocHeight write SetDocHeight;
   property  DocFrameColor: TColor read FDocFrameColor write SetDocFrameColor;
   property  DocShadowColor: TColor read FDocShadowColor write SetDocShadowColor;
   property  DocSpaceBrush: TBrush read FDocSpaceBrush write SetDocSpaceBrush;
   property  DocSpaceFill: boolean read FDocSpaceFill write SetDocSpaceFill;
   property  DocClipping: boolean read FDocClipping write SetDocClipping
     default false;
   property  SaveAsBinary: boolean read FSaveAsBinary write FSaveAsBinary
     default false;
   property  HideSelection: boolean read FHideSelection write SetHideSelection
     default false;
   property  HorzExtraSpace: integer read FHorzExtraSpace
     write SetHorzExtraSpace default 0;
   property  VertExtraSpace: integer read FVertExtraSpace
     write SetVertExtraSpace default 0;
   property  SchemeBkStretch: boolean read FSchemeBkStretch
     write SetSchemeBkStretch default false;
   property  AutoNames: boolean read FAutoNames write FAutoNames
     default True;
   property  ConnectorsMinGap: integer read FConnectorsMinGap
     write SetConnectorsMinGap default StdConnectorsMinGap;
   property  AutoNameNumbs: boolean read FAutoNameNumbs write FAutoNameNumbs
     default False;
   property  FrostPan: boolean read FFrostPan write SetFrostPan default False;
   property  FrostPanFullDoc: boolean read FFrostPanFullDoc
     write FFrostPanFullDoc default False;
   property  SelectAsFilled: boolean read FSelectAsFilled write FSelectAsFilled
     default False;
   property  SelectPartialOverlapped: boolean read FSelectPartialOverlapped
     write FSelectPartialOverlapped default false;
   property  ShowDocFrame: boolean read FShowDocFrame write SetShowDocFrame
     default True;
   property  ShowGrid: boolean read GetShowGrid write SetShowGrid
     default false;
   property  ShowPixGrid: boolean read GetShowPixGrid write SetShowPixGrid
     default false;
   property  SnapToGrid: boolean read GetSnapToGrid write SetSnapToGrid
     default false;
   property  SnapStyle: TFlexSnaps read GetSnapStyle write SetSnapStyle
     default [snLeft, snTop];
   property  GridStyle: TFlexGridStyle read GetGridStyle write SetGridStyle;
   property  GridColor: TColor read GetGridColor write SetGridColor;
   property  GridPixColor: TColor read GetGridPixColor write SetGridPixColor;
   property  GridHorizSize: integer read GetGridHorizSize
     write SetGridHorizSize;
   property  GridVertSize: integer read GetGridVertSize write SetGridVertSize;
   property  ShowEditPointGuide: boolean read FShowEditPointGuide write
    SetShowEditPointGuide default true;
   property  OnControlCreate: TFlexControlCreateEvent read FOnControlCreate
     write FOnControlCreate;
   property  OnUpdateCursor: TFlexUpdateCursorEvent read FOnUpdateCursor
     write FOnUpdateCursor;
   property  OnPropBeforeChanged: TPropChangedEvent read FOnPropBeforeChanged
     write FOnPropBeforeChanged;
   property  OnPropChanged: TPropChangedEvent read FOnPropChanged
     write FOnPropChanged;
   property  OnNotify: TFlexNotifyEvent read FOnNotify write FOnNotify;
   property  OnMouseControlChange: TNotifyEvent read FOnMouseControlChange
     write FOnMouseControlChange;
   property  OnPaintScheme: TFlexPaintEvent read FOnPaintScheme
     write FOnPaintScheme;
   property  OnPaintOver: TFlexPaintEvent read FOnPaintOver
     write FOnPaintOver;
   property  OnBeginSelectionUpdate: TNotifyEvent read FOnBeginSelectionUpdate
     write FOnBeginSelectionUpdate;
   property  OnEndSelectionUpdate: TNotifyEvent read FOnEndSelectionUpdate
     write FOnEndSelectionUpdate;
   property  OnProgress: TFlexProgressEvent read FOnProgress write FOnProgress;
   property  OnToolMode: TNotifyEvent read FOnToolMode write FOnToolMode;
   property  OnNeedHint: TFlexNeedHintEvent read FOnNeedHint write FOnNeedHint;
   property  OnShowHint: TFlexShowHintEvent read FOnShowHint write FOnShowHint;
   // inherited
   property  Align;
   property  Anchors;
   property  BiDiMode;
   property  BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle
     default bsSingle;
   property  Constraints;
   property  DockSite;
   property  DragCursor;
   property  DragKind;
   property  DragMode;
   property  Enabled;
   property  Color nodefault;
   property  Ctl3D;
   property  Font;
   property  ParentBiDiMode;
   property  ParentColor;
   property  ParentCtl3D;
   property  ParentFont;
   property  ParentShowHint;
   property  PopupMenu;
   property  ShowHint;
   property  TabOrder;
   property  TabStop;
   property  Visible;
   property  OnCanResize;
   property  OnClick;
   property  OnConstrainedResize;
   {$IFDEF FG_D5}
   property  OnContextPopup;
   {$ENDIF}
   property  OnDblClick;
   property  OnDockDrop;
   property  OnDockOver;
   property  OnDragDrop;
   property  OnDragOver;
   property  OnEndDock;
   property  OnEndDrag;
   property  OnEnter;
   property  OnExit;
   property  OnGetSiteInfo;
   property  OnMouseDown;
   property  OnMouseMove;
   property  OnMouseUp;
   property  OnMouseWheel;
   property  OnMouseWheelDown;
   property  OnMouseWheelUp;
   property  OnKeyPress;
   property  OnKeyDown;
   property  OnKeyUp;
   property  OnResize;
   property  OnStartDock;
   property  OnStartDrag;
   property  OnUnDock;
  end;

  TGetNameLinkByFlexPanelEvent = procedure(FlexPanel: TFlexPanel;
    var NameLink: string);

  TGetFlexPanelByNameLinkEvent = procedure(NameLink: string;
    var FlexPanel: TFlexPanel);

var
  GetNameLinkByFlexPanel: TGetNameLinkByFlexPanelEvent;
  GetFlexPanelByNameLink: TGetFlexPanelByNameLinkEvent;

  RegisteredFlexControls: TFlexControlClasses;

{$IFDEF FG_CBUILDER}
// We strongly recommend to use these routine to destroy flex-controls
// in C++Builder environment. It prevents from some incompatibility in
// object finalization section in Delphi and C++Builder.
procedure CppFreeControl(Control: TFlexControl);
{$ENDIF}

function  FirstControl(AControl: TFlexControl;
  var PassRec: TPassControlRec): TFlexControl;
function  NextControl(var PassRec: TPassControlRec;
  Sibling: boolean = false): TFlexControl;
procedure ClosePassRec(var PassRec: TPassControlRec);

procedure RegisterFlexControl(ControlClass: TFlexControlClass);
function  IndexOfRegisteredFlexControlClass(const ClassName: string): integer;

procedure InitPaintOrder(var PaintOrder: TPaintOrder);
procedure ClearPaintOrder(var PaintOrder: TPaintOrder);

function  TranslateRect(const R: TRect;
  const TranslateInfo: TTranslateInfo): TRect;
function  TranslateBounds(const R: TRect;
  const TranslateInfo: TTranslateInfo): TRect;
function  TranslatePoint(const Point: TPoint;
  const TranslateInfo: TTranslateInfo): TPoint;
procedure TranslatePoints(var Points: TPointArray;
  const TranslateInfo: TTranslateInfo);

function  FlexControlCopy(Source, Destination: TFlexControl;
  Filer: TFlexFiler = Nil; ChildrenOnly: boolean = false): boolean;
function  FlexDuplicate(Source: TFlexControl; DestParent: TFlexControl;
  Filer: TFlexFiler = Nil; ChildrenOnly: boolean = false;
  SelectNewControls: boolean = false): TFlexControl;

function  CreateLinkString(Control: TFlexControl; Prop: TCustomProp;
  UseNameLinkPrefix: boolean = false): string;
function  ResolveLinkString(const LinkString: string; FlexPanel: TFlexPanel;
  var Control: TFlexControl; var Prop: TCustomProp;
  RecodeId: TGetIDAlias = Nil; SourceControl: TFlexControl = Nil): boolean;

procedure DefaultGetNameLinkByFlexPanel(FlexPanel: TFlexPanel;
  var NameLink: string);
procedure DefaultGetFlexPanelByNameLink(NameLink: string;
  var FlexPanel: TFlexPanel);

implementation