paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 11:24:40 +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
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

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

@ -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);