paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 05:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 59092 #6cc32369e2 from trunk:

Browse Source 
MainInspector: Fix a typo.
........

git-svn-id: branches/fixes_2_0@59199 -
This commit is contained in:
maxim 2018-09-30 22:38:54 +00:00
parent d100a1daee
commit 4f6f135dbb
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 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