cody: dictionary: disconnect idle on destroy

git-svn-id: trunk@35466 -

components/codetools/ide/codyidentifiersdlg.lfm

@@ -9,12 +9,13 @@ object CodyIdentifiersDlg: TCodyIdentifiersDlg
   ClientWidth = 552
   OnClose = FormClose
   OnCreate = FormCreate
+  OnDestroy = FormDestroy
   Position = poScreenCenter
   LCLVersion = '0.9.31'
   object ButtonPanel1: TButtonPanel
     Left = 6
-    Height = 30
-    Top = 288
+    Height = 42
+    Top = 276
     Width = 540
     OKButton.Name = 'OKButton'
     OKButton.DefaultCaption = True
@@ -29,9 +30,9 @@ object CodyIdentifiersDlg: TCodyIdentifiersDlg
   end
   object InfoLabel: TLabel
     Left = 8
-    Height = 17
+    Height = 15
     Top = 8
-    Width = 59
+    Width = 52
     Caption = 'InfoLabel'
     ParentColor = False
     WordWrap = True
@@ -42,9 +43,9 @@ object CodyIdentifiersDlg: TCodyIdentifiersDlg
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = StartsSpeedButton
     Left = 6
-    Height = 22
-    Top = 59
-    Width = 409
+    Height = 24
+    Top = 61
+    Width = 425
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Left = 6
     BorderSpacing.Top = 10
@@ -62,8 +63,8 @@ object CodyIdentifiersDlg: TCodyIdentifiersDlg
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = UnitLabel
     Left = 6
-    Height = 144
-    Top = 81
+    Height = 128
+    Top = 85
     Width = 540
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Left = 6
@@ -72,15 +73,17 @@ object CodyIdentifiersDlg: TCodyIdentifiersDlg
     ItemHeight = 0
     OnClick = ItemsListBoxClick
     OnSelectionChange = ItemsListBoxSelectionChange
+    ScrollWidth = 538
     TabOrder = 2
+    TopIndex = -1
   end
   object UnitLabel: TLabel
     AnchorSideLeft.Control = InfoLabel
     AnchorSideBottom.Control = PackageLabel
     Left = 8
-    Height = 17
-    Top = 226
-    Width = 60
+    Height = 15
+    Top = 214
+    Width = 53
     Anchors = [akLeft, akBottom]
     BorderSpacing.Bottom = 1
     Caption = 'UnitLabel'
@@ -90,9 +93,9 @@ object CodyIdentifiersDlg: TCodyIdentifiersDlg
     AnchorSideLeft.Control = InfoLabel
     AnchorSideBottom.Control = AddToImplementationUsesCheckBox
     Left = 8
-    Height = 17
-    Top = 244
-    Width = 85
+    Height = 15
+    Top = 230
+    Width = 78
     Anchors = [akLeft, akBottom]
     BorderSpacing.Bottom = 1
     Caption = 'PackageLabel'
@@ -103,9 +106,9 @@ object CodyIdentifiersDlg: TCodyIdentifiersDlg
     AnchorSideTop.Control = InfoLabel
     AnchorSideTop.Side = asrBottom
     Left = 8
-    Height = 18
-    Top = 31
-    Width = 197
+    Height = 22
+    Top = 29
+    Width = 178
     BorderSpacing.Top = 6
     Caption = 'HideOtherProjectsCheckBox'
     OnChange = HideOtherProjectsCheckBoxChange
@@ -115,9 +118,9 @@ object CodyIdentifiersDlg: TCodyIdentifiersDlg
     AnchorSideLeft.Control = PackageLabel
     AnchorSideBottom.Control = ButtonPanel1
     Left = 8
-    Height = 18
-    Top = 264
-    Width = 253
+    Height = 22
+    Top = 248
+    Width = 226
     Anchors = [akLeft, akBottom]
     BorderSpacing.Top = 3
     BorderSpacing.Bottom = 3
@@ -131,10 +134,10 @@ object CodyIdentifiersDlg: TCodyIdentifiersDlg
     AnchorSideRight.Control = ContainsSpeedButton
     AnchorSideBottom.Control = FilterEdit
     AnchorSideBottom.Side = asrBottom
-    Left = 415
-    Height = 22
-    Top = 59
-    Width = 71
+    Left = 431
+    Height = 24
+    Top = 61
+    Width = 62
     Anchors = [akTop, akRight, akBottom]
     AutoSize = True
     Caption = 'Starts with'
@@ -150,10 +153,10 @@ object CodyIdentifiersDlg: TCodyIdentifiersDlg
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = FilterEdit
     AnchorSideBottom.Side = asrBottom
-    Left = 486
-    Height = 22
-    Top = 59
-    Width = 60
+    Left = 493
+    Height = 24
+    Top = 61
+    Width = 53
     Anchors = [akTop, akRight, akBottom]
     AutoSize = True
     BorderSpacing.Right = 6

components/codetools/ide/codyidentifiersdlg.pas

@@ -153,6 +153,7 @@ type
     procedure FilterEditExit(Sender: TObject);
     procedure FilterEditKeyDown(Sender: TObject; var Key: Word;
       {%H-}Shift: TShiftState);
+    procedure FormDestroy(Sender: TObject);
     procedure JumpButtonClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -765,6 +766,11 @@ begin
   end;
 end;
 
+procedure TCodyIdentifiersDlg.FormDestroy(Sender: TObject);
+begin
+  IdleConnected:=false;
+end;
+
 procedure TCodyIdentifiersDlg.JumpButtonClick(Sender: TObject);
 begin
   SetDlgAction(cidaJumpToIdentifier);