pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpvectorial: Improves the Pen Width handling

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1668 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-06-08 13:09:16 +00:00
parent 91a6b7a6f6
commit 3711a7c172
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
applications/fpvviewer/fpvectorialsrc/epsvectorialreader.pas
View File

@ -46,8 +46,6 @@ type
function IsValidPostScriptChar(AChar: Byte): Boolean;
end;
{ TvEPSFVectorialReader }
{ TvEPSVectorialReader }
TvEPSVectorialReader = class(TvCustomVectorialReader)
@ -154,7 +152,7 @@ end;
{@@ Valid PostScript Chars:
All printable: a..zA..Z0..9
All printable ASCII: a..zA..Z0..9 plus punctuation
Plus the following white spaces
000 00 0 Null (nul)

1
applications/fpvviewer/fpvectorialsrc/fpvectorial.pas
View File

@ -884,6 +884,7 @@ begin
FTmpPath.Brush.Style := bsClear;
FTmpPath.Pen.Color := clvBlack;
FTmpPath.Pen.Style := psSolid;
FTmpPath.Pen.Width := 1;
end;
procedure TvVectorialDocument.AppendSegmentToTmpPath(ASegment: TPathSegment);

1
applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas
View File

@ -171,6 +171,7 @@ begin
// Set the path Pen and Brush options
ADest.Pen.Style := CurPath.Pen.Style;
ADest.Pen.Width := CurPath.Pen.Width;
ADest.Brush.Style := CurPath.Brush.Style;
{$ifdef USE_LCL_CANVAS}
ADest.Pen.Color := VColorToTColor(CurPath.Pen.Color);