Changeset 472 for GraphicTest/Packages/bgrabitmap/bgracanvas.pas

Timestamp:

Apr 9, 2015, 9:58:36 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Use csOpaque control style also to Image, PaintBox and OpenGLControl.
• Modified: Change size of test frame with SpinEdits as delayed using timer.
• Updated: BRGABitmap package to version 8.1.

File:

• GraphicTest/Packages/bgrabitmap/bgracanvas.pas (modified) (4 diffs)

GraphicTest/Packages/bgrabitmap/bgracanvas.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, GraphType, Types, FPImage, FPCanvas, BGRABitmapTypes;
+  Classes, SysUtils, FPCanvas, Graphics, GraphType, Types, FPImage, BGRABitmapTypes;
 
 type
@@ -229 +229 @@
 procedure TBGRAFont.SetAntialiasing(const AValue: Boolean);
 begin
-  if AValue and not Antialiasing then
-    Quality := fqFineAntialiasing;
+  if AValue = Antialiasing then exit;
+  if AValue then
+    Quality := fqFineAntialiasing
+  else
+    Quality := fqSystem;
 end;
 
@@ -279 +282 @@
     if cf.Italic then Style += [fsItalic];
     if cf.Underline then Style += [fsUnderline];
+{$IF FPC_FULLVERSION>=20602} //changed in 2.6.2 and 2.7    
+    if cf.StrikeThrough then Style += [fsStrikeOut];
+{$ELSE}
     if cf.StrikeTrough then Style += [fsStrikeOut];
+{$ENDIF}
     Name := cf.Name;
     //Orientation := cf.Orientation;
@@ -916 +923 @@
     dec(x2);
     dec(y2);
+
+    if (Pen.Style = psSolid) and not Filled then
+    begin
+      ApplyPenStyle;
+      FBitmap.RectangleAntialias(x1,y1,x2,y2,Pen.ActualColor,Pen.ActualWidth);
+      exit;
+    end;
+
     tex := Brush.BuildTexture(FBitmap);