skia: icon

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9342 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/skia/design/README.txt

@@ -0,0 +1,3 @@
+Skia.LCL.Design.res was created with:
+
+lazarus/tools/lazres Skia.LCL.Design.res icons/*

components/skia/design/Skia.LCL.Design.lpk

@@ -7,7 +7,7 @@
     <CompilerOptions>
       <Version Value="11"/>
       <SearchPaths>
-        <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
+        <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
     </CompilerOptions>
     <Description Value="IDE addon to install LCL components for Skia in Lazarus, requires FPC 3.3.1+"/>
@@ -23,9 +23,7 @@
     <RequiredPkgs>
       <Item>
         <PackageName Value="Skia.LCL"/>
-      </Item>
+        <DefaultFilename Value="../src/skia.lcl.lpk" Prefer="True"/>
-      <Item>
-        <PackageName Value="FCL"/>
       </Item>
     </RequiredPkgs>
     <UsageOptions>

components/skia/design/Skia.LCL.Design.pas

@@ -0,0 +1,22 @@
+{ This file was automatically created by Lazarus. Do not edit!
+  This source is only used to compile and install the package.
+ }
+
+unit Skia.LCL.Design;
+
+{$warn 5023 off : no warning about unused units}
+interface
+
+uses
+  SkiaLCLRegister, LazarusPackageIntf;
+
+implementation
+
+procedure Register;
+begin
+  RegisterUnit('SkiaLCLRegister', @SkiaLCLRegister.Register);
+end;
+
+initialization
+  RegisterPackage('Skia.LCL.Design', @Register);
+end.

components/skia/design/SkiaLCLRegister.pas

@@ -8,12 +8,14 @@ unit SkiaLCLRegister;
 interface
 
 uses
-  LCL.Skia;
+  LCL.Skia, classes;
 
 procedure Register;
 
 implementation
 
+{$R Skia.LCL.Design.res}
+
 procedure Register;
 begin
   RegisterComponents('Skia', [TSkPaintBox]);

components/skia/src/LCL.Skia.pas

@@ -48,7 +48,6 @@ type
     property DrawCacheKind: TSkDrawCacheKind read FDrawCacheKind write SetDrawCacheKind default TSkDrawCacheKind.Raster;
     property OnDraw: TSkDrawEvent read FOnDraw write SetOnDraw;
   public
-    class function GetControlClassDefaultSize: TSize; override;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure Redraw; virtual;
@@ -60,7 +59,10 @@ type
   { TSkPaintBox }
 
   TSkPaintBox = class(TSkCustomControl)
+  protected
+    class function GetControlClassDefaultSize: TSize; override;
   public
+    constructor Create(AOwner: TComponent); override;
     property DrawCacheKind;
   published
     property Align;
@@ -505,12 +507,6 @@ begin
   inherited Resize;
 end;
 
-class function TSkCustomControl.GetControlClassDefaultSize: TSize;
-begin
-  Result.CX := 50;
-  Result.CY := 50;
-end;
-
 constructor TSkCustomControl.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
@@ -538,6 +534,22 @@ begin
   inherited Invalidate;
 end;
 
+{ TSkPaintBox }
+
+class function TSkPaintBox.GetControlClassDefaultSize: TSize;
+begin
+  Result.CX := 50;
+  Result.CY := 50;
+end;
+
+constructor TSkPaintBox.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  ControlStyle := ControlStyle + [csReplicatable];
+  with GetControlClassDefaultSize do
+    SetInitialBounds(0, 0, CX, CY);
+end;
+
 { TSkSvgBrush }
 
 function TSkSvgBrush.GetDOM: ISkSVGDOM;

components/skia/src/skia.lcl.lpk

@@ -29,6 +29,7 @@
     <RequiredPkgs>
       <Item>
         <PackageName Value="Skia"/>
+        <DefaultFilename Value="../skia4d_package/Skia.lpk"/>
       </Item>
       <Item>
         <PackageName Value="LCL"/>