From: Peter T. <pe...@us...> - 2002-10-07 20:04:13
|
Update of /cvsroot/jvcl/jvcl/source In directory usw-pr-cvs1:/tmp/cvs-serv9023/source Modified Files: JvPageSetup.pas Log Message: Changed ancestor Index: JvPageSetup.pas =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JvPageSetup.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** JvPageSetup.pas 20 Jul 2002 11:52:35 -0000 1.3 --- JvPageSetup.pas 7 Oct 2002 20:04:11 -0000 1.4 *************** *** 36,40 **** uses ! Windows, Classes, Dialogs, Messages, Graphics, CommDlg, JVCLVer, JvComponent; const --- 36,41 ---- uses ! Windows, Classes, Dialogs, Messages, Graphics, CommDlg, ! JVCLVer, JvComponent, JvBaseDlg; const *************** *** 88,92 **** Rect: TRect; var NoDefaultPaint: Boolean) of object; ! TJvPageSetupDialog = class(TCommonDialog) private FOptions: TJvPageOptions; --- 89,93 ---- Rect: TRect; var NoDefaultPaint: Boolean) of object; ! TJvPageSetupDialog = class(TJvCommonDialog) private FOptions: TJvPageOptions; *************** *** 99,103 **** FPageSetupRec: TPageSetupDlg; FPaintWhat: TJvPSPaintWhat; - FAboutJVCL: TJVCLAboutInfo; procedure SetOptions(aValue: TJvPageOptions); function DoExecute(aShow: Boolean): Boolean; --- 100,103 ---- *************** *** 127,131 **** property PaperSize: TPoint read FPaperSize; published - property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; property Margin: TJvMarginSize read FMargin; property MinMargin: TJvMarginSize read FMinMargin; --- 127,130 ---- |