pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7695 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-26 11:30:11 +00:00
parent 0ad61ba3c6
commit 6678dc1af8
3 changed files with 26 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/spktoolbar/demos/actions/project1.lpi
View File

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

41
components/spktoolbar/designtime/spkte_EditWindow.lfm
View File

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

2
components/spktoolbar/designtime/spkte_EditWindow.pas
View File

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