home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------------
- #ifndef MainH
- #define MainH
- //---------------------------------------------------------------------------
- #include <vcl\sysutils.hpp>
- #include <vcl\windows.hpp>
- #include <vcl\messages.hpp>
- #include <vcl\sysutils.hpp>
- #include <vcl\classes.hpp>
- #include <vcl\graphics.hpp>
- #include <vcl\controls.hpp>
- #include <vcl\forms.hpp>
- #include <vcl\dialogs.hpp>
- #include <vcl\stdctrls.hpp>
- #include <vcl\buttons.hpp>
- #include <vcl\extctrls.hpp>
- #include <vcl\menus.hpp>
- #include <Buttons.hpp>
- #include <Classes.hpp>
- #include <Controls.hpp>
- #include <Dialogs.hpp>
- #include <ExtCtrls.hpp>
- #include <Menus.hpp>
- #include <ComCtrls.hpp>
- #include <StdCtrls.hpp>
- #include <ActnList.hpp>
- #include <ImgList.hpp>
- #include <ToolWin.hpp>
- #include <DBGrids.hpp>
- #include <Grids.hpp>
- #include <ExtDlgs.hpp>
- #include <Graphics.hpp>
- #include <Mask.hpp>
- #include <Db.hpp>
- #include <DBTables.hpp>
- #include "VReport.h"
- #include "vrpage.h"
- #include <Forms.hpp>
- #include "Vrctrl.h"
- #include "Vrctrlr.h"
- #include "Vrlabel.h"
- #include "Vrgrid.h"
- #include "Vrprev.h"
- #include "Vrprogr.h"
- //---------------------------------------------------------------------------
- class TMainForm : public TForm
- {
- __published:
- TMainMenu *MainMenu;
- TMenuItem *FilePrintItem;
- TMenuItem *FilePrintSetupItem;
- TMenuItem *FileExitItem;
- TMenuItem *HelpAboutItem;
- TMenuItem *Preview;
- TActionList *ActionList;
- TToolBar *ToolBar1;
- TToolButton *ToolButton1;
- TAction *ExitAction;
- TImageList *ImageList;
- TAction *PrintSetupAction;
- TAction *PrintAction;
- TAction *PrintPreviewAction;
- TAction *AboutAction;
- TToolButton *ToolButton2;
- TToolButton *ToolButton3;
- TToolButton *ToolButton4;
- TToolButton *ToolButton5;
- TToolButton *ToolButton6;
- TToolButton *ToolButton7;
- TAction *LoadAction;
- TOpenPictureDialog *LoadDialog;
- TMenuItem *N1;
- TMenuItem *LoadPicture1;
- TTable *HolidaysTable;
- TDataSource *HolidaysSource;
- TDateField *HolidaysTableDate;
- TPanel *Panel1;
- TLabel *Label1;
- TMaskEdit *YearEdit;
- TDBGrid *DBGrid1;
- TSpeedButton *SpeedButton1;
- TMemo *TextEdit;
- TLabel *Label2;
- TVividReport *Report;
- TVRPage *VRPage1;
- TVRBand *VRBand1;
- TVRLabel *PictureLabel;
- TAction *Zoom25Action;
- TAction *Zoom50Action;
- TAction *Zoom100Action;
- TAction *Zoom200Action;
- TAction *Zoom400Action;
- TToolButton *ToolButton8;
- TToolButton *ToolButton9;
- TToolButton *ToolButton10;
- TToolButton *ToolButton11;
- TPopupMenu *PopupMenu1;
- TMenuItem *N251;
- TMenuItem *N501;
- TMenuItem *N1001;
- TMenuItem *N2001;
- TMenuItem *N4001;
- TMenuItem *ZoomMenu;
- TMenuItem *N252;
- TMenuItem *N502;
- TMenuItem *N1002;
- TMenuItem *N2002;
- TMenuItem *N4002;
- TVRLabel *YearLabel;
- TVRLabel *TextLabel;
- TVRLabel *ShadowLabel;
- TVRBand *VRBand4;
- TVRBand *VRBand2;
- TVRBand *VRBand3;
- TVRBand *VRBand5;
- TVRGrid *MonthsGrid;
- TVRPrintProgress *PrintProgress;
- TVRPreview *PrintPreview;
- void __fastcall ExitActionExecute(TObject *Sender);
- void __fastcall AboutActionExecute(TObject *Sender);
- void __fastcall PrintSetupActionExecute(TObject *Sender);
- void __fastcall PrintActionExecute(TObject *Sender);
- void __fastcall PrintPreviewActionExecute(TObject *Sender);
- void __fastcall LoadActionExecute(TObject *Sender);
- void __fastcall HolidaysTableDateGetText(TField *Sender,
- AnsiString &Text, bool DisplayText);
- void __fastcall HolidaysTableDateSetText(TField *Sender,
- const AnsiString Text);
- void __fastcall Zoom25ActionExecute(TObject *Sender);
- void __fastcall Zoom50ActionExecute(TObject *Sender);
- void __fastcall Zoom100ActionExecute(TObject *Sender);
- void __fastcall Zoom200ActionExecute(TObject *Sender);
- void __fastcall Zoom400ActionExecute(TObject *Sender);
- void __fastcall YearEditExit(TObject *Sender);
- void __fastcall YearEditKeyPress(TObject *Sender, char &Key);
- void __fastcall YearLabelCalcValue(TObject *Sender);
- void __fastcall TextEditChange(TObject *Sender);
- void __fastcall ShadowLabelCalcValue(TObject *Sender);
- void __fastcall MonthsGridCells0CalcValue(TObject *Sender);
- void __fastcall MonthsGridColumns0EndPrint(TObject *Sender,
- TAfterAction &ARepeat);
- void __fastcall MonthsGridRows0EndPrint(TObject *Sender,
- TAfterAction &ARepeat);
- void __fastcall MonthsGridCells1CalcValue(TObject *Sender);
- void __fastcall MonthsGridColumns0SubItems0EndPrint(
- TObject *Sender, TAfterAction &ARepeat);
- void __fastcall MonthsGridRows0SubItems2EndPrint(TObject *Sender,
- TAfterAction &ARepeat);
- void __fastcall MonthsGridCells2CalcValue(TObject *Sender);
- void __fastcall MonthsGridColumns0SubItems1BeginPrint(
- TObject *Sender, TBeforeAction &APrint);
- void __fastcall HolidaysTableAfterPost(TDataSet *DataSet);
- private: // private user declarations
- public: // public user declarations
- virtual __fastcall TMainForm(TComponent* Owner);
-
- int Year;
- int MonthsCol;
- int Row;
- int WeekDay;
- int Week;
- };
- //---------------------------------------------------------------------------
- extern PACKAGE TMainForm *MainForm;
- //---------------------------------------------------------------------------
- #endif
-