home *** CD-ROM | disk | FTP | other *** search
- //----------------------------------------------------------------------------
- // DSDesign.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
- // From: DSDesign.pas
- //----------------------------------------------------------------------------
- #ifndef DSDesignHPP
- #define DSDesignHPP
- //----------------------------------------------------------------------------
- #ifndef DRIntfHPP
- #include <DRIntf.hpp>
- #endif
-
- #ifndef MenusHPP
- #include <Menus.hpp>
- #endif
-
- #ifndef DsgnWndsHPP
- #include <DsgnWnds.hpp>
- #endif
-
- #ifndef libconstHPP
- #include <libconst.hpp>
- #endif
-
- #ifndef LibIntfHPP
- #include <LibIntf.hpp>
- #endif
-
- #ifndef DsgnIntfHPP
- #include <DsgnIntf.hpp>
- #endif
-
- #ifndef DBTablesHPP
- #include <DBTables.hpp>
- #endif
-
- #ifndef DBCtrlsHPP
- #include <DBCtrls.hpp>
- #endif
-
- #ifndef DBHPP
- #include <DB.hpp>
- #endif
-
- #ifndef ExtCtrlsHPP
- #include <ExtCtrls.hpp>
- #endif
-
- #ifndef StdCtrlsHPP
- #include <StdCtrls.hpp>
- #endif
-
- #ifndef FormsHPP
- #include <Forms.hpp>
- #endif
-
- #ifndef ControlsHPP
- #include <Controls.hpp>
- #endif
-
- #ifndef GraphicsHPP
- #include <Graphics.hpp>
- #endif
-
- #ifndef ClassesHPP
- #include <Classes.hpp>
- #endif
-
- #ifndef MessagesHPP
- #include <Messages.hpp>
- #endif
-
- #ifndef WindowsHPP
- #include <Windows.hpp>
- #endif
-
- #ifndef SysUtilsHPP
- #include <SysUtils.hpp>
- #endif
-
- #ifndef SystemHPP
- #include <System.hpp>
- #endif
-
- namespace Dsdesign
- {
- //-- type declarations -------------------------------------------------------
- typedef System::Boolean __fastcall (__closure *TSelectionProc)(Db::TField *Field);
-
- class __declspec(delphiclass) TDatasetEditor;
- class __declspec(pascalimplementation) TDatasetEditor : public Dsgnwnds::TDesignWindow
- {
- typedef TDatasetEditor ThisClass;
- typedef Dsgnwnds::TDesignWindow inherited;
-
- __published:
- Extctrls::TPanel *Panel1;
- Db::TDataSource *DataSource;
- Menus::TPopupMenu *LocalMenu;
- Menus::TMenuItem *AddItem;
- Menus::TMenuItem *NewItem;
- Menus::TMenuItem *N1;
- Menus::TMenuItem *CutItem;
- Menus::TMenuItem *CopyItem;
- Menus::TMenuItem *PasteItem;
- Menus::TMenuItem *DeleteItem;
- Menus::TMenuItem *SelectAllItem;
- Menus::TMenuItem *N2;
- Menus::TMenuItem *RetrieveItem;
- Menus::TMenuItem *UpdateItem;
- Menus::TMenuItem *SaveAttributesAsItem;
- Menus::TMenuItem *AssociateItem;
- Menus::TMenuItem *Unassociate;
- Stdctrls::TListBox *FieldListBox;
- Dbctrls::TDBNavigator *DBNavigator;
- void __fastcall FormCreate(System::TObject *Sender);
- void __fastcall FormDestroy(System::TObject *Sender);
- void __fastcall AddItemClick(System::TObject *Sender);
- void __fastcall DeleteItemClick(System::TObject *Sender);
- void __fastcall FieldListBoxDragOver(System::TObject *Sender, System::TObject *Source, System::Integer
- X, System::Integer Y, Controls::TDragState State, System::Boolean &Accept);
- void __fastcall FieldListBoxDragDrop(System::TObject *Sender, System::TObject *Source, System::Integer
- X, System::Integer Y);
- void __fastcall FieldListBoxKeyDown(System::TObject *Sender, System::Word &Key, Classes::TShiftState
- Shift);
- void __fastcall NewItemClick(System::TObject *Sender);
- void __fastcall SelectTable(System::TObject *Sender);
- void __fastcall FieldListBoxClick(System::TObject *Sender);
- void __fastcall FieldListBoxKeyPress(System::TObject *Sender, System::Char &Key);
- void __fastcall ClearAllClick(System::TObject *Sender);
- void __fastcall FieldListBoxStartDrag(System::TObject *Sender, Controls::TDragObject *&DragObject);
-
- void __fastcall SelectAllItemClick(System::TObject *Sender);
- void __fastcall CutItemClick(System::TObject *Sender);
- void __fastcall CopyItemClick(System::TObject *Sender);
- void __fastcall PasteItemClick(System::TObject *Sender);
- void __fastcall LocalMenuPopup(System::TObject *Sender);
- void __fastcall RetrieveItemClick(System::TObject *Sender);
- void __fastcall UpdateItemClick(System::TObject *Sender);
- void __fastcall SaveAttributesAsItemClick(System::TObject *Sender);
- void __fastcall AssociateItemClick(System::TObject *Sender);
- void __fastcall UnassociateClick(System::TObject *Sender);
-
- private:
- Db::TDataSetDesigner *FDSDesigner;
- Forms::TForm *FForm;
- Db::TDataSet *FDataset;
- System::Integer FFocusRectItem;
- System::Integer FMinWidth;
- System::Integer FMinHeight;
- System::Boolean FUpdating;
- void __fastcall Copy(void);
- void __fastcall CreateFields(Stdctrls::TListBox *FieldsList);
- void __fastcall Cut(void);
- void __fastcall MoveFields(System::Integer Offset);
- void __fastcall Paste(void);
- void __fastcall RemoveFields(void);
- void __fastcall SelectAll(void);
- void __fastcall RestoreSelection(Stdctrls::TListBox *List, Classes::TStringList *&Selection, System::Integer
- ItemIndex, System::Integer TopIndex, System::Boolean RestoreUpdate);
- void __fastcall SaveSelection(Stdctrls::TListBox *List, Classes::TStringList *&Selection, System::Integer
- &ItemIndex, System::Integer &TopIndex, System::Boolean NoUpdate);
- void __fastcall SetDataset(Db::TDataSet *Value);
- void __fastcall Update(void);
- void __fastcall UpdateCaption(void);
- void __fastcall UpdateFieldList(void);
- void __fastcall UpdateSelection(void);
- System::Boolean __fastcall ForEachSelection(TSelectionProc Proc);
- void __fastcall GetTableDesc( System::AnsiString &ADatabase, System::AnsiString &ATable);
- System::Boolean __fastcall FindFieldInfo(Db::TField *Field, Drintf::TFieldID &FieldID, Drintf::TAttrID
- &AttrID);
- void __fastcall GetFieldInfo(Db::TField *Field, Drintf::TFieldID &FieldID, Drintf::TAttrID &AttrID)
- ;
- System::Boolean __fastcall RetrieveAttributes(Db::TField *Field);
- System::Boolean __fastcall SaveAttributes(Db::TField *Field);
- System::Boolean __fastcall SaveAttributesAs(Db::TField *Field);
- System::Boolean __fastcall AssociateAttributes(Db::TField *Field);
- System::Boolean __fastcall UnassociateAttributes(Db::TField *Field);
- System::Boolean __fastcall CheckAttribute(Db::TField *Field);
- System::AnsiString __fastcall QualifyTableName( System::AnsiString DatabaseName, Db::TDatabase *Database
- , const System::AnsiString TableName);
- MESSAGE void __fastcall WMGetMinMaxInfo(Messages::TWMGetMinMaxInfo &Message);
-
- protected:
- virtual void __fastcall Activated(void);
- virtual System::AnsiString __fastcall UniqueName(Classes::TComponent *Component);
-
- public:
- virtual void __fastcall ComponentDeleted(Classes::TComponent *Component);
- virtual Libintf::TEditState __fastcall GetEditState(void);
- virtual void __fastcall EditAction(Libintf::TEditAction Action);
- virtual void __fastcall FormModified(void);
- virtual void __fastcall SelectionChanged(Dsgnintf::TComponentList *ASelection);
- __property Forms::TForm * Form = {read=FForm, write=FForm, nodefault};
- __property Db::TDataSet * Dataset = {read=FDataset, write=SetDataset, nodefault};
- public:
- /* !! TDesignWindow.Create */ __fastcall virtual TDatasetEditor(Classes::TComponent *AOwner) : Dsgnwnds::TDesignWindow(
- AOwner) { }
- /* !! TDesignWindow.Destroy */ __fastcall virtual ~TDatasetEditor(void) { }
-
- public:
- /* !! TForm.CreateNew */ __fastcall TDatasetEditor(Classes::TComponent *AOwner, System::Integer Dummy
- ) : Dsgnwnds::TDesignWindow(AOwner, Dummy) { }
-
- };
-
- //-- var, const, procedure ---------------------------------------------------
- extern void __fastcall ShowDatasetDesigner(Dsgnintf::TFormDesigner *Designer, Db::TDataSet *ADataset
- );
- extern System::AnsiString __fastcall CreateUniqueName(Db::TDataSet *Dataset, const System::AnsiString
- FieldName, System::TMetaClass * FieldClass);
-
- } /* namespace Dsdesign */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Dsdesign;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // DSDesign
-