Autor Erik Brunn Germany 27755 Delmenhorst Annenweg 130 RICHPREV Componente Ver 1.0 8.10.98 ============================= Description ------------ This component generates an -PagePreview- for an richeditcontrol und prints it. It makes use of the TFormatrange structure. !!! the richedit must be visible before each changing of the margins, otherwise there is no new formating. If parent of richedit is : TPagecontrol or TPanel this is done by the component. Properties : --------------- Richedit : TRichedit-Componente !!!! Scaling : scaling for the margins (pscDot, { Skalierungseinheit "Pixel" } pscMil, { 1/1000" } pscMetric, { 1/1 mm } pscMetric10, { 1/10mm } pscMetric100); { 1/100mm } MarginLock : if true the pagerect of the richedit will load the margins of the preview Language : 0 - german 1 - english Public : --------------- procedure GetPageImage(page : Integer;var Image : TImage ); Load the page to an TImage. TImage.stretch must be true; function GetPageLineCount(page : Integer): Integer; pagelinecount of the page ____________________________________________________________________________ Component is tested with Delphi 3, I do not see any problem to do this with Delphi 4 or C++ Builder. Is does not run with D2. Componente is tested only with printer NEC P6 and Lexmark 1020. This ist ________________________________________________________________________________ FFFFF RRRR EEEEE EEEEE W W A RRRR EEEEE ! F R R E E W W A A R R E !!! FFF RRRR EEE EEE W W A A RRRR EEE ! F R R E E W W W AAAAA R R E F R R EEEEE EEEEE W W A A R R EEEEE ! ________________________________________________________________________________ ***disclaimer/author these component is freeware, you can use them in all of your applications (freeware,commercial or whatsoever) without my permission (any credits are welcome). if you modify the code, please send a copy to me. they are distributed "as is" (whatever this means, but i read it quite often ;)) i will give no guaranties at all, for nothing neither anything, you have to use this stuff on your own risk. for bug reports, suggestions, thanx, flames ...(but not for spammings >( ): Email brunn@nwn.de tel 049 422120685 Germany Erik Brunn Annenweg 130 27755 Delmenhorst Germany