[G32-commits] SF.net SVN: graphics32:[2167] trunk/Source/GR32_ColorGradients.pas

[<cw...@us...>]

Revision: 2167
          http://sourceforge.net/p/graphics32/code/2167
Author:   cwbudde
Date:     2014-02-19 22:45:54 +0000 (Wed, 19 Feb 2014)
Log Message:
-----------
Added even simpler "SimpleGradient" function (for vertical/horizontal access)

Modified Paths:
--------------
    trunk/Source/GR32_ColorGradients.pas

Modified: trunk/Source/GR32_ColorGradients.pas
===================================================================
--- trunk/Source/GR32_ColorGradients.pas	2014-02-19 22:43:06 UTC (rev 2166)
+++ trunk/Source/GR32_ColorGradients.pas	2014-02-19 22:45:54 UTC (rev 2167)
@@ -540,6 +540,10 @@
   public
     procedure SimpleGradient(const StartPoint: TFloatPoint; StartColor: TColor32;
       const EndPoint: TFloatPoint; EndColor: TColor32); virtual;
+    procedure SimpleGradientX(const StartX: TFloat; StartColor: TColor32;
+      const EndX: TFloat; EndColor: TColor32);
+    procedure SimpleGradientY(const StartY: TFloat; StartColor: TColor32;
+      const EndY: TFloat; EndColor: TColor32);
     procedure SetPoints(const StartPoint, EndPoint: TFloatPoint); virtual;
 
     property StartPoint: TFloatPoint read FStartPoint write SetStartPoint;
@@ -3404,6 +3408,24 @@
   end;
 end;
 
+procedure TCustomLinearGradientPolygonFiller.SimpleGradientX(
+  const StartX: TFloat; StartColor: TColor32; const EndX: TFloat;
+  EndColor: TColor32);
+begin
+  SimpleGradient(
+    FloatPoint(StartX, 0), StartColor,
+    FloatPoint(EndX, 0), EndColor);
+end;
+
+procedure TCustomLinearGradientPolygonFiller.SimpleGradientY(
+  const StartY: TFloat; StartColor: TColor32; const EndY: TFloat;
+  EndColor: TColor32);
+begin
+  SimpleGradient(
+    FloatPoint(0, StartY), StartColor,
+    FloatPoint(0, EndY), EndColor);
+end;
+
 procedure TCustomLinearGradientPolygonFiller.SetEndPoint(
   const Value: TFloatPoint);
 begin

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.