📄 sctvopt.hpp

📁 suite component ace report
💻 HPP
字号:
// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'SctVOpt.pas' rev: 4.00

#ifndef SctVOptHPP
#define SctVOptHPP

#pragma delphiheader begin
#pragma option push -w-
#include <Windows.hpp>	// Pascal unit
#include <SctRep.hpp>	// Pascal unit
#include <Grids.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <SctVar.hpp>	// Pascal unit
#include <PageMan.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Sctvopt
{
//-- type declarations -------------------------------------------------------
typedef Messages::TWMNoParams  TAceRefreshVarLists;

#pragma option push -b-
enum SctVOpt__1 { dsoUpdatingVars, dsoRefreshLists };
#pragma option pop

typedef Set<SctVOpt__1, dsoUpdatingVars, dsoRefreshLists>  TAceDSOptionsState;

class DELPHICLASS TSctDSVariableOptions;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TSctDSVariableOptions : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Extctrls::TPanel* DataSourcePanel;
	Extctrls::TPanel* Panel6;
	Extctrls::TPanel* FieldsPanel;
	Stdctrls::TListBox* flist;
	Menus::TPopupMenu* clistPopup;
	Menus::TMenuItem* SelectAll1;
	Menus::TMenuItem* Delete1;
	Menus::TPopupMenu* flistpopup;
	Menus::TMenuItem* flistSelectAll;
	Menus::TPopupMenu* ExprListPopup;
	Menus::TMenuItem* ExprDelete;
	Menus::TMenuItem* ExprSelectAll;
	Menus::TPopupMenu* TotalListPopup;
	Menus::TMenuItem* TotalDelete;
	Menus::TMenuItem* TotalSelectAll;
	Extctrls::TPanel* Panel1;
	Extctrls::TPanel* Panel2;
	Menus::TMenuItem* flistAdd;
	Extctrls::TPanel* totalpanel;
	Extctrls::TPanel* ButtonPanel;
	Stdctrls::TButton* Button1;
	Stdctrls::TListBox* TotalVarList;
	Extctrls::TPanel* TotalVarPanel;
	Grids::TStringGrid* DataSourceList;
	Stdctrls::TButton* Button2;
	Menus::TMenuItem* ExprAdd;
	Stdctrls::TLabel* TotalLabel;
	Stdctrls::TLabel* totalLevelLabel;
	Stdctrls::TLabel* TotalVariableLabel;
	Stdctrls::TLabel* Label1;
	Menus::TMenuItem* SelectAllUnused1;
	Menus::TMenuItem* TotalSelectAllUnused;
	Menus::TMenuItem* ExprUnused;
	Extctrls::TPanel* DataSourceListPanel;
	Stdctrls::TLabel* DataSourceLabel;
	Stdctrls::TLabel* AutoLabel;
	Stdctrls::TLabel* DSLevelLabel;
	Menus::TPopupMenu* DSListPopup;
	Menus::TMenuItem* RevertDsgItem;
	Menus::TMenuItem* String1;
	Menus::TMenuItem* Integer1;
	Menus::TMenuItem* Float1;
	Menus::TMenuItem* Boolean1;
	Menus::TMenuItem* DateTime1;
	Menus::TMenuItem* Blob1;
	Menus::TMenuItem* Memo1;
	Menus::TMenuItem* Graphic1;
	Extctrls::TPanel* DBVarPanel;
	Stdctrls::TListBox* DBVarList;
	Extctrls::TPanel* Panel5;
	Stdctrls::TLabel* DBLabel;
	Stdctrls::TLabel* DBSourceLabel;
	Stdctrls::TLabel* DBFieldLabel;
	Stdctrls::TLabel* DBLevelLabel;
	Stdctrls::TLabel* Label2;
	Menus::TPopupMenu* DBListPopup;
	Menus::TMenuItem* DBDelete;
	Menus::TMenuItem* DBSelectUnused;
	Menus::TMenuItem* DBSelectAll;
	Menus::TMenuItem* Add1;
	Extctrls::TPanel* ExprPanel;
	Extctrls::TPanel* ExprVarPanel;
	Stdctrls::TLabel* ExprLevelLabel;
	Stdctrls::TLabel* ExprLabel;
	Stdctrls::TLabel* ExprEventLabel;
	Stdctrls::TLabel* ExprTypeLabel;
	Stdctrls::TListBox* ExprVarList;
	Buttons::TSpeedButton* DataSourceZoom;
	Buttons::TSpeedButton* ExprZoom;
	Buttons::TSpeedButton* TotalZoom;
	Buttons::TSpeedButton* DbVarZoom;
	Buttons::TSpeedButton* FieldZoom;
	Extctrls::TPanel* VarPanel;
	Extctrls::TPanel* Panel3;
	Buttons::TSpeedButton* VarZoom;
	Extctrls::TPanel* Panel7;
	Stdctrls::TListBox* clist;
	Buttons::TSpeedButton* ZOOMIN;
	Buttons::TSpeedButton* ZOOMOUT;
	Stdctrls::TButton* Button3;
	Menus::TMenuItem* DeleteDsgItem;
	Menus::TMenuItem* AddDsgItem;
	void __fastcall FormShow(System::TObject* Sender);
	void __fastcall FormCreate(System::TObject* Sender);
	void __fastcall FormDestroy(System::TObject* Sender);
	void __fastcall flistDragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
	void __fastcall flistDragOver(System::TObject* Sender, System::TObject* Source, int X, int Y, Controls::TDragState 
		State, bool &Accept);
	void __fastcall clistDragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
	void __fastcall clistDragOver(System::TObject* Sender, System::TObject* Source, int X, int Y, Controls::TDragState 
		State, bool &Accept);
	void __fastcall TotalVarListDragOver(System::TObject* Sender, System::TObject* Source, int X, int Y
		, Controls::TDragState State, bool &Accept);
	void __fastcall TotalVarListDragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y
		);
	void __fastcall Button1Click(System::TObject* Sender);
	void __fastcall ExprSelectAllClick(System::TObject* Sender);
	void __fastcall TotalSelectAllClick(System::TObject* Sender);
	void __fastcall flistSelectAllClick(System::TObject* Sender);
	void __fastcall SelectAll1Click(System::TObject* Sender);
	void __fastcall Delete1Click(System::TObject* Sender);
	void __fastcall flistAddClick(System::TObject* Sender);
	void __fastcall TotalDeleteClick(System::TObject* Sender);
	void __fastcall ExprDeleteClick(System::TObject* Sender);
	void __fastcall TotalVarListClick(System::TObject* Sender);
	void __fastcall ExprVarListClick(System::TObject* Sender);
	void __fastcall clistClick(System::TObject* Sender);
	void __fastcall FormResize(System::TObject* Sender);
	void __fastcall clistDrawItem(Controls::TWinControl* Control, int Index, const Windows::TRect &Rect
		, Stdctrls::TOwnerDrawState State);
	void __fastcall DataSourceListDrawCell(System::TObject* Sender, int Col, int Row, const Windows::TRect 
		&Rect, Grids::TGridDrawState State);
	void __fastcall DataSourceListClick(System::TObject* Sender);
	void __fastcall DataSourcePanelResize(System::TObject* Sender);
	void __fastcall Button2Click(System::TObject* Sender);
	void __fastcall ExprAddClick(System::TObject* Sender);
	void __fastcall clistPopupPopup(System::TObject* Sender);
	void __fastcall flistpopupPopup(System::TObject* Sender);
	void __fastcall ExprListPopupPopup(System::TObject* Sender);
	void __fastcall TotalListPopupPopup(System::TObject* Sender);
	void __fastcall flistClick(System::TObject* Sender);
	void __fastcall TotalVarListDrawItem(Controls::TWinControl* Control, int Index, const Windows::TRect 
		&Rect, Stdctrls::TOwnerDrawState State);
	void __fastcall ExprVarListDrawItem(Controls::TWinControl* Control, int Index, const Windows::TRect 
		&Rect, Stdctrls::TOwnerDrawState State);
	void __fastcall SelectAllUnused1Click(System::TObject* Sender);
	void __fastcall TotalSelectAllUnusedClick(System::TObject* Sender);
	void __fastcall ExprUnusedClick(System::TObject* Sender);
	void __fastcall flistDrawItem(Controls::TWinControl* Control, int Index, const Windows::TRect &Rect
		, Stdctrls::TOwnerDrawState State);
	void __fastcall RevertDsgItemClick(System::TObject* Sender);
	void __fastcall DSListPopupPopup(System::TObject* Sender);
	void __fastcall DBVarListClick(System::TObject* Sender);
	void __fastcall DBVarListDragOver(System::TObject* Sender, System::TObject* Source, int X, int Y, Controls::TDragState 
		State, bool &Accept);
	void __fastcall DBVarListDragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
	void __fastcall DBVarListDrawItem(Controls::TWinControl* Control, int Index, const Windows::TRect &
		Rect, Stdctrls::TOwnerDrawState State);
	void __fastcall DBDeleteClick(System::TObject* Sender);
	void __fastcall DBSelectUnusedClick(System::TObject* Sender);
	void __fastcall DBSelectAllClick(System::TObject* Sender);
	void __fastcall DBListPopupPopup(System::TObject* Sender);
	void __fastcall Add1Click(System::TObject* Sender);
	void __fastcall DataSourceZoomClick(System::TObject* Sender);
	void __fastcall FieldZoomClick(System::TObject* Sender);
	void __fastcall DataSourceListMouseUp(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState 
		Shift, int X, int Y);
	void __fastcall Button3Click(System::TObject* Sender);
	void __fastcall DeleteDsgItemClick(System::TObject* Sender);
	void __fastcall AddDsgItemClick(System::TObject* Sender);
	
private:
	Classes::TList* DsgList;
	Classes::TList* ExprList;
	Classes::TList* TotalList;
	Classes::TList* DBList;
	TAceDSOptionsState FDSOptionsState;
	bool DataSourceZoomed;
	bool ExprZoomed;
	bool TotalZoomed;
	bool DBVarZoomed;
	bool FieldZoomed;
	bool VarZoomed;
	void __fastcall UpdateDSG(Sctrep::TSctDataSourceGuide* Dsg);
	void __fastcall RefreshLists(void);
	bool __fastcall VarUsed(Sctvar::TSctVar* MyVar);
	void __fastcall SelectComponent(Classes::TComponent* Comp);
	void __fastcall UnSelectStuff(System::TObject* Component);
	void __fastcall SelectUnused(Stdctrls::TListBox* List);
	MESSAGE void __fastcall AceRefreshVarLists(Messages::TWMNoParams &Message);
	void __fastcall FillDsgVarList(Sctrep::TSctDataSourceGuide* DSG, Classes::TList* List);
	void __fastcall FillDsgFieldList(Sctrep::TSctDataSourceGuide* DSG, Classes::TStringList* List);
	void __fastcall UpdateDsgList(void);
	void __fastcall UpdateCFList(void);
	void __fastcall UpdateDBVarList(void);
	void __fastcall UpdateExprList(void);
	void __fastcall UpdateTotalList(void);
	Sctrep::TSctGrouppage* __fastcall GetGroupPage(void);
	bool __fastcall DsgOk(void);
	AnsiString __fastcall GetFullDSName();
	Sctrep::TSctDataSourceGuide* __fastcall GetDataSourceGuide(AnsiString FullDSName);
	Sctvar::TSctDBVar* __fastcall GetDbVar(Sctrep::TSctDataSourceGuide* DSG, AnsiString FieldName);
	void __fastcall AddDbVar(Sctrep::TSctDataSourceGuide* DSG, AnsiString FieldName);
	void __fastcall DeleteVar(Sctvar::TSctVar* MyVar);
	void __fastcall CListDelete(void);
	void __fastcall FListDefine(void);
	void __fastcall Optimize(void);
	Sctvar::TSctVar* __fastcall GetVar(AnsiString VarName);
	void __fastcall AddTotal(Stdctrls::TListBox* List);
	void __fastcall AddManualDBVar(Stdctrls::TListBox* List);
	void __fastcall DeleteETList(Stdctrls::TListBox* ListBox);
	void __fastcall SetMyButton(Buttons::TSpeedButton* btn, System::TObject* Sender, bool &Zoomed);
	
public:
	Pageman::TSctPageManager* PageManager;
	bool __fastcall UpdateVars(void);
	void __fastcall ObjectChanged(void);
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TSctDSVariableOptions(Classes::TComponent* AOwner
		) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TSctDSVariableOptions(Classes::TComponent* AOwner
		, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TSctDSVariableOptions(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSctDSVariableOptions(HWND ParentWindow) : Forms::TForm(
		ParentWindow) { }
	#pragma option pop
	
};

#pragma pack(pop)

//-- var, const, procedure ---------------------------------------------------
static const Word Ace_RefreshVarLists = 0x400;
extern PACKAGE TSctDSVariableOptions* SctDSVariableOptions;

}	/* namespace Sctvopt */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Sctvopt;
#endif
#pragma option pop	// -w-

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// SctVOpt
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -