Sorry. My english is not very good.
I'm using TPRINTPREVIEW 4.62 with Delphi 7 and i have added any new methods for easily works designing reports. Those methods works all in millimeters:
Procedure Line(Const X1,Y1,X2,Y2: Integer; width: integer; Style: TpenStyle);
*** DRAW A SIMPLE LINE FROM X1,Y1 TO X2,Y2 of WIDTH points
Procedure Rectangle(Const X1,Y1,X2,Y2: Integer; width: integer; Style: TBrushStyle; Shadow: boolean);
*** DRAW A RECTANGLE FROM X1,Y1 TO X2,Y2 of WIDTH points with STYLE, and with or without right and bottom border shadowed
Procedure TextOut(X, Y: integer; Text: String; fname: String;
fSize: byte; fStyle: TFontStyles ;fColor: TColor;
TAlign: TAlignment; Datos: Boolean; Column: Byte);
*** DRAW A TEXT FROM X, Y with Font Fname, with Size FSize and Style, Color and Alignment. Rest of parameter are not now in use. In future can me to exports reports to HTML or CSV, etc
Procedure TextOutWB(X, Y, X1, Y1: integer; Text: String; fname: String;
fSize: byte; fStyle: TFontStyles ;fColor: TColor);
*** DRAW A TEXT CLIPPED Between X,Y and X1,Y1 with Font, size, Style and Color...
I have encontered any problems with some printers drivers like HP Deskjet Color in USB (original hp drivers) in Windows 98 that leave the page in blank.
The Brother 730 laser printer installed in windows98 did not work fine too. They not draw fine background in BsClear rectangle.
Can you help me?
Are they any membre working in export reports from tprintpreview? i'm interested...
if you need source code of news methods, please, post me a reply.
- (128.44 KiB) Downloaded 125 times