Changeset 494 for GraphicTest/Packages/bgrabitmap/bgragradients.pas

Timestamp:

Dec 22, 2016, 8:49:19 PM (7 years ago)

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

• GraphicTest/Packages/bgrabitmap/bgragradients.pas (modified) (5 diffs)

GraphicTest/Packages/bgrabitmap/bgragradients.pas

@@ -2 +2 @@
 
 {$mode objfpc}{$H+}
-
+{$i bgrabitmap.inc}
 {$i bgrasse.inc}
 
@@ -10 +10 @@
 
 uses
-  Classes, Graphics, BGRABitmapTypes, BGRABitmap, BGRABlend, BGRAPhongTypes, BGRASSE;
-
-{ Creates a bitmap with the specified text horizontally centered and with a shadow }
+  Classes, BGRAGraphics, BGRABitmapTypes, BGRABitmap, BGRABlend, BGRAPhongTypes, BGRASSE;
+
+{$IFDEF BGRABITMAP_USE_LCL}{ Creates a bitmap with the specified text horizontally centered and with a shadow }
 function TextShadow(AWidth,AHeight: Integer; AText: String; AFontHeight: Integer; ATextColor,AShadowColor: TBGRAPixel;
   AOffSetX,AOffSetY: Integer; ARadius: Integer = 0; AFontStyle: TFontStyles = []; AFontName: String = 'Default'; AShowText: Boolean = True): TBGRABitmap;
+{$ENDIF}
 
 {----------------------------------------------------------------------}
@@ -176 +177 @@
 implementation
 
-uses GraphType, Types, SysUtils, BGRATextFX; {GraphType unit used by phongdraw.inc}
-
-function TextShadow(AWidth, AHeight: Integer; AText: String;
+uses Types, SysUtils{$IFDEF BGRABITMAP_USE_LCL}, BGRATextFX{$ENDIF}; {GraphType unit used by phongdraw.inc}
+
+{$IFDEF BGRABITMAP_USE_LCL}function TextShadow(AWidth, AHeight: Integer; AText: String;
   AFontHeight: Integer; ATextColor, AShadowColor: TBGRAPixel; AOffSetX,
   AOffSetY: Integer; ARadius: Integer; AFontStyle: TFontStyles;
@@ -184 +185 @@
 begin
   result := BGRATextFX.TextShadow(AWidth,AHeight,AText,AFontHeight,ATextColor,AShadowColor,AOffsetX,AOffsetY,ARadius,AFontStyle,AFontName,AShowText) as TBGRABitmap;
-end;
+end;{$ENDIF}
 
 function nGradientInfo(StartColor, StopColor: TBGRAPixel;
@@ -671 +672 @@
   //antialiased border
   mask := TBGRABitmap.Create(width,height,BGRABlack);
-  mask.FillPolyAntialias([PointF(rx,-0.5),PointF(0,height-0.5),PointF(width-0.5,height-0.5)],BGRAWhite);
+  mask.FillPolyAntialias([PointF(width/2,-0.5),PointF(0,height-0.5),PointF(width-0.5,height-0.5)],BGRAWhite);
   result.ApplyMask(mask);
   mask.Free;