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

fpvectorial: Adds some more pen information

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1563 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-04-11 07:19:49 +00:00
parent 7060f8080c
commit 9a48e7adbb
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -76,7 +76,9 @@ type
Previous: TPathSegment; Previous: TPathSegment;
Next: TPathSegment; Next: TPathSegment;
// Data fields // Data fields
Color: TvColor; PenColor: TvColor;
PenStyle: TFPPenStyle;
PenWidth: Integer;
end; end;
{@@ {@@
@ -548,7 +550,7 @@ begin
segment.SegmentType := st2DLine; segment.SegmentType := st2DLine;
segment.X := AX; segment.X := AX;
segment.Y := AY; segment.Y := AY;
segment.Color := clvBlack; segment.PenColor := clvBlack;
AppendSegmentToTmpPath(segment); AppendSegmentToTmpPath(segment);
end; end;
@ -561,7 +563,7 @@ begin
segment.SegmentType := st2DLine; segment.SegmentType := st2DLine;
segment.X := AX; segment.X := AX;
segment.Y := AY; segment.Y := AY;
segment.Color := AColor; segment.PenColor := AColor;
AppendSegmentToTmpPath(segment); AppendSegmentToTmpPath(segment);
end; end;

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

@ -189,7 +189,7 @@ begin
end; end;
st2DLine, st3DLine: st2DLine, st3DLine:
begin begin
ADest.Pen.Color := {$ifdef USE_LCL_CANVAS}VColorToTColor(Cur2DSegment.Color);{$else}VColorToFPColor(Cur2DSegment.Color);{$endif} ADest.Pen.Color := {$ifdef USE_LCL_CANVAS}VColorToTColor(Cur2DSegment.PenColor);{$else}VColorToFPColor(Cur2DSegment.PenColor);{$endif}
ADest.LineTo(CoordToCanvasX(Cur2DSegment.X), CoordToCanvasY(Cur2DSegment.Y)); ADest.LineTo(CoordToCanvasX(Cur2DSegment.X), CoordToCanvasY(Cur2DSegment.Y));
ADest.Pen.Color := clBlack; ADest.Pen.Color := clBlack;
{$ifdef FPVECTORIAL_TOCANVAS_DEBUG} {$ifdef FPVECTORIAL_TOCANVAS_DEBUG}