paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 17:40:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed updating OI when adding/emoving component and selecting in OI

Browse Source 
git-svn-id: trunk@3535 -
This commit is contained in:
lazarus 2002-10-22 17:53:38 +00:00
parent dcf903b4aa
commit 5a97c0e03a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
designer/objectinspector.pp
View File

@ -281,7 +281,7 @@ type
TOnSelectComponentInOI = procedure(AComponent:TComponent) of object;
TObjectInspector = class (TCustomForm)
AvailCompsComboBox : TComboBox;
AvailCompsComboBox: TComboBox;
NoteBook:TNoteBook;
PropertyGrid:TOIPropertyGrid;
EventGrid:TOIPropertyGrid;
@ -290,7 +290,7 @@ type
ColorsPopupMenuItem:TMenuItem;
BackgroundColPopupMenuItem:TMenuItem;
ShowHintsPopupMenuItem:TMenuItem;
procedure AvailComboBoxChange(Sender:TObject);
procedure AvailComboBoxCloseUp(Sender: TObject);
procedure OnBackgroundColPopupMenuItemClick(Sender :TObject);
procedure OnShowHintPopupMenuItemClick(Sender :TObject);
procedure PropEditRefreshPropertyValues;
@ -1921,7 +1921,7 @@ begin
Parent:=Self;
Style:=csDropDown;
Text:='';
OnChange:=@AvailComboBoxChange;
OnCloseUp:=@AvailComboBoxCloseUp;
//Sorted:=true;
Align:= alTop;
Visible:=true;
@ -2085,7 +2085,7 @@ begin
EventGrid.RefreshPropertyValues;
end;
procedure TObjectInspector.AvailComboBoxChange(Sender:TObject);
procedure TObjectInspector.AvailComboBoxCloseUp(Sender:TObject);
var NewComponent,Root:TComponent;
a:integer;