mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-04 19:57:29 +01:00
examples: postscriptcanvas example updated
git-svn-id: trunk@46927 -
This commit is contained in:
jesus
parent
c6c954a140
commit
21edb33745
@ -1,4 +1,4 @@
|
||||
<?xml version="1.0"?>
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="9"/>
|
||||
@ -12,6 +12,9 @@
|
||||
<MainUnit Value="0"/>
|
||||
<Title Value="samplepostscriptcanvas"/>
|
||||
</General>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
@ -33,21 +36,21 @@
|
||||
<Unit0>
|
||||
<Filename Value="samplepostscriptcanvas.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="samplepostscriptcanvas"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="usamplepostscriptcanvas.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="uSamplePostScriptCanvas"/>
|
||||
</Unit1>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="9"/>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
|
||||
<SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
@ -61,8 +64,5 @@
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</CONFIG>
|
||||
|
||||
@ -1,35 +1,35 @@
|
||||
object Form1: TForm1
|
||||
Left = 420
|
||||
Height = 118
|
||||
Height = 219
|
||||
Top = 276
|
||||
Width = 486
|
||||
ActiveControl = Button1
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 118
|
||||
ClientHeight = 219
|
||||
ClientWidth = 486
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '0.9.29'
|
||||
LCLVersion = '1.3'
|
||||
object Label1: TLabel
|
||||
Left = 108
|
||||
Height = 16
|
||||
Height = 21
|
||||
Top = 8
|
||||
Width = 112
|
||||
Width = 117
|
||||
Caption = 'Select Paper Size'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 8
|
||||
Height = 16
|
||||
Height = 21
|
||||
Top = 8
|
||||
Width = 78
|
||||
Width = 84
|
||||
Caption = 'Resolution X'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 8
|
||||
Height = 16
|
||||
Height = 21
|
||||
Top = 64
|
||||
Width = 77
|
||||
Width = 83
|
||||
Caption = 'Resolution Y'
|
||||
ParentColor = False
|
||||
end
|
||||
@ -55,19 +55,20 @@ object Form1: TForm1
|
||||
end
|
||||
object ListBox1: TListBox
|
||||
Left = 104
|
||||
Height = 79
|
||||
Height = 87
|
||||
Top = 28
|
||||
Width = 124
|
||||
Items.Strings = (
|
||||
'A4'
|
||||
'Letter'
|
||||
)
|
||||
ItemHeight = 21
|
||||
ItemHeight = 27
|
||||
ScrollWidth = 122
|
||||
TabOrder = 2
|
||||
end
|
||||
object txtResX: TEdit
|
||||
Left = 8
|
||||
Height = 21
|
||||
Height = 31
|
||||
Top = 28
|
||||
Width = 80
|
||||
TabOrder = 3
|
||||
@ -75,7 +76,7 @@ object Form1: TForm1
|
||||
end
|
||||
object txtResY: TEdit
|
||||
Left = 8
|
||||
Height = 21
|
||||
Height = 31
|
||||
Top = 84
|
||||
Width = 80
|
||||
TabOrder = 4
|
||||
@ -90,4 +91,38 @@ object Form1: TForm1
|
||||
OnClick = Button3Click
|
||||
TabOrder = 5
|
||||
end
|
||||
object btnTestFonts: TButton
|
||||
Left = 264
|
||||
Height = 25
|
||||
Top = 112
|
||||
Width = 211
|
||||
Caption = 'Test Fonts'
|
||||
OnClick = btnTestFontsClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object gpOrientation: TRadioGroup
|
||||
Left = 8
|
||||
Height = 96
|
||||
Top = 120
|
||||
Width = 220
|
||||
AutoFill = True
|
||||
Caption = 'Orientation'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 73
|
||||
ClientWidth = 216
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'Portrait'
|
||||
'Reverse Portrait'
|
||||
'Landscape'
|
||||
'Reverse Landscape'
|
||||
)
|
||||
TabOrder = 7
|
||||
end
|
||||
end
|
||||
|
||||
@ -11,8 +11,8 @@ uses
|
||||
{$IFDEF UNIX}
|
||||
Unix,
|
||||
{$ENDIF}
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
Buttons, PostScriptCanvas, StdCtrls;
|
||||
Classes, SysUtils, types, FileUtil, LResources, Forms, Controls, Graphics,
|
||||
Dialogs, Buttons, Printers, PostScriptCanvas, StdCtrls, ExtCtrls;
|
||||
|
||||
type
|
||||
|
||||
@ -22,18 +22,30 @@ type
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
btnTestFonts: TButton;
|
||||
gpOrientation: TRadioGroup;
|
||||
txtResX: TEdit;
|
||||
txtResY: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
ListBox1: TListBox;
|
||||
procedure btnTestFontsClick(Sender: TObject);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
procedure Button3Click(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
fPsCanvas: TPostscriptCanvas;
|
||||
function Sx(AX: Integer): Integer;
|
||||
function Sy(AY: Integer): Integer;
|
||||
function PointS(Ax,Ay:Integer): TPoint;
|
||||
function RectS(Ax1,Ay1,Ax2,AY2: Integer): TRect;
|
||||
function Pt2Pix(Pt: Integer): Integer;
|
||||
|
||||
procedure ShowFile(aFile:string);
|
||||
procedure SelectPaper(res:Integer=0);
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
@ -55,72 +67,42 @@ var
|
||||
Xpm : TPixMap;
|
||||
png : TPortableNetworkGraphic;
|
||||
x,y,tmp : Integer;
|
||||
PsCanvas: TPostscriptCanvas;
|
||||
R : TRect;
|
||||
|
||||
function Sx(AX: Integer): Integer;
|
||||
begin
|
||||
// all values were based on 72 dpi
|
||||
result := round(PsCanvas.XDPI/72*Ax);
|
||||
end;
|
||||
|
||||
function Sy(AY: Integer): Integer;
|
||||
begin
|
||||
// all values were based on 72 dpi
|
||||
result := round(PsCanvas.YDPI/72*Ay);
|
||||
end;
|
||||
|
||||
function PointS(Ax,Ay:Integer): TPoint;
|
||||
begin
|
||||
Result.X:= Sx(Ax);
|
||||
Result.Y:= Sy(Ay);
|
||||
end;
|
||||
|
||||
function RectS(Ax1,Ay1,Ax2,AY2: Integer): TRect;
|
||||
begin
|
||||
Result.TopLeft := PointS(AX1,AY1);
|
||||
Result.BottomRight := PointS(AX2,AY2);
|
||||
end;
|
||||
|
||||
function Pt2Pix(Pt: Integer): Integer;
|
||||
begin
|
||||
result := round(PSCanvas.YDPI/72*Pt);
|
||||
end;
|
||||
|
||||
procedure LineSample(txt:string);
|
||||
begin
|
||||
tmp := Pt2Pix(PsCanvas.Font.Size) div 2;
|
||||
PsCanvas.Line(x+Sx(170),y+tmp,x+Sx(170+100),y+tmp);
|
||||
PsCanvas.TextOut(x,y,txt);
|
||||
tmp := Pt2Pix(fPsCanvas.Font.Size) div 2;
|
||||
fPsCanvas.Line(x+Sx(170),y+tmp,x+Sx(170+100),y+tmp);
|
||||
fPsCanvas.TextOut(x,y,txt);
|
||||
inc(y,tmp*3);
|
||||
end;
|
||||
|
||||
procedure BrushSample(txt:string);
|
||||
begin
|
||||
PsCanvas.Rectangle(x,y,x+Sx(50),y+Sy(40));
|
||||
PsCanvas.TextOut(x+Sx(55),y+SY(40)-Pt2Pix(PsCanvas.Font.Size),txt);
|
||||
fPsCanvas.Rectangle(x,y,x+Sx(50),y+Sy(40));
|
||||
fPsCanvas.TextOut(x+Sx(55),y+SY(40)-Pt2Pix(fPsCanvas.Font.Size),txt);
|
||||
inc(y,Sy(50));
|
||||
end;
|
||||
|
||||
procedure FontSample(txt:string);
|
||||
begin
|
||||
PsCanvas.TextOut(x,y,txt);
|
||||
inc(y,Pt2Pix(PsCanvas.Font.Size)+Sy(4));
|
||||
fPsCanvas.TextOut(x,y,txt);
|
||||
inc(y,Pt2Pix(fPsCanvas.Font.Size)+Sy(4));
|
||||
end;
|
||||
|
||||
procedure LineSamples(AX,AY:Integer);
|
||||
begin
|
||||
x := AX;
|
||||
y := AY;
|
||||
PsCanvas.Pen.Style:=psSolid;
|
||||
fPsCanvas.Pen.Style:=psSolid;
|
||||
LineSample('Line style=psSolid');
|
||||
PsCanvas.Pen.Style:=psDash;
|
||||
fPsCanvas.Pen.Style:=psDash;
|
||||
LineSample('Line style=psDash');
|
||||
PsCanvas.Pen.Style:=psDot;
|
||||
fPsCanvas.Pen.Style:=psDot;
|
||||
LineSample('Line style=psDot');
|
||||
PsCanvas.Pen.Style:=psDashDot;
|
||||
fPsCanvas.Pen.Style:=psDashDot;
|
||||
LineSample('Line style=psDashDot');
|
||||
PsCanvas.Pen.Style:=psDashDotDot;
|
||||
fPsCanvas.Pen.Style:=psDashDotDot;
|
||||
LineSample('Line style=psDashDotDot');
|
||||
end;
|
||||
|
||||
@ -128,20 +110,20 @@ var
|
||||
begin
|
||||
x := AX;
|
||||
y := AY;
|
||||
PsCanvas.Pen.Style:=psSolid;
|
||||
PsCanvas.Brush.Color:=clBlack;
|
||||
fPsCanvas.Pen.Style:=psSolid;
|
||||
fPsCanvas.Brush.Color:=clBlack;
|
||||
|
||||
PsCanvas.Brush.Style:=bsCross;
|
||||
fPsCanvas.Brush.Style:=bsCross;
|
||||
BrushSample('Brush.Style:=bsCross');
|
||||
PsCanvas.Brush.Style:=bsDiagCross;
|
||||
fPsCanvas.Brush.Style:=bsDiagCross;
|
||||
BrushSample('Brush.Style:=bsDiagCross');
|
||||
PsCanvas.Brush.Style:=bsBDiagonal;
|
||||
fPsCanvas.Brush.Style:=bsBDiagonal;
|
||||
BrushSample('Brush.Style:=bsBDiagonal');
|
||||
PsCanvas.Brush.Style:=bsFDiagonal;
|
||||
fPsCanvas.Brush.Style:=bsFDiagonal;
|
||||
BrushSample('Brush.Style:=bsFDiagonal');
|
||||
PsCanvas.Brush.Style:=bsVertical;
|
||||
fPsCanvas.Brush.Style:=bsVertical;
|
||||
BrushSample('Brush.Style:=bsVertical');
|
||||
PsCanvas.Brush.Style:=bsHorizontal;
|
||||
fPsCanvas.Brush.Style:=bsHorizontal;
|
||||
BrushSample('Brush.Style:=bsHorizontal');
|
||||
end;
|
||||
|
||||
@ -149,36 +131,26 @@ var
|
||||
begin
|
||||
x := AX;
|
||||
y := Ay;
|
||||
PsCanvas.Font.Name:='Courier';
|
||||
tmp := PsCanvas.Font.Size;
|
||||
PsCanvas.Font.Style:=[fsUnderline];
|
||||
fPsCanvas.Font.Name:='Courier';
|
||||
tmp := fPsCanvas.Font.Size;
|
||||
fPsCanvas.Font.Style:=[fsUnderline];
|
||||
FontSample('Underline text '+#13#10+'sample (éàçè)');
|
||||
PsCanvas.Font.Style:=[fsUnderline,fsBold];
|
||||
fPsCanvas.Font.Style:=[fsUnderline,fsBold];
|
||||
FontSample('Underline and bold text sample (éàçè)');
|
||||
PsCanvas.Font.Style:=[fsItalic];
|
||||
fPsCanvas.Font.Style:=[fsItalic];
|
||||
FontSample('Italic Пример текста Random:ęðšćàÀâ¿€ÂáÁçÇñÑüÜ');
|
||||
PsCanvas.Font.Style:=[];
|
||||
fPsCanvas.Font.Style:=[];
|
||||
FontSample('Normal Пример текста Random:ęðšćàÀâ¿€ÂáÁçÇñÑüÜ');
|
||||
PsCanvas.Font.Style:=[fsUnderline,fsBold,fsItalic];
|
||||
fPsCanvas.Font.Style:=[fsUnderline,fsBold,fsItalic];
|
||||
FontSample('all Пример текста Random:ęðšćàÀâ¿€ÂáÁçÇñÑüÜ');
|
||||
PsCanvas.Font.Style:=[];
|
||||
fPsCanvas.Font.Style:=[];
|
||||
end;
|
||||
begin
|
||||
if Sender=nil then ;
|
||||
PsCanvas := TPostscriptCanvas.Create;
|
||||
psCanvas.XDPI := StrToIntDef(txtResX.Text,300);
|
||||
psCanvas.YDPI := StrToIntDef(txtResY.Text,300);
|
||||
With PsCanvas do
|
||||
fPsCanvas := TPostscriptCanvas.Create;
|
||||
With fPsCanvas do
|
||||
try
|
||||
if ListBox1.ItemIndex=1 then begin
|
||||
PaperHeight:=Sx(792);
|
||||
PaperWidth:=Sy(612);
|
||||
end else begin
|
||||
PaperHeight:=Sy(842);
|
||||
PaperWidth:=Sx(595);
|
||||
end;
|
||||
TopMargin:=Sy(40);
|
||||
LeftMargin:=Sx(20);
|
||||
SelectPaper;
|
||||
|
||||
BeginDoc;
|
||||
|
||||
@ -268,12 +240,12 @@ begin
|
||||
BrushSamples(Sx(100),Sy(100));
|
||||
|
||||
R := RectS(100,500,200,520);
|
||||
PSCanvas.Brush.Style:=bsSolid;
|
||||
PSCanvas.Brush.Color:=clWhite;
|
||||
PSCanvas.Rectangle(R.Left, R.Top, R.Right, R.Bottom);
|
||||
PSCanvas.ClipRect := R;
|
||||
PSCanvas.TextRect(R, R.Left, R.Top, 'Testing clip rect on TextRect', PSCanvas.TextStyle);
|
||||
PSCanvas.ClipRect := Rect(0,0,0,0);
|
||||
fPSCanvas.Brush.Style:=bsSolid;
|
||||
fPSCanvas.Brush.Color:=clWhite;
|
||||
fPSCanvas.Rectangle(R.Left, R.Top, R.Right, R.Bottom);
|
||||
fPSCanvas.ClipRect := R;
|
||||
fPSCanvas.TextRect(R, R.Left, R.Top, 'Testing clip rect on TextRect', fPSCanvas.TextStyle);
|
||||
fPSCanvas.ClipRect := Rect(0,0,0,0);
|
||||
|
||||
EndDoc;
|
||||
SaveToFile('test1.ps');
|
||||
@ -282,49 +254,88 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button2Click(Sender: TObject);
|
||||
var
|
||||
FName: string;
|
||||
begin
|
||||
if Sender=nil then ;
|
||||
if FileExistsUTF8(ExpandFileNameUTF8('./test1.ps')) then
|
||||
procedure TForm1.btnTestFontsClick(Sender: TObject);
|
||||
const
|
||||
arrNames:array[0..3] of string =
|
||||
('Courier', 'Helvetica', 'Times-Roman', 'Symbol');
|
||||
|
||||
function SampleFontName(ax, ay: Integer; aFontName: string): types.TSize;
|
||||
const
|
||||
SText = 'Tj1';
|
||||
ArrStyles: array[0..3] of TFontStyles =
|
||||
([],[fsUnderline],[fsBold],[fsBold,fsUnderline]);
|
||||
var
|
||||
sz: types.TSize;
|
||||
i, j, fontSize, x, y, dy: Integer;
|
||||
begin
|
||||
{$IFDEF MSWINDOWS}
|
||||
FName := '"C:\Program Files\Ghostgum\gsview\gsview32" ' + ExpandFileNameUTF8('./test1.ps');
|
||||
ShellExecute(Handle, 'open', PChar(FName), nil, nil, SW_SHOWNORMAL)
|
||||
{$ENDIF}
|
||||
{$IFDEF UNIX}
|
||||
Shell(format('gv %s',[ExpandFileNameUTF8('./test1.ps')]));
|
||||
{$ENDIF}
|
||||
y := Sy(aY);
|
||||
x := Sx(ax);
|
||||
dy := 0;
|
||||
fPsCanvas.Font.Name:=aFontName;
|
||||
fontSize := 16;
|
||||
while fontSize<(12*3) do begin
|
||||
fPsCanvas.Font.Size := fontSize;
|
||||
for i:=0 to 3 do begin
|
||||
fPsCanvas.Font.Style:=arrStyles[i];
|
||||
fPsCanvas.TextOut(x, y, SText);
|
||||
sz := fPsCanvas.TextExtent(SText);
|
||||
inc(x, sz.cx);
|
||||
end;
|
||||
inc(fontSize, 8);
|
||||
end;
|
||||
inc(y, sz.cy);
|
||||
result.cx := x;
|
||||
result.cy := y;
|
||||
//x := ax;
|
||||
end;
|
||||
var
|
||||
i: Integer;
|
||||
sz: Types.TSize;
|
||||
begin
|
||||
fPsCanvas := TPostscriptCanvas.Create;
|
||||
try
|
||||
SelectPaper;
|
||||
|
||||
fPsCanvas.BeginDoc;
|
||||
|
||||
sz.cy := 10;
|
||||
for i:=0 to High(ArrNames) do
|
||||
sz := SampleFontName(10, sz.cy, ArrNames[i]);
|
||||
|
||||
fPsCanvas.EndDoc;
|
||||
fPsCanvas.SaveToFile('fonts.ps');
|
||||
|
||||
finally
|
||||
fPsCanvas.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button2Click(Sender: TObject);
|
||||
begin
|
||||
ShowFile('test1.ps');
|
||||
end;
|
||||
|
||||
procedure TForm1.Button3Click(Sender: TObject);
|
||||
var
|
||||
png : TPortableNetworkGraphic;
|
||||
x,y,tmp : Integer;
|
||||
PsCanvas: TPostscriptCanvas;
|
||||
png : TPortableNetworkGraphic;
|
||||
x,y,tmp : Integer;
|
||||
begin
|
||||
psCanvas := TPostscriptCanvas.Create;
|
||||
psCanvas.XDPI := 72;
|
||||
psCanvas.YDPI := 72;
|
||||
psCanvas.PaperHeight:=842;
|
||||
psCanvas.PaperWidth:=595;
|
||||
psCanvas.TopMargin:=40;
|
||||
psCanvas.LeftMargin:=20;
|
||||
psCanvas.BeginDoc;
|
||||
fPsCanvas := TPostscriptCanvas.Create;
|
||||
SelectPaper(72);
|
||||
|
||||
fPsCanvas.BeginDoc;
|
||||
|
||||
png := TPortableNetworkGraphic.Create;
|
||||
try
|
||||
png.LoadFromFile('small.png');
|
||||
psCanvas.StretchDraw(Bounds(50,500,50,50),png);
|
||||
fPsCanvas.StretchDraw(Bounds(50,500,50,50),png);
|
||||
finally
|
||||
png.Free;
|
||||
end;
|
||||
|
||||
psCanvas.EndDoc;
|
||||
psCanvas.SaveToFile('small.ps');
|
||||
psCanvas.Free;
|
||||
fPsCanvas.EndDoc;
|
||||
fPsCanvas.SaveToFile('small.ps');
|
||||
fPsCanvas.Free;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
@ -332,5 +343,84 @@ begin
|
||||
ListBox1.ItemIndex:=0;
|
||||
end;
|
||||
|
||||
function TForm1.Sx(AX: Integer): Integer;
|
||||
begin
|
||||
// all values were based on 72 dpi
|
||||
result := round(fPsCanvas.XDPI/72*Ax);
|
||||
end;
|
||||
|
||||
function TForm1.Sy(AY: Integer): Integer;
|
||||
begin
|
||||
// all values were based on 72 dpi
|
||||
result := round(fPsCanvas.YDPI/72*Ay);
|
||||
end;
|
||||
|
||||
function TForm1.PointS(Ax, Ay: Integer): TPoint;
|
||||
begin
|
||||
Result.X:= Sx(Ax);
|
||||
Result.Y:= Sy(Ay);
|
||||
end;
|
||||
|
||||
function TForm1.RectS(Ax1, Ay1, Ax2, AY2: Integer): TRect;
|
||||
begin
|
||||
Result.TopLeft := PointS(AX1,AY1);
|
||||
Result.BottomRight := PointS(AX2,AY2);
|
||||
end;
|
||||
|
||||
function TForm1.Pt2Pix(Pt: Integer): Integer;
|
||||
begin
|
||||
result := round(fPSCanvas.YDPI/72*Pt);
|
||||
end;
|
||||
|
||||
procedure TForm1.ShowFile(aFile: string);
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
FName: string;
|
||||
{$ENDIF}
|
||||
begin
|
||||
aFile := ExpandFileNameUTF8('./'+aFile);
|
||||
if FileExistsUTF8(aFile) then
|
||||
begin
|
||||
{$IFDEF MSWINDOWS}
|
||||
FName := '"C:\Program Files\Ghostgum\gsview\gsview32" ' + aFile);
|
||||
ShellExecute(Handle, 'open', PChar(FName), nil, nil, SW_SHOWNORMAL)
|
||||
{$ENDIF}
|
||||
{$IFDEF UNIX}
|
||||
FpExecL('/usr/bin/evince', [aFile]);
|
||||
//Shell(format('gv %s',[aFile]));
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.SelectPaper(res:Integer=0);
|
||||
begin
|
||||
with fPsCanvas do begin
|
||||
if res=0 then begin
|
||||
XDPI := StrToIntDef(txtResX.Text,300);
|
||||
YDPI := StrToIntDef(txtResY.Text,300);
|
||||
end else begin
|
||||
XDPI := res;
|
||||
YDPI := res;
|
||||
end;
|
||||
if ListBox1.ItemIndex=1 then begin
|
||||
PaperHeight:=Sx(792);
|
||||
PaperWidth:=Sy(612);
|
||||
end else begin
|
||||
PaperHeight:=Sy(842);
|
||||
PaperWidth:=Sx(595);
|
||||
end;
|
||||
TopMargin:=Sy(40);
|
||||
LeftMargin:=Sx(20);
|
||||
|
||||
case gpOrientation.ItemIndex of
|
||||
1: Orientation := poReversePortrait;
|
||||
2: Orientation := poLandscape;
|
||||
3: Orientation := poReverseLandscape;
|
||||
else Orientation := poPortrait;
|
||||
end;
|
||||
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user