diff options
Diffstat (limited to 'extras/tiopf/mvp/basic_intf.pas')
-rw-r--r-- | extras/tiopf/mvp/basic_intf.pas | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/extras/tiopf/mvp/basic_intf.pas b/extras/tiopf/mvp/basic_intf.pas index 36f56f32..a569db9a 100644 --- a/extras/tiopf/mvp/basic_intf.pas +++ b/extras/tiopf/mvp/basic_intf.pas @@ -17,13 +17,13 @@ type IObserver = interface(IInterface) - ['{16CD208B-5F37-41FC-82A4-BFDD16DB3203}'] + ['{16CD208B-5F37-41FC-82A4-BFDD16DB3203}'] procedure Update(const ASubject: IInterface); end; - + ISubject = interface(IInterface) - ['{004B3299-C221-4A44-87A7-7657D90B6493}'] + ['{004B3299-C221-4A44-87A7-7657D90B6493}'] procedure Attach(Observer: IObserver); procedure Detach(Observer: IObserver); procedure Notify; @@ -33,18 +33,18 @@ type IVisitor = interface(IInterface) - ['{35E154D2-6573-42DA-9854-156F3B19C95F}'] + ['{35E154D2-6573-42DA-9854-156F3B19C95F}'] // empty interface end; IVisited = interface(IInterface) - ['{7CF62F51-9412-445C-9E8C-DE94F2B1E280}'] + ['{7CF62F51-9412-445C-9E8C-DE94F2B1E280}'] procedure Accept(const Visitor: IVisitor); end; IListModel = interface(IInterface) - ['{1A772375-1263-4790-8827-F7BEA358674A}'] + ['{1A772375-1263-4790-8827-F7BEA358674A}'] function GetCount: Integer; function GetItem(Idx: Integer): IInterface; procedure Add(const Item: IInterface); @@ -59,7 +59,7 @@ type (* IController = interface(IInterface) - ['{4A99C01A-D025-4562-8E94-3A0C873CE894}'] + ['{4A99C01A-D025-4562-8E94-3A0C873CE894}'] function GetModel: IModel; function GetView: IView; procedure SetModel(const AValue: IModel); @@ -70,7 +70,7 @@ type *) IString = interface(IInterface) - ['{E76984A4-1287-4353-8370-A7332B9FB1CB}'] + ['{E76984A4-1287-4353-8370-A7332B9FB1CB}'] function GetAsString: string; procedure SetAsString(const AValue: string); property AsString: string read GetAsString write SetAsString; @@ -78,14 +78,14 @@ type IStringListModel = interface(IListModel) - ['{769804CD-89E4-43C7-B8EF-783BFE27214E}'] + ['{769804CD-89E4-43C7-B8EF-783BFE27214E}'] function GetItem(Idx: Integer): IString; overload; property Item[Idx: Integer]: IString read GetItem; end; ISelection = interface(IInterface) - ['{F4DDA0EA-E982-4785-8602-5B32E8DD6DA2}'] + ['{F4DDA0EA-E982-4785-8602-5B32E8DD6DA2}'] procedure AddItem(const Item: IInterface); procedure Clear; function GetCount: integer; @@ -95,7 +95,7 @@ type ICommand = interface(IInterface) - ['{B333C7E1-B124-4D08-A640-DC02F36264C7}'] + ['{B333C7E1-B124-4D08-A640-DC02F36264C7}'] procedure BindSelection(const Selection: ISelection); function Execute: Boolean; function GetEnabled: Boolean; @@ -106,25 +106,25 @@ type ICommandSet = interface(IInterface) - ['{1622FF69-3104-47EA-8741-9C1B05ADA30B}'] + ['{1622FF69-3104-47EA-8741-9C1B05ADA30B}'] // empty interface end; ICommandVisitor = interface(IVisitor) - ['{628B3A4A-30D1-48D3-8B46-090F08AD2AC8}'] + ['{628B3A4A-30D1-48D3-8B46-090F08AD2AC8}'] procedure VisitComand(const Command: ICommand); end; ICommandMenu = interface(IInterface) - ['{3C666D8F-6BED-454B-8BFE-28422943B300}'] + ['{3C666D8F-6BED-454B-8BFE-28422943B300}'] function AddItem(const Caption: string; Enabled: Boolean): ICommandMenuItem; end; ICommandMenuItem = interface(IInterface) - ['{7DFCF2BD-70DA-4DAC-B8D5-C6FB882267CF}'] + ['{7DFCF2BD-70DA-4DAC-B8D5-C6FB882267CF}'] function GetCaption: string; function GetChecked: Boolean; function GetCommand: ICommand; @@ -138,7 +138,7 @@ type IStringVisitor = interface(IVisitor) - ['{DA12355F-0727-41B3-9080-DDAF20797FC5}'] + ['{DA12355F-0727-41B3-9080-DDAF20797FC5}'] function GetTheString: IString; procedure VisitString(const Str: IString); property TheString: IString @@ -147,7 +147,7 @@ type IMVPModel = interface(IInterface) - ['{85223140-B263-4413-89E3-BFA37E9D3112}'] + ['{85223140-B263-4413-89E3-BFA37E9D3112}'] function GetCommandSet: ICommandSet; function GetCurrentSelection: ISelection; property CommandSet: ICommandSet read GetCommandSet; @@ -156,7 +156,7 @@ type IMVPPresenter = interface(IInterface) - ['{5B8477DA-A006-4DE1-B304-9512BFAD7507}'] + ['{5B8477DA-A006-4DE1-B304-9512BFAD7507}'] function GetCommandMenu: ICommandMenu; function GetModel: IMVPModel; function GetView: IMVPView; @@ -170,14 +170,14 @@ type IMVPView = interface(IInterface) - ['{2C575FE7-BACD-46EC-9D72-AEDA44836B20}'] + ['{2C575FE7-BACD-46EC-9D72-AEDA44836B20}'] procedure AdoptCommandMenu(const Value: ICommandMenu); procedure OrphanCommandMenu(const Value: ICommandMenu); end; IStringListView = interface(IMVPView) - ['{D834710A-9C1A-42D1-A29B-7F9F8FB46426}'] + ['{D834710A-9C1A-42D1-A29B-7F9F8FB46426}'] function GetOnSelectString: TSelectStringEvent; procedure SetOnSelectString(const AValue: TSelectStringEvent); property OnSelectString: TSelectStringEvent read GetOnSelectString write SetOnSelectString; @@ -185,7 +185,7 @@ type IStringMoveVisitor = interface(IStringVisitor) - ['{DB89C96F-DA90-43ED-A621-51B70E6C600E}'] + ['{DB89C96F-DA90-43ED-A621-51B70E6C600E}'] function GetCanDemote: Boolean; function GetCanPromote: Boolean; property CanDemote: Boolean read GetCanDemote; |