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

IDE: Notify component list of changed selection using a handler.

Browse Source 
git-svn-id: trunk@48313 -
This commit is contained in:
juha 2015-03-12 23:02:00 +00:00
parent b0023622ae
commit 5e4005ece3
1 changed files with 41 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
ide/componentlist.pas
View File

@ -85,9 +85,10 @@ type
FClassList: TStringList;
FKeepSelected: Boolean;
procedure ClearSelection;
procedure SelectionWasChanged;
procedure ComponentWasAdded;
procedure DoComponentInheritence(Comp: TRegisteredComponent);
procedure UpdateComponentSelection;
procedure UpdateComponents;
procedure UpdateButtonState;
protected
procedure UpdateShowing; override;
@ -129,10 +130,11 @@ begin
PageControl.ActivePage := TabSheetList;
if Assigned(IDEComponentPalette) then
begin
UpdateComponentSelection;
UpdateComponents;
with ListTree do
Selected := Items.GetFirstNode;
TreeFilterEd.InvalidateFilter;
IDEComponentPalette.AddHandlerSelectionChanged(@SelectionWasChanged);
IDEComponentPalette.AddHandlerComponentAdded(@ComponentWasAdded);
end;
end;
@ -165,7 +167,7 @@ end;
procedure TComponentListForm.FormActivate(Sender: TObject);
begin
if Assigned(IDEComponentPalette) and (IDEComponentPalette.ChangeStamp<>PrevChangeStamp) then
UpdateComponentSelection;
UpdateComponents;
end;
procedure TComponentListForm.ClearSelection;
@ -175,24 +177,46 @@ begin
InheritanceTree.Selected := Nil;
end;
procedure SelectTreeComp(aTree: TTreeView);
var
Node: TTreeNode;
begin
with IDEComponentPalette do
if Assigned(Selected) then
Node := aTree.Items.FindNodeWithText(Selected.ComponentClass.ClassName)
else
Node := Nil;
aTree.Selected := Node;
end;
procedure TComponentListForm.SelectionWasChanged;
begin
// ToDo: Select the component in active treeview.
if ListTree.IsVisible then
SelectTreeComp(ListTree)
else if PalletteTree.IsVisible then
SelectTreeComp(PalletteTree)
else if InheritanceTree.IsVisible then
SelectTreeComp(InheritanceTree)
end;
function GetSelectedTreeComp(aTree: TTreeView): TRegisteredComponent;
begin
if Assigned(aTree.Selected) then
Result := TRegisteredComponent(aTree.Selected.Data)
else
Result := nil;
end;
function TComponentListForm.GetSelectedComponent: TRegisteredComponent;
begin
Result:=nil;
Result := nil;
if ListTree.IsVisible then
begin
if Assigned(ListTree.Selected) then
Result := TRegisteredComponent(ListTree.Selected.Data);
end
Result := GetSelectedTreeComp(ListTree)
else if PalletteTree.IsVisible then
begin
if Assigned(PalletteTree.Selected) then
Result := TRegisteredComponent(PalletteTree.Selected.Data);
end
Result := GetSelectedTreeComp(PalletteTree)
else if InheritanceTree.IsVisible then
begin
if Assigned(InheritanceTree.Selected) then
Result := TRegisteredComponent(InheritanceTree.Selected.Data);
end;
Result := GetSelectedTreeComp(InheritanceTree)
end;
procedure TComponentListForm.ComponentWasAdded;
@ -268,7 +292,7 @@ begin
end;
end;
procedure TComponentListForm.UpdateComponentSelection;
procedure TComponentListForm.UpdateComponents;
// Fill all three tabsheets: Flat list, Palette layout and Component inheritence.
var
Pg: TBaseComponentPage;