paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 15:48:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples, postscript: fix opening default .ps viewer under windows plus cleanup, from ocean, issue #27135

Browse Source 
git-svn-id: trunk@47113 -
This commit is contained in:
jesus 2014-12-05 01:09:46 +00:00
parent d798261135
commit 47cf220de1
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
examples/postscript/usamplepostscriptcanvas.pas
View File

@ -266,11 +266,10 @@ const
([],[fsUnderline],[fsBold],[fsBold,fsUnderline]);
var
sz: types.TSize;
i, j, fontSize, x, y, dy: Integer;
i, fontSize, x, y: Integer;
begin
y := Sy(aY);
x := Sx(ax);
dy := 0;
fPsCanvas.Font.Name:=aFontName;
fontSize := 16;
while fontSize<(12*3) do begin
@ -318,7 +317,6 @@ end;
procedure TForm1.Button3Click(Sender: TObject);
var
png : TPortableNetworkGraphic;
x,y,tmp : Integer;
begin
fPsCanvas := TPostscriptCanvas.Create;
SelectPaper(72);
@ -373,17 +371,12 @@ begin
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)
ShellExecute(Handle, 'open', PChar(afile), nil, nil, SW_SHOWNORMAL);
{$ENDIF}
{$IFDEF UNIX}
FpExecL('/usr/bin/evince', [aFile]);