paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 11:00:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: adds possibility to disable newer gradient code

Browse Source 
git-svn-id: trunk@52200 -
This commit is contained in:
sekelsenmat 2016-04-15 12:23:29 +00:00
parent b684a204a4
commit b0633c96d9
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpvectorial/fpvectorial.pas
View File

@ -24,6 +24,7 @@ unit fpvectorial;
{.$define FPVECTORIAL_TOCANVAS_DEBUG}
{.$define FPVECTORIAL_DEBUG_BLOCKS}
{.$define FPVECTORIAL_AUTOFIT_DEBUG}
{.$define FPVECTORIAL_SUPPORT_LAZARUS_1_6}
// visual debugs
{.$define FPVECTORIAL_TOCANVAS_ELLIPSE_VISUALDEBUG}
{.$define FPVECTORIAL_RENDERINFO_VISUALDEBUG}
@ -4180,6 +4181,7 @@ end;
procedure TvEntityWithPenAndBrush.DrawNativePolygonBrushRadialGradient(
ADest: TFPCustomCanvas; var ARenderInfo: TvRenderInfo;
const APoints: TPointsArray; ARect: TRect);
{$ifndef FPVECTORIAL_SUPPORT_LAZARUS_1_6}
{$ifdef USE_LCL_CANVAS}
var
lLogRadGrad: TLogRadialGradient;
@ -4199,8 +4201,10 @@ var
end;
end;
{$endif}
{$endif}
begin
{$ifndef FPVECTORIAL_SUPPORT_LAZARUS_1_6}
{$ifdef USE_LCL_CANVAS}
lLogRadGrad.radCenterX := Gradient_value_to_px(Brush.Gradient_cx, Brush.Gradient_cx_Unit, False);
lLogRadGrad.radCenterY := Gradient_value_to_px(Brush.Gradient_cy, Brush.Gradient_cy_Unit, False);
@ -4224,6 +4228,7 @@ begin
TCanvas(ADest).Polygon(APoints);
TCanvas(ADest).Brush.Handle := lOldBrush;
{$endif}
{$endif}
end;
procedure TvEntityWithPenAndBrush.DrawBrushGradient(ADest: TFPCustomCanvas;