Data.Bind.Components.TBindCompDesignExpression

From Appmethod Libraries
Jump to: navigation, search

Object Pascal

  TBindCompDesignExpression = record
  type
    TExecuteDesignExpression = reference to procedure(const AName: string; const AExpression: string; ACallback: TProc<IValue>);
    TExecuteDesignExpression2 = reference to procedure(const AName: string; const AControlExpression, ASourceExpression: string; ACallback: TProc<IValue>);
    TSaveDesignExpression = reference to procedure(const AName: string; const AExpression: string);
  private
    FName: string;
    FControlScope: string;
    FControlExpression: string;
    FSourceScope: string;
    FSourceExpression: string;
    FExecuteControlProc: TExecuteDesignExpression;
    FExecuteSourceProc: TExecuteDesignExpression;
    FExecuteAssignToSourceProc: TExecuteDesignExpression2;
    FExecuteAssignToControlProc: TExecuteDesignExpression2;
    FSaveControlProc: TSaveDesignExpression;
    FSaveSourceProc: TSaveDesignExpression;
    FCollectionItem: TCollectionItem;
    FCollectionName: string;
    FParentCollectionItem: TCollectionItem;
    FExpressionType: TBindCompDesignerExpressionType;
  public
    constructor Create(const AName, AControlScope, AControlExpression: string;
      const ASourceScope, ASourceExpression: string;
      AExecuteAssignToControl, AExecuteAssignToSource: TExecuteDesignExpression2; AExecuteControl, AExecuteSource: TExecuteDesignExpression;
      ASaveControl, ASaveSource: TSaveDesignExpression; ACollectionItem: TCollectionItem;
      const ACollectionName: string;
      AParentCollectionItem: TCollectionItem;
      AExpressionType: TBindCompDesignerExpressionType);
    property Name: string read FName;
    property ControlScope: string read FControlScope;
    property ControlExpression: string read FControlExpression;
    property SourceScope: string read FSourceScope;
    property SourceExpression: string read FSourceExpression;
    property ExecuteAssignToControlProc: TExecuteDesignExpression2 read FExecuteAssignToControlProc;
    property ExecuteAssignToSourceProc: TExecuteDesignExpression2 read FExecuteAssignToSourceProc;
    property ExecuteSourceProc: TExecuteDesignExpression read FExecuteSourceProc;
    property ExecuteControlProc: TExecuteDesignExpression read FExecuteControlProc;
    property SaveSourceProc: TSaveDesignExpression read FSaveSourceProc;
    property SaveControlProc: TSaveDesignExpression read FSaveControlProc;
    property CollectionItem: TCollectionItem read FCollectionItem;
    property CollectionName: string read FCollectionName;
    property ParentCollectionItem: TCollectionItem read FParentCollectionItem;
    property ExpressionType: TBindCompDesignerExpressionType read FExpressionType;
  end;

C++

struct DECLSPEC_DRECORD TBindCompDesignExpression
{
public:
    __interface TExecuteDesignExpression;
    typedef System::DelphiInterface<TExecuteDesignExpression> _di_TExecuteDesignExpression;
    __interface TExecuteDesignExpression  : public System::IInterface
    {
        virtual void __fastcall Invoke(const System::UnicodeString AName, const System::UnicodeString AExpression, System::DelphiInterface<System::Sysutils::TProc__1<System::Bindings::Evalprotocol::_di_IValue> > ACallback) = 0 ;
    };
    __interface TExecuteDesignExpression2;
    typedef System::DelphiInterface<TExecuteDesignExpression2> _di_TExecuteDesignExpression2;
    __interface TExecuteDesignExpression2  : public System::IInterface
    {
        virtual void __fastcall Invoke(const System::UnicodeString AName, const System::UnicodeString AControlExpression, const System::UnicodeString ASourceExpression, System::DelphiInterface<System::Sysutils::TProc__1<System::Bindings::Evalprotocol::_di_IValue> > ACallback) = 0 ;
    };
    __interface TSaveDesignExpression;
    typedef System::DelphiInterface<TSaveDesignExpression> _di_TSaveDesignExpression;
    __interface TSaveDesignExpression  : public System::IInterface
    {
        virtual void __fastcall Invoke(const System::UnicodeString AName, const System::UnicodeString AExpression) = 0 ;
    };
private:
    System::UnicodeString FName;
    System::UnicodeString FControlScope;
    System::UnicodeString FControlExpression;
    System::UnicodeString FSourceScope;
    System::UnicodeString FSourceExpression;
    _di_TExecuteDesignExpression FExecuteControlProc;
    _di_TExecuteDesignExpression FExecuteSourceProc;
    _di_TExecuteDesignExpression2 FExecuteAssignToSourceProc;
    _di_TExecuteDesignExpression2 FExecuteAssignToControlProc;
    _di_TSaveDesignExpression FSaveControlProc;
    _di_TSaveDesignExpression FSaveSourceProc;
    System::Classes::TCollectionItem* FCollectionItem;
    System::UnicodeString FCollectionName;
    System::Classes::TCollectionItem* FParentCollectionItem;
    TBindCompDesignerExpressionType FExpressionType;
public:
    __fastcall TBindCompDesignExpression(const System::UnicodeString AName, const System::UnicodeString AControlScope, const System::UnicodeString AControlExpression, const System::UnicodeString ASourceScope, const System::UnicodeString ASourceExpression, _di_TExecuteDesignExpression2 AExecuteAssignToControl, _di_TExecuteDesignExpression2 AExecuteAssignToSource, _di_TExecuteDesignExpression AExecuteControl, _di_TExecuteDesignExpression AExecuteSource, _di_TSaveDesignExpression ASaveControl, _di_TSaveDesignExpression ASaveSource, System::Classes::TCollectionItem* ACollectionItem, const System::UnicodeString ACollectionName, System::Classes::TCollectionItem* AParentCollectionItem, TBindCompDesignerExpressionType AExpressionType);
    __property System::UnicodeString Name = {read=FName};
    __property System::UnicodeString ControlScope = {read=FControlScope};
    __property System::UnicodeString ControlExpression = {read=FControlExpression};
    __property System::UnicodeString SourceScope = {read=FSourceScope};
    __property System::UnicodeString SourceExpression = {read=FSourceExpression};
    __property _di_TExecuteDesignExpression2 ExecuteAssignToControlProc = {read=FExecuteAssignToControlProc};
    __property _di_TExecuteDesignExpression2 ExecuteAssignToSourceProc = {read=FExecuteAssignToSourceProc};
    __property _di_TExecuteDesignExpression ExecuteSourceProc = {read=FExecuteSourceProc};
    __property _di_TExecuteDesignExpression ExecuteControlProc = {read=FExecuteControlProc};
    __property _di_TSaveDesignExpression SaveSourceProc = {read=FSaveSourceProc};
    __property _di_TSaveDesignExpression SaveControlProc = {read=FSaveControlProc};
    __property System::Classes::TCollectionItem* CollectionItem = {read=FCollectionItem};
    __property System::UnicodeString CollectionName = {read=FCollectionName};
    __property System::Classes::TCollectionItem* ParentCollectionItem = {read=FParentCollectionItem};
    __property TBindCompDesignerExpressionType ExpressionType = {read=FExpressionType};
    TBindCompDesignExpression() {}
};

Properties

Type Visibility Source Unit Parent
record
struct
public
Data.Bind.Components.pas
Data.Bind.Components.hpp
Data.Bind.Components Data.Bind.Components

Description

Record that contains information regarding a bindings expression. It is used by the bindings expressions designer component.

See Also