View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0027135 | Lazarus | Patch | public | 2014-12-04 19:47 | 2015-03-03 10:43 |
Reporter | ocean | Assigned To | Jesus Reyes | ||
Priority | normal | Severity | minor | Reproducibility | have not tried |
Status | closed | Resolution | fixed | ||
Product Version | 1.2.7 (SVN) | Product Build | |||
Target Version | 1.4 | Fixed in Version | 1.3 (SVN) | ||
Summary | 0027135: Postscript example doesn't compile in Windows | ||||
Description | usamplepostscriptcanvas.pas(385,71) Fatal: Syntax error, ";" expected but ")" found Proposed fix.. - Try to open file based on extension ".ps", instead of hardcoded path. - Remove unused variables. | ||||
Tags | No tags attached. | ||||
Fixed in Revision | 47113 | ||||
LazTarget | 1.4 | ||||
Widgetset | Win32/Win64 | ||||
Attached Files |
|
|
usamplepostscriptcanvas.patch (1,344 bytes)
Index: examples/postscript/usamplepostscriptcanvas.pas =================================================================== --- examples/postscript/usamplepostscriptcanvas.pas (revision 47070) +++ examples/postscript/usamplepostscriptcanvas.pas (working copy) @@ -266,11 +266,10 @@ ([],[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 @@ procedure TForm1.Button3Click(Sender: TObject); var png : TPortableNetworkGraphic; - x,y,tmp : Integer; begin fPsCanvas := TPostscriptCanvas.Create; SelectPaper(72); @@ -373,17 +371,12 @@ 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]); |
|
Applied, thank you. |
Date Modified | Username | Field | Change |
---|---|---|---|
2014-12-04 19:47 | ocean | New Issue | |
2014-12-04 19:47 | ocean | File Added: usamplepostscriptcanvas.patch | |
2014-12-04 21:13 | Jesus Reyes | Assigned To | => Jesus Reyes |
2014-12-04 21:13 | Jesus Reyes | Status | new => assigned |
2014-12-05 02:10 | Jesus Reyes | Fixed in Revision | => 47113 |
2014-12-05 02:10 | Jesus Reyes | LazTarget | => 1.4 |
2014-12-05 02:10 | Jesus Reyes | Note Added: 0079654 | |
2014-12-05 02:10 | Jesus Reyes | Status | assigned => resolved |
2014-12-05 02:10 | Jesus Reyes | Fixed in Version | => 1.3 (SVN) |
2014-12-05 02:10 | Jesus Reyes | Resolution | open => fixed |
2014-12-05 02:10 | Jesus Reyes | Target Version | => 1.4 |
2015-03-03 10:43 | ocean | Status | resolved => closed |