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

object inspector: added ActivateGrid

Browse Source 
git-svn-id: trunk@22199 -
This commit is contained in:
mattias 2009-10-17 10:09:36 +00:00
parent 441c5bda34
commit 646b432cb2
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
ideintf/objectinspector.pp
View File

@ -181,7 +181,7 @@ type
FEditor: TPropertyEditor; FEditor: TPropertyEditor;
FWidgetSets: TLCLPlatforms; FWidgetSets: TLCLPlatforms;
Index:integer; FIndex:integer;
LastPaintedValue: string; LastPaintedValue: string;
procedure GetLvl; procedure GetLvl;
@ -216,6 +216,7 @@ type
property LastChild:TOIPropertyGridRow read FFirstChild; property LastChild:TOIPropertyGridRow read FFirstChild;
property NextBrother:TOIPropertyGridRow read FNextBrother; property NextBrother:TOIPropertyGridRow read FNextBrother;
property PriorBrother:TOIPropertyGridRow read FPriorBrother; property PriorBrother:TOIPropertyGridRow read FPriorBrother;
property Index: integer read FIndex;
end; end;
//---------------------------------------------------------------------------- //----------------------------------------------------------------------------
@ -712,7 +713,8 @@ type
function GetActivePropertyRow: TOIPropertyGridRow; function GetActivePropertyRow: TOIPropertyGridRow;
function GetCurRowDefaultValue(var DefaultStr: string): boolean; function GetCurRowDefaultValue(var DefaultStr: string): boolean;
procedure HookRefreshPropertyValues; procedure HookRefreshPropertyValues;
procedure FocusGrid; procedure ActivateGrid(Grid: TOICustomPropertyGrid);
procedure FocusGrid(Grid: TOICustomPropertyGrid = nil);
property AutoShow: Boolean read FAutoShow write FAutoShow; property AutoShow: Boolean read FAutoShow write FAutoShow;
property DefaultItemHeight: integer read FDefaultItemHeight property DefaultItemHeight: integer read FDefaultItemHeight
@ -1784,7 +1786,7 @@ begin
(PropEditor as TClassPropertyEditor).SubPropsTypeFilter := FFilter; (PropEditor as TClassPropertyEditor).SubPropsTypeFilter := FFilter;
NewRow:=TOIPropertyGridRow.Create(Self,PropEditor,FExpandingRow, []); NewRow:=TOIPropertyGridRow.Create(Self,PropEditor,FExpandingRow, []);
NewIndex:=FExpandingRow.Index+1+FExpandingRow.ChildCount; NewIndex:=FExpandingRow.Index+1+FExpandingRow.ChildCount;
NewRow.Index:=NewIndex; NewRow.FIndex:=NewIndex;
FRows.Insert(NewIndex,NewRow); FRows.Insert(NewIndex,NewRow);
if NewIndex<FItemIndex if NewIndex<FItemIndex
then inc(FItemIndex); then inc(FItemIndex);
@ -1810,7 +1812,7 @@ begin
Next:=ParentRow.NextSkipChilds; Next:=ParentRow.NextSkipChilds;
while (Item<>nil) and (Item<>Next) do begin while (Item<>nil) and (Item<>Next) do begin
FRows[Index]:=Item; FRows[Index]:=Item;
Item.Index:=Index; Item.FIndex:=Index;
Item:=Item.Next; Item:=Item.Next;
inc(Index); inc(Index);
end; end;
@ -2768,7 +2770,7 @@ procedure TOICustomPropertyGrid.SetItemsTops;
var a:integer; var a:integer;
begin begin
for a:=0 to FRows.Count-1 do begin for a:=0 to FRows.Count-1 do begin
Rows[a].Index:=a; Rows[a].FIndex:=a;
Rows[a].MeasureHeight(Canvas); Rows[a].MeasureHeight(Canvas);
end; end;
if FRows.Count>0 then if FRows.Count>0 then
@ -3190,7 +3192,7 @@ begin
FName:=FEditor.GetName; FName:=FEditor.GetName;
FTop:=0; FTop:=0;
FHeight:=FTree.DefaultItemHeight; FHeight:=FTree.DefaultItemHeight;
Index:=-1; FIndex:=-1;
LastPaintedValue:=''; LastPaintedValue:='';
FWidgetSets := WidgetSets; FWidgetSets := WidgetSets;
end; end;
@ -4905,12 +4907,22 @@ begin
RefreshPropertyValues; RefreshPropertyValues;
end; end;
procedure TObjectInspectorDlg.FocusGrid; procedure TObjectInspectorDlg.ActivateGrid(Grid: TOICustomPropertyGrid);
begin
if Grid=PropertyGrid then NoteBook.PageIndex:=0
else if Grid=EventGrid then NoteBook.PageIndex:=1
else if Grid=FavouriteGrid then NoteBook.PageIndex:=2
else if Grid=RestrictedGrid then NoteBook.PageIndex:=3;
end;
procedure TObjectInspectorDlg.FocusGrid(Grid: TOICustomPropertyGrid);
var var
Grid: TOICustomPropertyGrid;
Index: Integer; Index: Integer;
begin begin
Grid := GetActivePropertyGrid; if Grid=nil then
Grid := GetActivePropertyGrid
else
ActivateGrid(Grid);
if Grid <> nil then if Grid <> nil then
begin begin
Index := Grid.ItemIndex; Index := Grid.ItemIndex;