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

MG: show objectinspector only if needed

Browse Source 
git-svn-id: trunk@1557 -
This commit is contained in:
lazarus 2002-03-28 09:34:08 +00:00
parent 426f90740f
commit 9be09b9fed
2 changed files with 26 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
designer/objectinspector.pp
View File

@ -29,12 +29,12 @@ interface
uses
Forms, SysUtils, Buttons, Classes, Graphics, GraphType, StdCtrls, LCLType,
LCLLinux, LMessages, Controls, ComCtrls, ExtCtrls, PropEdits, TypInfo, Messages,
LResources, XMLCfg, Menus, Dialogs;
LCLLinux, LMessages, Controls, ComCtrls, ExtCtrls, PropEdits, TypInfo,
Messages, LResources, XMLCfg, Menus, Dialogs;
type
EGenException = class(Exception);
EObjectInspectorException = class(Exception);
TObjectInspector = class;
@ -1754,37 +1754,34 @@ end;
function TObjectInspector.ComponentToString(c:TComponent):string;
begin
Try
Result:=c.GetNamePath+': '+c.ClassName;
except
Result := '';
Raise EGEnException.Create('Exception in ObjectInspector ComponentToString');
end;
Try
Result:=c.GetNamePath+': '+c.ClassName;
except
Result := '';
Raise EObjectInspectorException.Create(
'Exception in ObjectInspector ComponentToString');
end;
end;
procedure TObjectInspector.AddComponentToAvailComboBox(AComponent:TComponent);
var Allowed:boolean;
begin
try
Allowed:=true;
if Assigned(FOnAddAvailableComponent) then
FOnAddAvailableComponent(AComponent,Allowed);
if Allowed then
AvailCompsComboBox.Items.AddObject(
ComponentToString(AComponent),AComponent);
except
raise EGenException.Create('Exception: ObjectInspector AddComponentToAvailComboBox');
end;
try
Allowed:=true;
if Assigned(FOnAddAvailableComponent) then
FOnAddAvailableComponent(AComponent,Allowed);
if Allowed then
AvailCompsComboBox.Items.AddObject(
ComponentToString(AComponent),AComponent);
except
raise EObjectInspectorException.Create(
'Exception: ObjectInspector AddComponentToAvailComboBox');
end;
end;
procedure TObjectInspector.PropEditLookupRootChange;
begin
try
FillComponentComboBox;
except
raise EGenException.Create('Exception: ObjectInspector PropEditLookupRootCHange');
end;
end;
procedure TObjectInspector.FillComponentComboBox;
@ -1794,7 +1791,6 @@ var a:integer;
begin
//writeln('[TObjectInspector.FillComponentComboBox] A ',FUpdatingAvailComboBox
//,' ',FPropertyEditorHook<>nil,' ',FPropertyEditorHook.LookupRoot<>nil);
try
if FUpdatingAvailComboBox then exit;
FUpdatingAvailComboBox:=true;
AvailCompsComboBox.Items.BeginUpdate;
@ -1818,9 +1814,6 @@ try
AvailCompsComboBox.Text:='';
end else
AvailCompsComboBox.ItemIndex:=a;
except
raise EGenException.Create('Exception: ObjectInspector FillComponentComboBox');
end;
end;
procedure TObjectInspector.SetSelections(
@ -1841,6 +1834,8 @@ procedure TObjectInspector.RefreshSelections;
begin
PropertyGrid.Selections:=FComponentList;
EventGrid.Selections:=FComponentList;
if (not Visible) and (FComponentList.Count>0) then
Visible:=true;
end;
procedure TObjectInspector.RefreshPropertyValues;

4
ide/main.pp
View File

@ -900,7 +900,6 @@ begin
ObjectInspector1.PropertyEditorHook:=PropertyEditorHook1;
EnvironmentOptions.IDEWindowLayoutList.Apply(TForm(ObjectInspector1),
DefaultObjectInspectorName);
ObjectInspector1.Show;
end;
procedure TMainIDE.SetupCompilerInterface;
@ -6175,6 +6174,9 @@ end.
{ =============================================================================
$Log$
Revision 1.262 2002/03/28 09:34:06 lazarus
MG: show objectinspector only if needed
Revision 1.261 2002/03/28 00:11:04 lazarus
MG: removed unused