IDEIntf: TSelectPropertiesForm workaround for sorting TListBox items withou objects

git-svn-id: trunk@16404 -
2025-04-23 05:39:29 +02:00 · 2008-09-04 09:13:35 +00:00 · 2008-09-04 09:13:35 +00:00 · 8e3fff316b
commit 8e3fff316b
parent d183b9c039
3 changed files with 162 additions and 167 deletions
--- a/ideintf/frmselectprops.lfm
+++ b/ideintf/frmselectprops.lfm
@ -1,50 +1,51 @@
 object SelectPropertiesForm: TSelectPropertiesForm
+  Left = 411
+  Height = 462
+  Top = 175
+  Width = 485
  ActiveControl = LBProperties
  Caption = 'Select properties'
  ClientHeight = 462
  ClientWidth = 485
  OnClose = SelectPropertiesFormClose
  OnCreate = SelectPropertiesFormCreate
-  PixelsPerInch = 96
  Position = poScreenCenter
-  HorzScrollBar.Page = 484
-  VertScrollBar.Page = 461
-  Left = 411
-  Height = 462
-  Top = 175
-  Width = 485
+  LCLVersion = '0.9.25'
  object PTop: TPanel
+    Height = 248
+    Width = 485
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 248
    ClientWidth = 485
    FullRepaint = False
    TabOrder = 0
-    Height = 248
-    Width = 485
    object PProperties: TPanel
+      Left = 233
+      Height = 248
+      Width = 252
      Align = alClient
      BevelOuter = bvNone
      ClientHeight = 248
      ClientWidth = 252
      FullRepaint = False
      TabOrder = 0
-      Left = 233
-      Height = 248
-      Width = 252
      object LProperties: TLabel
-        Align = alTop
-        BorderSpacing.Around = 6
-        Caption = '&Properties'
-        Color = clNone
-        Layout = tlCenter
-        ParentColor = False
        Left = 6
        Height = 14
        Top = 6
        Width = 240
+        Align = alTop
+        BorderSpacing.Around = 6
+        Caption = '&Properties'
+        Layout = tlCenter
+        ParentColor = False
      end
      object LBProperties: TListBox
+        Left = 6
+        Height = 216
+        Top = 26
+        Width = 240
        Align = alClient
        BorderSpacing.Around = 6
        MultiSelect = True
@ -52,13 +53,12 @@ object SelectPropertiesForm: TSelectPropertiesForm
        OnDblClick = LBPropertiesDblClick
        Sorted = True
        TabOrder = 0
-        Left = 6
-        Height = 216
-        Top = 26
-        Width = 240
+        TopIndex = -1
      end
    end
    object PComponents: TPanel
+      Height = 248
+      Width = 229
      Align = alLeft
      BevelOuter = bvNone
      Caption = 'PComponents'
@ -66,55 +66,50 @@ object SelectPropertiesForm: TSelectPropertiesForm
      ClientWidth = 229
      FullRepaint = False
      TabOrder = 1
-      Height = 248
-      Width = 229
      object LComponents: TLabel
-        Align = alTop
-        Anchors = [akTop, akLeft]
-        BorderSpacing.Around = 6
-        Caption = 'Co&mponents'
-        Color = clNone
-        Layout = tlCenter
-        ParentColor = False
        Left = 6
        Height = 14
        Top = 6
        Width = 217
+        Align = alTop
+        Anchors = [akTop, akLeft]
+        BorderSpacing.Around = 6
+        Caption = 'Co&mponents'
+        Layout = tlCenter
+        ParentColor = False
      end
      object LBComponents: TListBox
+        Left = 6
+        Height = 216
+        Top = 26
+        Width = 217
        Align = alClient
        BorderSpacing.Around = 6
        OnSelectionChange = LBComponentsSelectionChange
        Sorted = True
        TabOrder = 0
-        Left = 6
-        Height = 216
-        Top = 26
-        Width = 217
+        TopIndex = -1
      end
    end
    object VSplitter: TSplitter
-      Height = 248
-      Width = 4
-      Cursor = crHSplit
      Left = 229
      Height = 248
      Width = 4
    end
  end
  object HSplitter: TSplitter
-    Align = alTop
-    Beveled = True
-    Cursor = crVSplit
-    Height = 4
-    Width = 485
-    ResizeAnchor = akTop
    Cursor = crVSplit
    Height = 4
    Top = 248
    Width = 485
+    Align = alTop
+    Beveled = True
+    ResizeAnchor = akTop
  end
  object PBottom: TPanel
+    Height = 210
+    Top = 252
+    Width = 485
    Align = alClient
    BevelOuter = bvNone
    ClientHeight = 210
@ -122,24 +117,16 @@ object SelectPropertiesForm: TSelectPropertiesForm
    Constraints.MinHeight = 190
    FullRepaint = False
    TabOrder = 1
-    Height = 210
-    Top = 252
-    Width = 485
    object LLBSelected: TLabel
-      BorderSpacing.Around = 6
-      Caption = '&Selected Properties'
-      Color = clNone
-      ParentColor = False
      Left = 10
      Height = 14
      Top = 3
      Width = 94
+      BorderSpacing.Around = 6
+      Caption = '&Selected Properties'
+      ParentColor = False
    end
    object LBSelected: TListBox
-      Anchors = [akTop, akLeft, akRight, akBottom]
-      BorderSpacing.Around = 6
-      MultiSelect = True
-      TabOrder = 0
      AnchorSideLeft.Control = PBottom
      AnchorSideRight.Control = BAdd
      AnchorSideBottom.Control = PBottom
@ -148,14 +135,13 @@ object SelectPropertiesForm: TSelectPropertiesForm
      Height = 180
      Top = 24
      Width = 392
+      Anchors = [akTop, akLeft, akRight, akBottom]
+      BorderSpacing.Around = 6
+      MultiSelect = True
+      TabOrder = 0
+      TopIndex = -1
    end
    object BAdd: TButton
-      Anchors = [akTop, akRight]
-      BorderSpacing.Right = 6
-      
-      Caption = '&Add'
-      OnClick = BAddClick
-      TabOrder = 1
      AnchorSideTop.Control = LBSelected
      AnchorSideRight.Control = PBottom
      AnchorSideRight.Side = asrBottom
@ -163,14 +149,13 @@ object SelectPropertiesForm: TSelectPropertiesForm
      Height = 25
      Top = 24
      Width = 75
+      Anchors = [akTop, akRight]
+      BorderSpacing.Right = 6
+      Caption = '&Add'
+      OnClick = BAddClick
+      TabOrder = 1
    end
    object BDelete: TButton
-      Anchors = [akTop, akLeft, akRight]
-      BorderSpacing.Top = 6
-      
-      Caption = '&Delete'
-      OnClick = BDeleteClick
-      TabOrder = 2
      AnchorSideLeft.Control = BAdd
      AnchorSideTop.Control = BAdd
      AnchorSideTop.Side = asrBottom
@ -180,14 +165,13 @@ object SelectPropertiesForm: TSelectPropertiesForm
      Height = 25
      Top = 55
      Width = 75
-    end
-    object BClear: TButton
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 6
-      
-      Caption = 'C&lear'
-      OnClick = BClearClick
-      TabOrder = 3
+      Caption = '&Delete'
+      OnClick = BDeleteClick
+      TabOrder = 2
+    end
+    object BClear: TButton
      AnchorSideLeft.Control = BDelete
      AnchorSideTop.Control = BDelete
      AnchorSideTop.Side = asrBottom
@ -197,15 +181,13 @@ object SelectPropertiesForm: TSelectPropertiesForm
      Height = 25
      Top = 86
      Width = 75
+      Anchors = [akTop, akLeft, akRight]
+      BorderSpacing.Top = 6
+      Caption = 'C&lear'
+      OnClick = BClearClick
+      TabOrder = 3
    end
    object BOK: TButton
-      Anchors = [akRight, akBottom]
-      BorderSpacing.Around = 6
-      
-      Caption = '&OK'
-      Default = True
-      ModalResult = 1
-      TabOrder = 4
      AnchorSideRight.Control = PBottom
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = PBottom
@ -214,14 +196,14 @@ object SelectPropertiesForm: TSelectPropertiesForm
      Height = 25
      Top = 179
      Width = 75
+      Anchors = [akRight, akBottom]
+      BorderSpacing.Around = 6
+      Caption = '&OK'
+      Default = True
+      ModalResult = 1
+      TabOrder = 4
    end
    object BCancel: TButton
-      Anchors = [akRight, akBottom]
-      
-      Cancel = True
-      Caption = '&Cancel'
-      ModalResult = 2
-      TabOrder = 5
      AnchorSideRight.Control = BOK
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = BOK
@ -229,6 +211,11 @@ object SelectPropertiesForm: TSelectPropertiesForm
      Height = 25
      Top = 148
      Width = 75
+      Anchors = [akRight, akBottom]
+      Cancel = True
+      Caption = '&Cancel'
+      ModalResult = 2
+      TabOrder = 5
    end
  end
 end
--- a/ideintf/frmselectprops.lrs
+++ b/ideintf/frmselectprops.lrs
@ -1,70 +1,69 @@
+{ This is an automatically generated lazarus resource file }
+
 LazarusResources.Add('TSelectPropertiesForm','FORMDATA',[
-  'TPF0'#21'TSelectPropertiesForm'#20'SelectPropertiesForm'#13'ActiveControl'#7
-  +#12'LBProperties'#7'Caption'#6#17'Select properties'#12'ClientHeight'#3#206#1
-  +#11'ClientWidth'#3#229#1#7'OnClose'#7#25'SelectPropertiesFormClose'#8'OnCrea'
-  +'te'#7#26'SelectPropertiesFormCreate'#13'PixelsPerInch'#2'`'#8'Position'#7#14
-  +'poScreenCenter'#18'HorzScrollBar.Page'#3#228#1#18'VertScrollBar.Page'#3#205
-  +#1#4'Left'#3#155#1#6'Height'#3#206#1#3'Top'#3#175#0#5'Width'#3#229#1#0#6'TPa'
-  +'nel'#4'PTop'#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'
-  +#3#248#0#11'ClientWidth'#3#229#1#11'FullRepaint'#8#8'TabOrder'#2#0#6'Height'
-  +#3#248#0#5'Width'#3#229#1#0#6'TPanel'#11'PProperties'#5'Align'#7#8'alClient'
-  +#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3#248#0#11'ClientWidth'#3#252#0
-  +#11'FullRepaint'#8#8'TabOrder'#2#0#4'Left'#3#233#0#6'Height'#3#248#0#5'Width'
-  +#3#252#0#0#6'TLabel'#11'LProperties'#5'Align'#7#5'alTop'#20'BorderSpacing.Ar'
-  +'ound'#2#6#7'Caption'#6#11'&Properties'#5'Color'#7#6'clNone'#6'Layout'#7#8't'
-  +'lCenter'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#3
-  +#240#0#0#0#8'TListBox'#12'LBProperties'#5'Align'#7#8'alClient'#20'BorderSpac'
-  +'ing.Around'#2#6#11'MultiSelect'#9#7'OnClick'#7#17'LBPropertiesClick'#10'OnD'
-  +'blClick'#7#20'LBPropertiesDblClick'#6'Sorted'#9#8'TabOrder'#2#0#4'Left'#2#6
-  +#6'Height'#3#216#0#3'Top'#2#26#5'Width'#3#240#0#0#0#0#6'TPanel'#11'PComponen'
-  +'ts'#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvNone'#7'Caption'#6#11'PCompon'
-  +'ents'#12'ClientHeight'#3#248#0#11'ClientWidth'#3#229#0#11'FullRepaint'#8#8
-  +'TabOrder'#2#1#6'Height'#3#248#0#5'Width'#3#229#0#0#6'TLabel'#11'LComponents'
+  'TPF0'#21'TSelectPropertiesForm'#20'SelectPropertiesForm'#4'Left'#3#155#1#6'H'
+  +'eight'#3#206#1#3'Top'#3#175#0#5'Width'#3#229#1#13'ActiveControl'#7#12'LBPro'
+  +'perties'#7'Caption'#6#17'Select properties'#12'ClientHeight'#3#206#1#11'Cli'
+  +'entWidth'#3#229#1#7'OnClose'#7#25'SelectPropertiesFormClose'#8'OnCreate'#7
+  +#26'SelectPropertiesFormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersi'
+  +'on'#6#6'0.9.25'#0#6'TPanel'#4'PTop'#6'Height'#3#248#0#5'Width'#3#229#1#5'Al'
+  +'ign'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3#248#0#11'Clie'
+  +'ntWidth'#3#229#1#11'FullRepaint'#8#8'TabOrder'#2#0#0#6'TPanel'#11'PProperti'
+  +'es'#4'Left'#3#233#0#6'Height'#3#248#0#5'Width'#3#252#0#5'Align'#7#8'alClien'
+  +'t'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3#248#0#11'ClientWidth'#3#252
+  +#0#11'FullRepaint'#8#8'TabOrder'#2#0#0#6'TLabel'#11'LProperties'#4'Left'#2#6
+  +#6'Height'#2#14#3'Top'#2#6#5'Width'#3#240#0#5'Align'#7#5'alTop'#20'BorderSpa'
+  +'cing.Around'#2#6#7'Caption'#6#11'&Properties'#6'Layout'#7#8'tlCenter'#11'Pa'
+  +'rentColor'#8#0#0#8'TListBox'#12'LBProperties'#4'Left'#2#6#6'Height'#3#216#0
+  +#3'Top'#2#26#5'Width'#3#240#0#5'Align'#7#8'alClient'#20'BorderSpacing.Around'
+  +#2#6#11'MultiSelect'#9#7'OnClick'#7#17'LBPropertiesClick'#10'OnDblClick'#7#20
+  +'LBPropertiesDblClick'#6'Sorted'#9#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#0#6
+  +'TPanel'#11'PComponents'#6'Height'#3#248#0#5'Width'#3#229#0#5'Align'#7#6'alL'
+  +'eft'#10'BevelOuter'#7#6'bvNone'#7'Caption'#6#11'PComponents'#12'ClientHeigh'
+  +'t'#3#248#0#11'ClientWidth'#3#229#0#11'FullRepaint'#8#8'TabOrder'#2#1#0#6'TL'
+  +'abel'#11'LComponents'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#3#217#0
  +#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#0#20'BorderSpacing.Aro'
-  +'und'#2#6#7'Caption'#6#11'Co&mponents'#5'Color'#7#6'clNone'#6'Layout'#7#8'tl'
-  +'Center'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#14#3'Top'#2#6#5'Width'#3
-  +#217#0#0#0#8'TListBox'#12'LBComponents'#5'Align'#7#8'alClient'#20'BorderSpac'
-  +'ing.Around'#2#6#17'OnSelectionChange'#7#27'LBComponentsSelectionChange'#6'S'
-  +'orted'#9#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3#216#0#3'Top'#2#26#5'Width'
-  +#3#217#0#0#0#0#9'TSplitter'#9'VSplitter'#6'Height'#3#248#0#5'Width'#2#4#6'Cu'
-  +'rsor'#7#8'crHSplit'#4'Left'#3#229#0#6'Height'#3#248#0#5'Width'#2#4#0#0#0#9
-  +'TSplitter'#9'HSplitter'#5'Align'#7#5'alTop'#7'Beveled'#9#6'Cursor'#7#8'crVS'
-  +'plit'#6'Height'#2#4#5'Width'#3#229#1#12'ResizeAnchor'#7#5'akTop'#6'Cursor'#7
-  +#8'crVSplit'#6'Height'#2#4#3'Top'#3#248#0#5'Width'#3#229#1#0#0#6'TPanel'#7'P'
-  +'Bottom'#5'Align'#7#8'alClient'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3
-  +#210#0#11'ClientWidth'#3#229#1#21'Constraints.MinHeight'#3#190#0#11'FullRepa'
-  +'int'#8#8'TabOrder'#2#1#6'Height'#3#210#0#3'Top'#3#252#0#5'Width'#3#229#1#0#6
-  +'TLabel'#11'LLBSelected'#20'BorderSpacing.Around'#2#6#7'Caption'#6#20'&Selec'
-  +'ted Properties'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#10#6'Heigh'
-  +'t'#2#14#3'Top'#2#3#5'Width'#2'^'#0#0#8'TListBox'#10'LBSelected'#7'Anchors'
-  +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6
-  +#11'MultiSelect'#9#8'TabOrder'#2#0#22'AnchorSideLeft.Control'#7#7'PBottom'#23
-  +'AnchorSideRight.Control'#7#4'BAdd'#24'AnchorSideBottom.Control'#7#7'PBottom'
-  +#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#180#0#3'To'
-  +'p'#2#24#5'Width'#3#136#1#0#0#7'TButton'#4'BAdd'#7'Anchors'#11#5'akTop'#7'ak'
-  +'Right'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#4'&Add'#7'OnClick'#7#9'BA'
-  +'ddClick'#8'TabOrder'#2#1#21'AnchorSideTop.Control'#7#10'LBSelected'#23'Anch'
-  +'orSideRight.Control'#7#7'PBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
-  +'Left'#3#148#1#6'Height'#2#25#3'Top'#2#24#5'Width'#2'K'#0#0#7'TButton'#7'BDe'
-  +'lete'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2
-  +#6#7'Caption'#6#7'&Delete'#7'OnClick'#7#12'BDeleteClick'#8'TabOrder'#2#2#22
-  +'AnchorSideLeft.Control'#7#4'BAdd'#21'AnchorSideTop.Control'#7#4'BAdd'#18'An'
-  +'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'BAdd'#20'A'
-  +'nchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#148#1#6'Height'#2#25#3'Top'#2
-  +'7'#5'Width'#2'K'#0#0#7'TButton'#6'BClear'#7'Anchors'#11#5'akTop'#6'akLeft'#7
-  +'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#6'C&lear'#7'OnClick'#7#11
-  +'BClearClick'#8'TabOrder'#2#3#22'AnchorSideLeft.Control'#7#7'BDelete'#21'Anc'
-  +'horSideTop.Control'#7#7'BDelete'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'A'
-  +'nchorSideRight.Control'#7#7'BDelete'#20'AnchorSideRight.Side'#7#9'asrBottom'
-  +#4'Left'#3#148#1#6'Height'#2#25#3'Top'#2'V'#5'Width'#2'K'#0#0#7'TButton'#3'B'
-  +'OK'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'C'
-  +'aption'#6#3'&OK'#7'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2#4#23'Anchor'
-  +'SideRight.Control'#7#7'PBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#24
-  +'AnchorSideBottom.Control'#7#7'PBottom'#21'AnchorSideBottom.Side'#7#9'asrBot'
-  +'tom'#4'Left'#3#148#1#6'Height'#2#25#3'Top'#3#179#0#5'Width'#2'K'#0#0#7'TBut'
-  +'ton'#7'BCancel'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Captio'
-  ,'n'#6#7'&Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#5#23'AnchorSideRight.Cont'
-  +'rol'#7#3'BOK'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.C'
-  +'ontrol'#7#3'BOK'#4'Left'#3#148#1#6'Height'#2#25#3'Top'#3#148#0#5'Width'#2'K'
-  +#0#0#0#0
+  +'und'#2#6#7'Caption'#6#11'Co&mponents'#6'Layout'#7#8'tlCenter'#11'ParentColo'
+  +'r'#8#0#0#8'TListBox'#12'LBComponents'#4'Left'#2#6#6'Height'#3#216#0#3'Top'#2
+  +#26#5'Width'#3#217#0#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#17
+  +'OnSelectionChange'#7#27'LBComponentsSelectionChange'#6'Sorted'#9#8'TabOrder'
+  +#2#0#8'TopIndex'#2#255#0#0#0#9'TSplitter'#9'VSplitter'#4'Left'#3#229#0#6'Hei'
+  +'ght'#3#248#0#5'Width'#2#4#0#0#0#9'TSplitter'#9'HSplitter'#6'Cursor'#7#8'crV'
+  +'Split'#6'Height'#2#4#3'Top'#3#248#0#5'Width'#3#229#1#5'Align'#7#5'alTop'#7
+  +'Beveled'#9#12'ResizeAnchor'#7#5'akTop'#0#0#6'TPanel'#7'PBottom'#6'Height'#3
+  +#210#0#3'Top'#3#252#0#5'Width'#3#229#1#5'Align'#7#8'alClient'#10'BevelOuter'
+  +#7#6'bvNone'#12'ClientHeight'#3#210#0#11'ClientWidth'#3#229#1#21'Constraints'
+  +'.MinHeight'#3#190#0#11'FullRepaint'#8#8'TabOrder'#2#1#0#6'TLabel'#11'LLBSel'
+  +'ected'#4'Left'#2#10#6'Height'#2#14#3'Top'#2#3#5'Width'#2'^'#20'BorderSpacin'
+  +'g.Around'#2#6#7'Caption'#6#20'&Selected Properties'#11'ParentColor'#8#0#0#8
+  +'TListBox'#10'LBSelected'#22'AnchorSideLeft.Control'#7#7'PBottom'#23'AnchorS'
+  +'ideRight.Control'#7#4'BAdd'#24'AnchorSideBottom.Control'#7#7'PBottom'#21'An'
+  +'chorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#3#180#0#3'Top'#2
+  +#24#5'Width'#3#136#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'
+  +#0#20'BorderSpacing.Around'#2#6#11'MultiSelect'#9#8'TabOrder'#2#0#8'TopIndex'
+  +#2#255#0#0#7'TButton'#4'BAdd'#21'AnchorSideTop.Control'#7#10'LBSelected'#23
+  +'AnchorSideRight.Control'#7#7'PBottom'#20'AnchorSideRight.Side'#7#9'asrBotto'
+  +'m'#4'Left'#3#148#1#6'Height'#2#25#3'Top'#2#24#5'Width'#2'K'#7'Anchors'#11#5
+  +'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#6#7'Caption'#6#4'&Add'#7'OnCl'
+  +'ick'#7#9'BAddClick'#8'TabOrder'#2#1#0#0#7'TButton'#7'BDelete'#22'AnchorSide'
+  +'Left.Control'#7#4'BAdd'#21'AnchorSideTop.Control'#7#4'BAdd'#18'AnchorSideTo'
+  +'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#4'BAdd'#20'AnchorSideR'
+  +'ight.Side'#7#9'asrBottom'#4'Left'#3#148#1#6'Height'#2#25#3'Top'#2'7'#5'Widt'
+  +'h'#2'K'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'
+  +#2#6#7'Caption'#6#7'&Delete'#7'OnClick'#7#12'BDeleteClick'#8'TabOrder'#2#2#0
+  +#0#7'TButton'#6'BClear'#22'AnchorSideLeft.Control'#7#7'BDelete'#21'AnchorSid'
+  +'eTop.Control'#7#7'BDelete'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorS'
+  +'ideRight.Control'#7#7'BDelete'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Le'
+  +'ft'#3#148#1#6'Height'#2#25#3'Top'#2'V'#5'Width'#2'K'#7'Anchors'#11#5'akTop'
+  +#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#6#7'Caption'#6#6'C&lear'#7'O'
+  +'nClick'#7#11'BClearClick'#8'TabOrder'#2#3#0#0#7'TButton'#3'BOK'#23'AnchorSi'
+  +'deRight.Control'#7#7'PBottom'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'An'
+  +'chorSideBottom.Control'#7#7'PBottom'#21'AnchorSideBottom.Side'#7#9'asrBotto'
+  +'m'#4'Left'#3#148#1#6'Height'#2#25#3'Top'#3#179#0#5'Width'#2'K'#7'Anchors'#11
+  +#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#3'&OK'#7
+  +'Default'#9#11'ModalResult'#2#1#8'TabOrder'#2#4#0#0#7'TButton'#7'BCancel'#23
+  +'AnchorSideRight.Control'#7#3'BOK'#20'AnchorSideRight.Side'#7#9'asrBottom'#24
+  +'AnchorSideBottom.Control'#7#3'BOK'#4'Left'#3#148#1#6'Height'#2#25#3'Top'#3
+  +#148#0#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#6'Cancel'#9#7'Ca'
+  ,'ption'#6#7'&Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#5#0#0#0#0
 ]);
--- a/ideintf/frmselectprops.pas
+++ b/ideintf/frmselectprops.pas
@ -60,10 +60,11 @@ type
    function GetSelectedProps: String;
    procedure SetPropComponent(const AValue: TComponent);
    procedure SetSelectedProps(const AValue: String);
-    Procedure ShowComponents;
-    Procedure ShowProperties(C : TComponent);
-    Procedure AddSelectedProperties;
-    Procedure DeleteSelectedProperties;
+    procedure ShowComponents;
+    procedure ShowProperties(C : TComponent);
+    function GetSelectedComponent: TComponent;
+    procedure AddSelectedProperties;
+    procedure DeleteSelectedProperties;
  public
    Property PropertyComponent : TComponent Read FPropComponent Write SetPropComponent;
    Property SelectedProperties : String Read GetSelectedProps Write SetSelectedProps;
@ -87,16 +88,8 @@ end;

 procedure TSelectPropertiesForm.LBComponentsSelectionChange(Sender: TObject;
  User: boolean);
-var
-  C : TComponent;
 begin
-  //debugln('TSelectPropertiesForm.LBComponentsSelectionChange');
-  With Sender as TListBox do
-    if ItemIndex=-1 then
-      C:=Nil
-    else
-      C:=Items.Objects[ItemIndex] as TComponent;
-  ShowProperties(C);
+  ShowProperties(GetSelectedComponent);
 end;

 procedure TSelectPropertiesForm.LBPropertiesClick(Sender: TObject);
@ -204,6 +197,7 @@ begin
    end;
  If LBComponents.Items.Count>0 then
    LBComponents.ItemIndex:=0;
+  ShowProperties(GetSelectedComponent);
 end;

 procedure TSelectPropertiesForm.ShowProperties(C : TComponent);
@ -213,7 +207,7 @@ var
  N,S : String;
  P : PPropInfo;
 begin
-  //debugln('TSelectPropertiesForm.ShowProperties ',dbgsName(C));
+  debugln('TSelectPropertiesForm.ShowProperties ',dbgsName(C));
  With LBProperties do
    try
      Items.BeginUpdate;
@ -241,6 +235,21 @@ begin
    end;
 end;

+function TSelectPropertiesForm.GetSelectedComponent: TComponent;
+var
+  CurName: string;
+begin
+  Result:=nil;
+  if LBComponents.ItemIndex>=0 then begin
+    CurName:=LBComponents.Items[LBComponents.ItemIndex];
+    if SysUtils.CompareText(CurName,FPropComponent.Name)=0 then
+      Result:=FPropComponent
+    else
+      Result:=FPropComponent.FindComponent(CurName);
+    DebugLn(['TSelectPropertiesForm.GetSelectedComponent ItemIndex=',LBComponents.ItemIndex,' CurName=',CurName,' Result=',DbgSName(Result)]);
+  end;
+end;
+
 procedure TSelectPropertiesForm.AddSelectedProperties;
 var
  I : Integer;