spktoolbar: Fix incorrect image assigned to action for adding radiobutton (Patch by husker, https://forum.lazarus.freepascal.org/index.php/topic,51552.msg378768.html).

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

components/spktoolbar/demos/actions/project1.lpi

@@ -1,11 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="project1"/>
       <Scaled Value="True"/>
       <ResourceType Value="res"/>
@@ -22,8 +24,6 @@
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
-      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
-      <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
     </PublishOptions>
     <RunParams>
       <FormatVersion Value="2"/>
@@ -77,7 +77,7 @@
     </CodeGeneration>
     <Linking>
       <Debugging>
-        <UseExternalDbgSyms Value="True"/>
+        <DebugInfoType Value="dsDwarf2"/>
       </Debugging>
       <LinkSmart Value="True"/>
       <Options>

components/spktoolbar/designtime/spkte_EditWindow.lfm

@@ -11,7 +11,7 @@ object frmEditWindow: TfrmEditWindow
   OnActivate = FormActivate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '2.0.10.0'
   object tvStructure: TTreeView
     Left = 0
     Height = 344
@@ -113,8 +113,8 @@ object frmEditWindow: TfrmEditWindow
     end
   end
   object ilTreeImages: TImageList
-    left = 56
-    top = 32
+    Left = 56
+    Top = 32
     Bitmap = {
       4C69060000001000000010000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -312,8 +312,8 @@ object frmEditWindow: TfrmEditWindow
     }
   end
   object ilActionImages: TImageList
-    left = 168
-    top = 32
+    Left = 168
+    Top = 32
     Bitmap = {
       4C690B0000001000000010000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -672,8 +672,8 @@ object frmEditWindow: TfrmEditWindow
   end
   object ActionList: TActionList
     Images = ilActionImages
-    left = 264
-    top = 32
+    Left = 264
+    Top = 32
     object aAddTab: TAction
       Caption = 'Add tab'
       Hint = 'Add tab'
@@ -719,7 +719,7 @@ object frmEditWindow: TfrmEditWindow
     object aAddRadioButton: TAction
       Caption = 'Radio button'
       Hint = 'Add SpkRadioButton'
-      ImageIndex = 9
+      ImageIndex = 8
       OnExecute = aAddRadioButtonExecute
     end
     object aRemoveItem: TAction
@@ -743,8 +743,8 @@ object frmEditWindow: TfrmEditWindow
   end
   object pmAddItem: TPopupMenu
     Images = ilActionImages
-    left = 264
-    top = 96
+    Left = 264
+    Top = 96
     object SpkLargeButton1: TMenuItem
       Action = aAddLargeButton
     end
@@ -760,8 +760,8 @@ object frmEditWindow: TfrmEditWindow
   end
   object pmStructure: TPopupMenu
     Images = ilActionImages
-    left = 264
-    top = 168
+    Left = 264
+    Top = 168
     object Addtab1: TMenuItem
       Action = aAddTab
     end
@@ -794,7 +794,6 @@ object frmEditWindow: TfrmEditWindow
       end
       object MenuItem2: TMenuItem
         Action = aAddRadioButton
-        ImageIndex = 8
       end
     end
     object Removeitem1: TMenuItem
@@ -813,8 +812,8 @@ object frmEditWindow: TfrmEditWindow
   object ilTreeImages_150: TImageList
     Height = 24
     Width = 24
-    left = 56
-    top = 96
+    Left = 56
+    Top = 96
     Bitmap = {
       4C69060000001800000018000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -1254,8 +1253,8 @@ object frmEditWindow: TfrmEditWindow
   object ilActionImages_150: TImageList
     Height = 24
     Width = 24
-    left = 168
-    top = 96
+    Left = 168
+    Top = 96
     Bitmap = {
       4C690B0000001800000018000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -2055,8 +2054,8 @@ object frmEditWindow: TfrmEditWindow
   object ilActionImages_200: TImageList
     Height = 32
     Width = 32
-    left = 168
-    top = 168
+    Left = 168
+    Top = 168
     Bitmap = {
       4C690B0000002000000020000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -3472,8 +3471,8 @@ object frmEditWindow: TfrmEditWindow
   object ilTreeImages_200: TImageList
     Height = 32
     Width = 32
-    left = 56
-    top = 168
+    Left = 56
+    Top = 168
     Bitmap = {
       4C69060000002000000020000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000

components/spktoolbar/designtime/spkte_EditWindow.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   LCLIntf, LCLType, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, {DesignIntf, DesignEditors,} StdCtrls, ImgList, ComCtrls,
+  Dialogs, StdCtrls, ImgList, ComCtrls,
   ActnList, Menus, ComponentEditors, PropEdits,
   SpkToolbar, spkt_Tab, spkt_Pane, spkt_BaseItem, spkt_Buttons, spkt_Types, spkt_Checkboxes;