paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-14 08:36:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

MainInspector: Fix a typo.

Browse Source 
git-svn-id: trunk@59092 -
This commit is contained in:
juha 2018-09-20 08:18:57 +00:00
parent 32ab98357d
commit 6cc32369e2
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/IdeInspector/maininspector.pas
View File

@ -93,7 +93,6 @@ type
procedure TreeView1Change(Sender: TObject; Node: TTreeNode); procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure TreeView1Click(Sender: TObject); procedure TreeView1Click(Sender: TObject);
private private
{ private declarations }
FSelected: TComponent; FSelected: TComponent;
FFollowFrames: Boolean; FFollowFrames: Boolean;
FHistoryList: TList; FHistoryList: TList;
@ -118,7 +117,6 @@ type
procedure DisplayCurrent; procedure DisplayCurrent;
procedure UpdateHistory(ForceAdd: Boolean = False); procedure UpdateHistory(ForceAdd: Boolean = False);
public public
{ public declarations }
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -128,7 +126,7 @@ var
resourcestring resourcestring
ideinspInspectIDE = 'Inspect IDE'; ideinspInspectIDE = 'Inspect IDE';
ideinspApplcicationComponents = 'Applcication.Components'; ideinspApplicationComponents = 'Application.Components';
ideinspScreenForms = 'Screen.Forms'; ideinspScreenForms = 'Screen.Forms';
ideinspQuickLinks = 'Quick links'; ideinspQuickLinks = 'Quick links';
ideinspComponentsOwned = 'Components (Owned)'; ideinspComponentsOwned = 'Components (Owned)';
@ -390,7 +388,7 @@ begin
popComponent.Items.Clear; popComponent.Items.Clear;
m := TExtMenuItem.Create(Self); m := TExtMenuItem.Create(Self);
m.Caption := ideinspApplcicationComponents + ' (' + IntToStr(Application.ComponentCount) + ')' ; m.Caption := ideinspApplicationComponents + ' (' + IntToStr(Application.ComponentCount) + ')' ;
m.Enabled := False; m.Enabled := False;
popComponent.Items.Add(m); popComponent.Items.Add(m);
for i := 0 to Application.ComponentCount - 1 do begin for i := 0 to Application.ComponentCount - 1 do begin