Gorilla.Utils.Dialogue.FlowChart

Unit Gorilla.Utils.Dialogue.FlowChart.pas

Classes

TGorillaDialogueFlowChartFrame = class ( TFrame )

Records

record TLinePair

Constants

const ITEM_TEMPLATE_SPACE : Integer = $20;
const ITEM_DOTSIZE : Integer = $9;

Mics. types

type PLinePair = pointer to TLinePair;

TLinePair

Fields

public FromRect : TRectangle
public ToRect : TRectangle
public Line : TLine
public Color : TAlphaColor

Methods

public function Zero ( ) : TLinePair ; static;

TGorillaDialogueFlowChartFrame

Ancestors

Members

Fields

published DialogueTemplate : TRectangle
published DialogueTemplateHdrLbl : TLabel
published DialogueItemTemplate : TRectangle
published DialogueItemHdr : TRectangle
published DialogueItemHdrLbl : TLabel
published DialogueItemLbl : TLabel
published DialogueItemEventTemplate : TRectangle
published DialogueItemEventHdr : TRectangle
published DialogueItemEventHdrLbl : TLabel
published DialogueItemEventLbl : TLabel
published DialogSelector : TComboBox
published DialogueItemHdrChkBx : TCheckBox
published DialogueItemEventHdrChkBx : TCheckBox
published DialogueHdrImg : TImage
published DialogueItemHdrImg : TImage
published DialogueItemEventHdrImg : TImage
published DialogueItemEventHdrImg2 : TImage
published ToolBar1 : TToolBar
published DialogueItemPattern : TRectangle
published Label1 : TLabel
published Image1 : TImage
published Label3 : TLabel
published DialogueItemEventPattern : TRectangle
published Label4 : TLabel
published Image2 : TImage
published DialoguePattern : TRectangle
published Label5 : TLabel
published Image3 : TImage
published SpeedButton1 : TSpeedButton
published SpeedButton2 : TSpeedButton
published SpeedButton3 : TSpeedButton
published PatternPopupMenu : TPopupMenu
published MnItm_Edit : TMenuItem
published MnItm_Delete : TMenuItem
published MnItm_Delimiter1 : TMenuItem
published MnItm_New : TMenuItem
published MnItm_Event : TMenuItem
published MnItm_Text : TMenuItem
published MnItm_Item : TMenuItem
published MnItm_Question : TMenuItem
published MnItm_Answer : TMenuItem
published MnItm_Flow : TMenuItem
published MnItm_Reference : TMenuItem
published MnItm_Image : TMenuItem
published MnItm_Audio : TMenuItem
published MnItm_Video : TMenuItem
published MnItm_Animation : TMenuItem
published MnItm_Method : TMenuItem
published MnItm_Property : TMenuItem
published MnItm_MIsc : TMenuItem
published TabControl1 : TTabControl
published TbItm_Items : TTabItem
published TbItm_TreeView : TTabItem
published Splitter1 : TSplitter
published TbItm_Edit : TTabItem
published ContentPanel : TPanel
published FlowChartBox : TScrollBox
published Rct_DocBack : TRectangle
published PlotGrid1 : TPlotGrid
published Img_Gorilla3DLogo : TImage
published Panel1 : TPanel
published Edt_SystemName : TEdit
published Label2 : TLabel
published Label6 : TLabel
published Image4 : TImage
published Image5 : TImage
private FEditor : TGorillaDialogueEditorFrame
private FDlgEdit : TGorillaDialogueEditFrame
private FItemEdit : TGorillaDialogueItemEditFrame
private FEventEdit : TGorillaDialogueItemEventEditFrame
protected FImageList : TImageList
protected FDlgNode : TRectangle
protected FDialogueSys : TGorillaDialogueSystem
protected FCurrentDialogue : TGorillaDialogue
protected FDragging : Boolean
protected FMouseDownPos : TPointF
protected FLines : TList<Gorilla.Utils.Dialogue.FlowChart.TLinePair>

Methods

public constructor Create ( AOwner : TComponent ) ;
published procedure DialogSelectorChange ( Sender : TObject ) ;
published procedure FrameResize ( Sender : TObject ) ;
published procedure FlowChartBoxDragOver ( Sender : TObject; const Data : TDragObject; const Point : TPointF; var Operation : TDragOperation ) ;
published procedure FlowChartBoxDragDrop ( Sender : TObject; const Data : TDragObject; const Point : TPointF ) ;
published procedure MnItm_QuestionClick ( Sender : TObject ) ;
published procedure MnItm_AnswerClick ( Sender : TObject ) ;
published procedure MnItm_FlowClick ( Sender : TObject ) ;
published procedure MnItm_ReferenceClick ( Sender : TObject ) ;
published procedure MnItm_TextClick ( Sender : TObject ) ;
published procedure MnItm_ImageClick ( Sender : TObject ) ;
published procedure MnItm_AudioClick ( Sender : TObject ) ;
published procedure MnItm_VideoClick ( Sender : TObject ) ;
published procedure MnItm_AnimationClick ( Sender : TObject ) ;
published procedure MnItm_MethodClick ( Sender : TObject ) ;
published procedure MnItm_PropertyClick ( Sender : TObject ) ;
published procedure MnItm_MIscClick ( Sender : TObject ) ;
published procedure MnItm_EditClick ( Sender : TObject ) ;
published procedure Edt_SystemNameChange ( Sender : TObject ) ;
private procedure CreateNewDialogue ( Sender : TObject; const AResult : TModalResult ) ;
private procedure CreateNewItem ( const AParent : TRectangle; const AItem : TGorillaDialogueParentItem; const AKind : TGorillaDialogueItemKind ) ;
private procedure HandleCreateMenuItem ( Sender : TObject; const AKind : TGorillaDialogueItemKind ) ;
private procedure CreateNewItemEvent ( const AParent : TRectangle; const AItem : TGorillaDialogueParentItem; const AKind : TGorillaDialogueEventKind ) ;
private procedure HandleCreateEventMenuItem ( Sender : TObject; const AKind : TGorillaDialogueEventKind ) ;
private function GetOwnerPosition ( const AOwner : TRectangle ) : TPointF ;
private function GetOwnerSize ( const AOwner : TRectangle ) : TPointF ;
protected procedure SetRectangleText ( const APattern : TRectangle; const AText : string ) ;
protected procedure SetHeaderText ( const APattern : TRectangle; const AText : string ) ;
protected procedure SetHeaderCheckBox ( const APattern : TRectangle; const AIsChecked : Boolean ) ;
protected procedure SetHeaderEditButton ( const APattern : TRectangle ) ;
protected procedure SetHeaderImage ( const APattern : TRectangle; const AId : Integer ) ;
protected procedure SetHeaderEventImage ( const APattern : TRectangle; const AId : Integer ) ;
protected procedure UpdateRectangleLine ( const ARect : TRectangle; const AColor : TAlphaColor ) ;
protected procedure UpdateLine ( const ALine : TLine; const AFrom : TRectangle; const ATo : TRectangle; const AColor : TAlphaColor ) ;
protected procedure UpdateChildLines ( AOwner : TRectangle; const AColor : TAlphaColor ) ;
protected procedure AddLineToParent ( const ARect : TRectangle; const AParent : TControl; const AColor : TAlphaColor ) ;
protected procedure AdjustDialogueNode ( ) ;
protected procedure AdjustDialogueItemSize ( const AItem : TRectangle ) ;
protected procedure AdjustChildRectangles ( const ARect : TRectangle ) ;
protected procedure ClearFlowChartBox ( ) ;
protected function GetCurrentLanguage ( ) : string ;
protected procedure LoadDialogueItemEvent ( const AParent : TComponent; const AEvent : TGorillaDialogueItemEvent ) ;
protected procedure UpdateDialogueItemEvent ( const AUIElement : TRectangle; const AEvent : TGorillaDialogueItemEvent ) ;
protected function LoadDialogueItem ( const AParent : TComponent; const AItem : TGorillaDialogueItem ) : TRectangle ;
protected procedure UpdateDialogueItem ( const AUIElement : TRectangle; const AItem : TGorillaDialogueItem ) ;
protected procedure UpdateDialogue ( const AParent : TRectangle; const ADialogue : TGorillaDialogue ) ;
protected procedure DoOnDragDrop ( Sender : TObject; const Data : TDragObject; const Point : TPointF ) ;
protected procedure DoOnDragOver ( Sender : TObject; const Data : TDragObject; const Point : TPointF; var Operation : TDragOperation ) ;
protected procedure DoOnCheckBoxClick ( Sender : TObject ) ;
protected procedure DoOnEditButtonClick ( Sender : TObject ) ;
protected procedure DoOnItemEditApply ( const AItem : TObject; const AUIElement : TObject ) ;
protected procedure DoOnSelectNode ( ASender : TObject; const ANode : TObject ) ;
public procedure ShowDialogueSystem ( const ASystem : TGorillaDialogueSystem ) ;
public procedure ShowDialogue ( const ADialogue : TGorillaDialogue ) ;
public function FindItemByObject ( const AItem : TGorillaDialogueItem ) : TRectangle ;
public procedure UpdateFlowChart ( ) ;

Properties

public Editor : TGorillaDialogueEditorFrame
read FEditor
public CurrentDialogue : TGorillaDialogue
read FCurrentDialogue
published ImageList : TImageList
read FImageList
write FImageList