demo: checkbox: use resource for image

demo/CheckBox/DemoCheckBox.pas

@@ -49,13 +49,16 @@ type
     // default styles
     const
       cStyle = ''
+        +'.CheckBox {'+LineEnding
+        +'  position: relative;'+LineEnding
+        +'}'+LineEnding
         +'.CheckBoxButton {'+LineEnding
         +'  margin: 0 2px 0 0;'+LineEnding
         +'}'+LineEnding
         +'.CheckBoxLabel {'+LineEnding
         +'  cursor: pointer;'+LineEnding
-        +'  font-size: 12px;'+LineEnding
-        +'  padding: 4px 3px;'+LineEnding
+        +'  font-size: 11px;'+LineEnding
+        +'  padding: 2px 3px;'+LineEnding
         +'  margin-bottom: 0;'+LineEnding
         +'}'+LineEnding;
   public
@@ -68,6 +71,8 @@ type
 
 implementation
 
+{$R *.res}
+
 { TDemoCheckBoxButton }
 
 procedure TDemoCheckBoxButton.OnClickEvent(Event: TAbstractEvent);
@@ -89,6 +94,8 @@ begin
 end;
 
 constructor TDemoCheckBoxButton.Create(AOwner: TComponent);
+var
+  aStream: TResourceStream;
 begin
   inherited Create(AOwner);
 
@@ -96,7 +103,13 @@ begin
   UncheckedStyle:=cUncheckedStyle;
 
   Style:=UncheckedStyle;
-  Image.LoadFromFile('Check.png');
+
+  aStream := TResourceStream.Create(HINSTANCE, 'Check', RT_RCDATA);
+  try
+    Image.LoadFromStream(aStream);
+  finally
+    aStream.Free;
+  end;
 
   AddEventListener(evtClick,@OnClickEvent);
 end;
@@ -127,6 +140,8 @@ constructor TDemoCheckBox.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
 
+  CSSClasses.Add('CheckBox');
+
   Box:=TDemoCheckBoxButton.Create(Self);
   with Box do begin
     Name:='Box';
@@ -137,7 +152,7 @@ begin
   CaptionLabel:=TLabel.Create(Self);
   with CaptionLabel do begin
     Name:='CaptionLabel';
-    CSSClasses.Add('CheckBoxCaption');
+    CSSClasses.Add('CheckBoxLabel');
     Parent:=Self;
   end;
 end;