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

Changed the View Inspector menu item so it works.

Browse Source 
Shane

git-svn-id: trunk@47 -
This commit is contained in:
lazarus 2000-11-27 18:59:01 +00:00
parent f28a735d19
commit de3d1b9806
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/main.pp
View File

@ -123,9 +123,11 @@ type
procedure mnuSaveAllClicked(Sender : TObject); procedure mnuSaveAllClicked(Sender : TObject);
procedure mnuCloseClicked(Sender : TObject); procedure mnuCloseClicked(Sender : TObject);
procedure mnuQuitClicked(Sender : TObject); procedure mnuQuitClicked(Sender : TObject);
procedure mnuViewInspectorClicked(Sender : TObject);
procedure mnuViewCompilerSettingsClicked(Sender : TObject); procedure mnuViewCompilerSettingsClicked(Sender : TObject);
Procedure mnuViewUnitsClicked(Sender : TObject); Procedure mnuViewUnitsClicked(Sender : TObject);
Procedure mnuViewFormsClicked(Sender : TObject); Procedure mnuViewFormsClicked(Sender : TObject);
Procedure mnuViewColorClicked(Sender : TObject); Procedure mnuViewColorClicked(Sender : TObject);
Procedure mnuViewFontClicked(Sender : TObject); Procedure mnuViewFontClicked(Sender : TObject);
procedure mnuNewProjectClicked(Sender : TObject); procedure mnuNewProjectClicked(Sender : TObject);
@ -622,7 +624,7 @@ begin
ObjectInspector1 := TObjectInspector.Create(Self); ObjectInspector1 := TObjectInspector.Create(Self);
ObjectInspector1.left := 0; ObjectInspector1.left := 0;
ObjectInspector1.Top := Top+Height; ObjectInspector1.Top := Top+Height+25;
ObjectInspector1.Height := 400; ObjectInspector1.Height := 400;
ObjectInspector1.Show; ObjectInspector1.Show;
@ -819,6 +821,7 @@ itmFileNew := TMenuItem.Create(Self);
itmViewInspector := TMenuItem.Create(Self); itmViewInspector := TMenuItem.Create(Self);
itmViewInspector.Caption := 'Object Inspector'; itmViewInspector.Caption := 'Object Inspector';
itmViewInspector.OnClick := @mnuViewInspectorClicked;
mnuView.Add(itmViewInspector); mnuView.Add(itmViewInspector);
itmViewProject := TMenuItem.Create(Self); itmViewProject := TMenuItem.Create(Self);
@ -1750,6 +1753,15 @@ Project1.UnitList.Free;
Close; Close;
end; end;
{------------------------------------------------------------------------------}
procedure TForm1.mnuViewInspectorClicked(Sender : TObject);
begin
ObjectInspector1.Show;
end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
procedure TForm1.mnuViewCompilerSettingsClicked(Sender : TObject); procedure TForm1.mnuViewCompilerSettingsClicked(Sender : TObject);
begin begin
@ -2377,9 +2389,8 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.6 2000/11/27 18:52:37 lazarus Revision 1.7 2000/11/27 18:59:01 lazarus
Added the Object Inspector code. Changed the View Inspector menu item so it works.
Added more form editor code.
Shane Shane
Revision 1.5 2000/08/10 13:22:51 lazarus Revision 1.5 2000/08/10 13:22:51 lazarus