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

fpvectorial: small fixes

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

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

@ -244,7 +244,7 @@ procedure DrawFPVEntityToCanvas(ASource: TvVectorialDocument; CurEntity: TvEntit
var
i: Integer;
{$ifdef USE_LCL_CANVAS}
ALCLDest: TCanvas absolute ADest;
ALCLDest: TCanvas;
{$endif}
// For entities
CurCircle: TvCircle;
@ -259,6 +259,10 @@ var
Points: array of TPoint;
UpperDim, LowerDim: T3DPoint;
begin
{$ifdef USE_LCL_CANVAS}
ALCLDest := TCanvas(ADest);
{$endif}
ADest.Brush.Style := CurEntity.Brush.Style;
ADest.Pen.Style := CurEntity.Pen.Style;
ADest.Pen.FPColor := CurEntity.Pen.Color;
@ -446,16 +450,22 @@ procedure DrawFPVTextToCanvas(ASource: TvVectorialDocument; CurText: TvText;
var
i: Integer;
{$ifdef USE_LCL_CANVAS}
ALCLDest: TCanvas absolute ADest;
ALCLDest: TCanvas;
{$endif}
//
LowerDim: T3DPoint;
begin
{$ifdef USE_LCL_CANVAS}
ALCLDest := TCanvas(ADest);
{$endif}
ADest.Font.Size := Round(AmulX * CurText.Font.Size);
ADest.Pen.Style := psSolid;
ADest.Pen.FPColor := colBlack;
ADest.Brush.Style := bsClear;
{$ifdef USE_LCL_CANVAS}
ALCLDest.Font.Orientation := Round(CurText.Font.Orientation * 16);
{$endif}
LowerDim.Y := CurText.Y + CurText.Font.Size;
ADest.TextOut(CoordToCanvasX(CurText.X), CoordToCanvasY(LowerDim.Y), CurText.Value);