From: Peter T. <pe...@us...> - 2003-02-09 20:31:27
|
Update of /cvsroot/jvcl/dev/p3/examples/JvPreviewDocument In directory sc8-pr-cvs1:/tmp/cvs-serv17960/p3/examples/JvPreviewDocument Modified Files: MainFrm.pas Log Message: renamed classes Index: MainFrm.pas =================================================================== RCS file: /cvsroot/jvcl/dev/p3/examples/JvPreviewDocument/MainFrm.pas,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** MainFrm.pas 9 Feb 2003 10:43:42 -0000 1.15 --- MainFrm.pas 9 Feb 2003 20:31:23 -0000 1.16 *************** *** 97,104 **** public { Public declarations } ! pd: TJvPreviewDoc; ! JvRTF: TJvPreviewRichEditRender; ! JvTxt: TJvPreviewStringsRender; ! JvImg: TJvPreviewGraphicRender; end; --- 97,104 ---- public { Public declarations } ! pd: TJvPreviewControl; ! JvRTF: TJvRichEditPreviewer; ! JvTxt: TJvStringsPreviewer; ! JvImg: TJvGraphicPreviewer; end; *************** *** 152,160 **** begin OpenDialog1.Filter := OpenDialog1.Filter + '|' + GraphicFilter(TGraphic); ! JvImg := TJvPreviewGraphicRender.Create(self); ! JvRTF := TJvPreviewRichEditRender.Create(self); ! JvTxt := TJvPreviewStringsRender.Create(self); ! pd := TJvPreviewDoc.Create(self); pd.Name := 'JvPreviewDoc1'; pd.Parent := tabPreview; --- 152,160 ---- begin OpenDialog1.Filter := OpenDialog1.Filter + '|' + GraphicFilter(TGraphic); ! JvImg := TJvGraphicPreviewer.Create(self); ! JvRTF := TJvRichEditPreviewer.Create(self); ! JvTxt := TJvStringsPreviewer.Create(self); ! pd := TJvPreviewControl.Create(self); pd.Name := 'JvPreviewDoc1'; pd.Parent := tabPreview; *************** *** 231,235 **** pd.DeviceInfo.ReferenceHandle := Printer.Handle; end; ! // set 0.5 inch margin pd.DeviceInfo.OffsetLeft := Max(pd.DeviceInfo.InchToXPx(0.5), pd.DeviceInfo.OffsetLeft); pd.DeviceInfo.OffsetRight := Max(pd.DeviceInfo.InchToXPx(0.5), pd.DeviceInfo.OffsetRight); --- 231,235 ---- pd.DeviceInfo.ReferenceHandle := Printer.Handle; end; ! // set at least 0.5 inch margins pd.DeviceInfo.OffsetLeft := Max(pd.DeviceInfo.InchToXPx(0.5), pd.DeviceInfo.OffsetLeft); pd.DeviceInfo.OffsetRight := Max(pd.DeviceInfo.InchToXPx(0.5), pd.DeviceInfo.OffsetRight); *************** *** 392,396 **** procedure TfrmMain.Control1Click(Sender: TObject); begin ! with TJvPreviewControlRender.Create(nil) do try pd.First; --- 392,396 ---- procedure TfrmMain.Control1Click(Sender: TObject); begin ! with TJvControlPreviewer.Create(nil) do try pd.First; |