paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-11 00:09:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

cody: dictionary: disconnect idle on destroy

Browse Source 
git-svn-id: trunk@35466 -
This commit is contained in:
mattias 2012-02-18 20:57:07 +00:00
parent 4918aaf8df
commit e307672e60
2 changed files with 38 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
components/codetools/ide/codyidentifiersdlg.lfm
View File

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

6
components/codetools/ide/codyidentifiersdlg.pas
View File

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