// Borland C++ Builder // Copyright (c) 1995, 2005 by Borland Software Corporation // All rights reserved // (DO NOT EDIT: machine generated header) 'Rvdocparams.pas' rev: 10.00 #ifndef RvdocparamsHPP #define RvdocparamsHPP #pragma delphiheader begin #pragma option push #pragma option -w- // All warnings off #pragma option -Vx // Zero-length empty class member functions #pragma pack(push,8) #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Rvdocparams { //-- type declarations ------------------------------------------------------- class DELPHICLASS TRVDocParameters; #pragma pack(push,2) class PASCALIMPLEMENTATION TRVDocParameters : public Classes::TPersistent { typedef Classes::TPersistent inherited; private: Extended FPageWidth; Extended FPageHeight; Extended FLeftMargin; Extended FRightMargin; Extended FTopMargin; Extended FBottomMargin; Extended FHeaderY; Extended FFooterY; Rvstyle::TRVUnits FUnits; Printers::TPrinterOrientation FOrientation; int FZoomPercent; Rvscroll::TRVZoomMode FZoomMode; bool FMirrorMargins; bool __fastcall StorePageHeight(void); bool __fastcall StorePageWidth(void); bool __fastcall StoreBottomMargin(void); bool __fastcall StoreLeftMargin(void); bool __fastcall StoreRightMargin(void); bool __fastcall StoreTopMargin(void); bool __fastcall StoreHeaderY(void); bool __fastcall StoreFooterY(void); public: __fastcall TRVDocParameters(void); void __fastcall Reset(void); void __fastcall ResetLayout(void); void __fastcall ConvertToUnits(Rvstyle::TRVUnits AUnits); virtual void __fastcall Assign(Classes::TPersistent* Source); bool __fastcall AreAllValuesDefault(void); int __fastcall GetRVFLineCount(void); void __fastcall SaveToRVF(Classes::TStream* Stream); void __fastcall ReadProperyFromString(const AnsiString s); void __fastcall SaveToRTF(Classes::TStream* Stream); int __fastcall ToTwips(Extended Value); Extended __fastcall FromTwips(int Value); Extended __fastcall UnitsPerInch(Rvstyle::TRVUnits Units); __published: __property Extended PageWidth = {read=FPageWidth, write=FPageWidth, stored=StorePageWidth}; __property Extended PageHeight = {read=FPageHeight, write=FPageHeight, stored=StorePageHeight}; __property Rvstyle::TRVUnits Units = {read=FUnits, write=FUnits, default=0}; __property Printers::TPrinterOrientation Orientation = {read=FOrientation, write=FOrientation, default=0}; __property Extended LeftMargin = {read=FLeftMargin, write=FLeftMargin, stored=StoreLeftMargin}; __property Extended RightMargin = {read=FRightMargin, write=FRightMargin, stored=StoreRightMargin}; __property Extended TopMargin = {read=FTopMargin, write=FTopMargin, stored=StoreTopMargin}; __property Extended BottomMargin = {read=FBottomMargin, write=FBottomMargin, stored=StoreBottomMargin}; __property Extended HeaderY = {read=FHeaderY, write=FHeaderY, stored=StoreHeaderY}; __property Extended FooterY = {read=FFooterY, write=FFooterY, stored=StoreFooterY}; __property int ZoomPercent = {read=FZoomPercent, write=FZoomPercent, default=100}; __property Rvscroll::TRVZoomMode ZoomMode = {read=FZoomMode, write=FZoomMode, default=2}; __property bool MirrorMargins = {read=FMirrorMargins, write=FMirrorMargins, default=0}; public: #pragma option push -w-inl /* TPersistent.Destroy */ inline __fastcall virtual ~TRVDocParameters(void) { } #pragma option pop }; #pragma pack(pop) //-- var, const, procedure --------------------------------------------------- } /* namespace Rvdocparams */ using namespace Rvdocparams; #pragma pack(pop) #pragma option pop #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // Rvdocparams