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

Timestamp:

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

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

• GraphicTest/Packages/bgrabitmap/bgrafreetype.pas (modified) (18 diffs)

GraphicTest/Packages/bgrabitmap/bgrafreetype.pas

@@ -11 +11 @@
   to draw text like TBGRABitmap.TextOut will use the chosen renderer.
 
-  >> Note that you need to defined the default FreeType font collection
-  >> using LazFreeTypeFontCollection unit.
+  >> Note that you need to define the default FreeType font collection
+  >> using EasyLazFreeType unit.
 
   To set the effects, keep a variable containing
@@ -26 +26 @@
 interface
 
+{$i bgrabitmap.inc}
+
 uses
-  Types, Classes, SysUtils, Graphics, BGRABitmapTypes, EasyLazFreeType, FPimage, BGRAText, BGRATextFX, BGRAPhongTypes, LCLVersion;
+  Types, Classes, SysUtils, BGRAGraphics, BGRABitmapTypes, EasyLazFreeType, FPimage,
+  BGRACustomTextFX, BGRAPhongTypes;
 
 type
@@ -57 +60 @@
     ShadowRadius: integer;
     ShadowOffset: TPoint;
+    ShadowQuality: TRadialBlurType;
 
     OutlineColor: TBGRAPixel;
@@ -101 +105 @@
     ShadowRadius: integer;
     ShadowOffset: TPoint;
+    ShadowQuality: TRadialBlurType;
 
     OutlineColor: TBGRAPixel;
@@ -110 +115 @@
     procedure DrawText(AText: string; AFont: TFreeTypeRenderableFont; x,y: single; AColor: TBGRAPixel); overload;
     procedure DrawText(AText: string; AFont: TFreeTypeRenderableFont; x,y: single; AColor: TBGRAPixel; AAlign: TFreeTypeAlignments); overload;
-    function CreateTextEffect(AText: string; AFont: TFreeTypeRenderableFont): TBGRATextEffect;
+    { If this code does not compile, you probably have an older version of Lazarus. To fix the problem,
+      go into "bgrabitmap.inc" and comment the compiler directives }
+    {$IFDEF BGRABITMAP_USE_LCL12}
+    procedure DrawTextWordBreak(AText: string; AFont: TFreeTypeRenderableFont; x, y, AMaxWidth: Single; AColor: TBGRAPixel; AAlign: TFreeTypeAlignments); overload;
+    procedure DrawTextRect(AText: string; AFont: TFreeTypeRenderableFont; X1,Y1,X2,Y2: Single; AColor: TBGRAPixel; AAlign: TFreeTypeAlignments); overload;
+    {$ENDIF}
+    {$IFDEF BGRABITMAP_USE_LCL15}
+    procedure DrawGlyph(AGlyph: integer; AFont: TFreeTypeRenderableFont; x,y: single; AColor: TFPColor); override; overload;
+    procedure DrawGlyph(AGlyph: integer; AFont: TFreeTypeRenderableFont; x,y: single; AColor: TBGRAPixel); overload;
+    procedure DrawGlyph(AGlyph: integer; AFont: TFreeTypeRenderableFont; x,y: single; AColor: TBGRAPixel; AAlign: TFreeTypeAlignments); overload;
+    {$ENDIF}
+    function CreateTextEffect(AText: string; AFont: TFreeTypeRenderableFont): TBGRACustomTextEffect;
     destructor Destroy; override;
   end;
@@ -117 +133 @@
 implementation
 
-uses LCLType, BGRABlend, Math;
+uses BGRABlend, Math;
 
 { TBGRAFreeTypeFontRenderer }
@@ -133 +149 @@
   result.ShadowRadius := ShadowRadius;
   result.ShadowVisible := ShadowVisible;
+  result.ShadowQuality := ShadowQuality;
   result.ClearTypeRGBOrder := FontQuality <> fqFineClearTypeBGR;
   result.Destination := ASurface;
@@ -159 +176 @@
 procedure TBGRAFreeTypeFontRenderer.UpdateFont;
 var fts: TFreeTypeStyles;
+  filename: string;
 begin
   fts := [];
@@ -164 +182 @@
   if fsItalic in FontStyle then fts += [ftsItalic];
   try
-    {$IF (lcl_fullversion>=1010000)}
-    FFont.SetNameAndStyle(FontName,fts);
+    filename := FontName;
+    {$IFDEF BGRABITMAP_USE_LCL12}
+    FFont.SetNameAndStyle(filename,fts);
     {$ELSE}
-    FFont.Name := FontName;
+    FFont.Name := filename;
     FFont.Style := fts;
     {$ENDIF}
@@ -202 +221 @@
   end;
   FFont.Hinted := FontHinted;
-  {$IF (lcl_fullversion>=1010000)}
-  FFont.StrikeOutDecoration := fsStrikeOut in FontStyle;
-  FFont.UnderlineDecoration := fsUnderline in FontStyle;
+  {$IFDEF BGRABITMAP_USE_LCL12}
+    FFont.StrikeOutDecoration := fsStrikeOut in FontStyle;
+    FFont.UnderlineDecoration := fsUnderline in FontStyle;
   {$ENDIF}
 end;
@@ -220 +239 @@
   ShadowOffset := Point(5,5);
   ShadowRadius := 5;
+  ShadowQuality:= rbFast;
 end;
 
@@ -303 +323 @@
   end;
   case style.Layout of
-  {$IF (lcl_fullversion>=1010000)}
-  tlCenter: begin ARect.Top := y; align += [ftaVerticalCenter]; end;
+  {$IFDEF BGRABITMAP_USE_LCL12}
+    tlCenter: begin ARect.Top := y; align += [ftaVerticalCenter]; end;
   {$ENDIF}
   tlBottom: begin ARect.top := y; align += [ftaBottom]; end;
@@ -310 +330 @@
   end;
   try
-    {$IF (lcl_fullversion>=1010000)}
-    if style.Wordbreak then
-      GetDrawer(ADest).DrawTextRect(s, FFont, ARect.Left,ARect.Top,ARect.Right,ARect.Bottom,BGRAToFPColor(c),align)
-    else
+    {$IFDEF BGRABITMAP_USE_LCL12}
+      if style.Wordbreak then
+        GetDrawer(ADest).DrawTextRect(s, FFont, ARect.Left,ARect.Top,ARect.Right,ARect.Bottom,BGRAToFPColor(c),align)
+      else
     {$ENDIF}
     begin
@@ -345 +365 @@
 function TBGRAFreeTypeFontRenderer.TextSize(s: string): TSize;
 begin
+  UpdateFont;
   result.cx := round(FFont.TextWidth(s));
   result.cy := round(FFont.LineFullHeight);
@@ -457 +478 @@
   ClearTypeRGBOrder:= true;
   ShaderActive := true;
+  ShadowQuality:= rbFast;
 end;
 
 procedure TBGRAFreeTypeDrawer.DrawText(AText: string;
   AFont: TFreeTypeRenderableFont; x, y: single; AColor: TFPColor);
-var fx: TBGRATextEffect;
+var fx: TBGRACustomTextEffect;
   procedure DoOutline;
   begin
@@ -476 +498 @@
   begin
     fx := CreateTextEffect(AText, AFont);
+    fx.ShadowQuality := ShadowQuality;
     y -= AFont.Ascent;
     if ShadowActuallyVisible then fx.DrawShadow(Destination, round(x+ShadowOffset.X),round(y+ShadowOffset.Y), ShadowRadius, ShadowColor);
@@ -518 +541 @@
 end;
 
+{$IFDEF BGRABITMAP_USE_LCL12}
+procedure TBGRAFreeTypeDrawer.DrawTextWordBreak(AText: string;
+  AFont: TFreeTypeRenderableFont; x, y, AMaxWidth: Single; AColor: TBGRAPixel;
+  AAlign: TFreeTypeAlignments);
+begin
+  DrawTextWordBreak(AText,AFont,x,y,AMaxWidth,BGRAToFPColor(AColor),AAlign);
+end;
+
+procedure TBGRAFreeTypeDrawer.DrawTextRect(AText: string;
+  AFont: TFreeTypeRenderableFont; X1, Y1, X2, Y2: Single; AColor: TBGRAPixel;
+  AAlign: TFreeTypeAlignments);
+begin
+  DrawTextRect(AText,AFont,X1,Y1,X2,Y2,BGRAToFPColor(AColor),AAlign);
+end;
+{$ENDIF}
+
+{$IFDEF BGRABITMAP_USE_LCL15}
+procedure TBGRAFreeTypeDrawer.DrawGlyph(AGlyph: integer;
+  AFont: TFreeTypeRenderableFont; x, y: single; AColor: TFPColor);
+var f: TFreeTypeFont;
+begin
+  if not (AFont is TFreeTypeFont) then exit;
+  f := TFreeTypeFont(Afont);
+  FColor := FPColorToBGRA(AColor);
+  if AFont.ClearType then
+    f.RenderGlyph(AGlyph, x, y, Destination.ClipRect, @RenderDirectlyClearType)
+  else
+    f.RenderGlyph(AGlyph, x, y, Destination.ClipRect, @RenderDirectly);
+end;
+
+procedure TBGRAFreeTypeDrawer.DrawGlyph(AGlyph: integer;
+  AFont: TFreeTypeRenderableFont; x, y: single; AColor: TBGRAPixel);
+begin
+  DrawGlyph(AGlyph, AFont, x,y, BGRAToFPColor(AColor));
+end;
+
+procedure TBGRAFreeTypeDrawer.DrawGlyph(AGlyph: integer;
+  AFont: TFreeTypeRenderableFont; x, y: single; AColor: TBGRAPixel;
+  AAlign: TFreeTypeAlignments);
+begin
+  DrawGlyph(AGlyph, AFont, x,y, BGRAToFPColor(AColor), AAlign);
+end;
+{$ENDIF}
+
 function TBGRAFreeTypeDrawer.CreateTextEffect(AText: string;
-  AFont: TFreeTypeRenderableFont): TBGRATextEffect;
+  AFont: TFreeTypeRenderableFont): TBGRACustomTextEffect;
 var
   mask: TBGRACustomBitmap;
@@ -545 +612 @@
     AFont.ClearType := tempClearType;
     mask.ConvertToLinearRGB;
-    result := TBGRATextEffect.Create(mask, true,tx,ty,point(-marginHoriz,-marginVert));
+    result := TBGRACustomTextEffect.Create(mask, true,tx,ty,point(-marginHoriz,-marginVert));
   finally
     FInCreateTextEffect:= false;