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

Fixes compilation of fpvviewer

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1687 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-06-17 09:38:09 +00:00
parent 20bce90e6b
commit e2aa553c6c
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
applications/fpvviewer/fpvv_mainform.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, EditBtn,
StdCtrls, Spin, ExtCtrls, ComCtrls,
fpvv_drawer;
fpvv_drawer, fpimage, fpcanvas;
type
@ -126,7 +126,6 @@ end;
procedure TfrmFPVViewer.buttonRenderingTestClick(Sender: TObject);
var
Vec: TvVectorialDocument;
lClYellow: TvColor = (Red: $FF; Green: $FF; Blue: $00; Alpha: FPValphaOpaque);
begin
notebook.PageIndex := 0;
@ -138,7 +137,7 @@ begin
Vec.AddAlignedDimension(Make2DPoint(50, 250), Make2DPoint(100, 200), Make2DPoint(150, 250), Make2DPoint(150, 200));
Vec.StartPath(0, 0);
Vec.SetPenColor(lClYellow);
Vec.SetPenColor(colYellow);
Vec.SetPenWidth(1);
Vec.AddLineToPath(100, 100);
Vec.EndPath();