From 6cc32369e2dcd2c87416f119935ae2f5efcc222f Mon Sep 17 00:00:00 2001 From: juha Date: Thu, 20 Sep 2018 08:18:57 +0000 Subject: [PATCH] MainInspector: Fix a typo. git-svn-id: trunk@59092 - --- components/IdeInspector/maininspector.pas | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/components/IdeInspector/maininspector.pas b/components/IdeInspector/maininspector.pas index a1b3793497..675cee3933 100644 --- a/components/IdeInspector/maininspector.pas +++ b/components/IdeInspector/maininspector.pas @@ -93,7 +93,6 @@ type procedure TreeView1Change(Sender: TObject; Node: TTreeNode); procedure TreeView1Click(Sender: TObject); private - { private declarations } FSelected: TComponent; FFollowFrames: Boolean; FHistoryList: TList; @@ -118,7 +117,6 @@ type procedure DisplayCurrent; procedure UpdateHistory(ForceAdd: Boolean = False); public - { public declarations } constructor Create(TheOwner: TComponent); override; destructor Destroy; override; end; @@ -128,7 +126,7 @@ var resourcestring ideinspInspectIDE = 'Inspect IDE'; - ideinspApplcicationComponents = 'Applcication.Components'; + ideinspApplicationComponents = 'Application.Components'; ideinspScreenForms = 'Screen.Forms'; ideinspQuickLinks = 'Quick links'; ideinspComponentsOwned = 'Components (Owned)'; @@ -390,7 +388,7 @@ begin popComponent.Items.Clear; m := TExtMenuItem.Create(Self); - m.Caption := ideinspApplcicationComponents + ' (' + IntToStr(Application.ComponentCount) + ')' ; + m.Caption := ideinspApplicationComponents + ' (' + IntToStr(Application.ComponentCount) + ')' ; m.Enabled := False; popComponent.Items.Add(m); for i := 0 to Application.ComponentCount - 1 do begin