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

Implements zoom support for the contour lines

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2368 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2012-03-29 09:35:16 +00:00
parent e751b4f19f
commit 646d7db969
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
applications/fpvviewer/fpvv_mainform.pas
View File

@ -285,7 +285,11 @@ procedure TfrmFPVViewer.MyContourLineDrawingProc(z, x1, y1, x2, y2: Double);
begin begin
Drawer.Drawing.Canvas.Pen.Style := psSolid; Drawer.Drawing.Canvas.Pen.Style := psSolid;
Drawer.Drawing.Canvas.Pen.Color := clBlack; Drawer.Drawing.Canvas.Pen.Color := clBlack;
Drawer.Drawing.Canvas.Line(Round(x1 / 20), Round(y1 / 20), Round(x2 / 20), Round(y2 / 20)); Drawer.Drawing.Canvas.Line(
Round(x1 * spinScale.Value / 20),
Round(y1 * spinScale.Value / 20),
Round(x2 * spinScale.Value / 20),
Round(y2 * spinScale.Value / 20));
end; end;
end. end.