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

Timestamp:

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

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

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

GraphicTest/Packages/bgrabitmap/bgracanvas.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FPCanvas, Graphics, GraphType, Types, FPImage, BGRABitmapTypes;
+  Classes, SysUtils, FPCanvas, BGRAGraphics, Types, FPImage, BGRABitmapTypes;
 
 type
@@ -1099 +1099 @@
   Style: TGraphicsBevelCut);
 begin
-  Frame3D(bounds,width,style,ColorToBGRA(ColorToRGB(clBtnHighlight)),ColorToBGRA(ColorToRGB(clBtnShadow)));
+  Frame3D(bounds,width,style,ColorToBGRA(clRgbBtnHighlight),ColorToBGRA(clRgbBtnShadow));
 end;
 
@@ -1150 +1150 @@
     RStop,RStart: Byte;
   begin
-    RedGreenBlue(ColorToRGB(AStart), RStart, GStart, BStart);
+      RedGreenBlue(ColorToRGB(AStart), RStart, GStart, BStart);
       RedGreenBlue(ColorToRGB(AStop),  RStop,  GStop,  BStop);