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

Fixes compilation without the LCL

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

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

@ -189,9 +189,9 @@ begin
end;
st2DLine, st3DLine:
begin
ADest.Pen.Color := {$ifdef USE_LCL_CANVAS}VColorToTColor(Cur2DSegment.PenColor);{$else}VColorToFPColor(Cur2DSegment.PenColor);{$endif}
{$ifdef USE_LCL_CANVAS}ADest.Pen.Color := VColorToTColor(Cur2DSegment.PenColor);{$endif}
ADest.LineTo(CoordToCanvasX(Cur2DSegment.X), CoordToCanvasY(Cur2DSegment.Y));
ADest.Pen.Color := clBlack;
{$ifdef USE_LCL_CANVAS}ADest.Pen.Color := clBlack;{$endif}
{$ifdef FPVECTORIAL_TOCANVAS_DEBUG}
Write(Format(' L%d,%d', [CoordToCanvasX(Cur2DSegment.X), CoordToCanvasY(Cur2DSegment.Y)]));
{$endif}