Browse Source

skia: fixed alpha colors in image

mattias 1 year ago
parent
commit
79114d890b
3 changed files with 6 additions and 4 deletions
  1. BIN
      demo/CheckBox/Check.png
  2. 3 3
      demo/CheckBox/DemoCheckBox.pas
  3. 3 1
      src/skia/fresnel.skiarenderer.pas

BIN
demo/CheckBox/Check.png


+ 3 - 3
demo/CheckBox/DemoCheckBox.pas

@@ -23,12 +23,12 @@ type
       cStyle = ''
       cStyle = ''
         +'.CheckBoxButton {'+LineEnding
         +'.CheckBoxButton {'+LineEnding
         +'  cursor: pointer;'+LineEnding
         +'  cursor: pointer;'+LineEnding
-        +'  border-radius: 3px;'+LineEnding
+        +'  border-radius: 2px;'+LineEnding
         +'  padding: 1px;'+LineEnding
         +'  padding: 1px;'+LineEnding
         +'  width: 11px;'+LineEnding
         +'  width: 11px;'+LineEnding
         +'  height: 11px;'+LineEnding
         +'  height: 11px;'+LineEnding
         +'}'+LineEnding;
         +'}'+LineEnding;
-      cCheckedStyle = 'background: blue; border: 2px solid blue;';
+      cCheckedStyle = 'background: #68f; border: 2px solid #68f;';
       cUncheckedStyle = 'background: white; border: 2px solid #999;';
       cUncheckedStyle = 'background: white; border: 2px solid #999;';
   public
   public
     CheckedStyle: string;
     CheckedStyle: string;
@@ -54,7 +54,7 @@ type
         +'}'+LineEnding
         +'}'+LineEnding
         +'.CheckBoxLabel {'+LineEnding
         +'.CheckBoxLabel {'+LineEnding
         +'  cursor: pointer;'+LineEnding
         +'  cursor: pointer;'+LineEnding
-        +'  font-size: 11px;'+LineEnding
+        +'  font-size: 12px;'+LineEnding
         +'  padding: 4px 3px;'+LineEnding
         +'  padding: 4px 3px;'+LineEnding
         +'  margin-bottom: 0;'+LineEnding
         +'  margin-bottom: 0;'+LineEnding
         +'}'+LineEnding;
         +'}'+LineEnding;

+ 3 - 1
src/skia/fresnel.skiarenderer.pas

@@ -443,7 +443,9 @@ end;
 function TFresnelSkiaFPImage.GetSkImage: ISkImage;
 function TFresnelSkiaFPImage.GetSkImage: ISkImage;
 begin
 begin
   if (FSkImage=nil) and (FData<>nil) then
   if (FSkImage=nil) and (FData<>nil) then
-    FSkImage:=TSkImage.MakeFromRaster(TSkImageInfo.Create(Width, Height),FData,FBytesPerLine);
+    FSkImage:=TSkImage.MakeFromRaster(
+      TSkImageInfo.Create(Width, Height, SkNative32ColorType, TSkAlphaType.Unpremul),
+      FData,FBytesPerLine);
   Result:=FSkImage;
   Result:=FSkImage;
 end;
 end;