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

ideintf: don't eat designer focus by object inspector

Browse Source 
git-svn-id: trunk@19643 -
This commit is contained in:
paul 2009-04-27 03:33:32 +00:00
parent a1de14844b
commit b3e275d1d9
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ideintf/objectinspector.pp
View File

@ -313,6 +313,7 @@ type
function GetRowCount:integer;
procedure ClearRows;
function GetCurrentEditValue: string;
procedure SetActiveControl(const AControl: TWinControl);
procedure SetColumn(const AValue: TOICustomPropertyGridColumn);
procedure SetCurrentEditValue(const NewValue: string);
procedure SetDrawHorzGridLines(const AValue: Boolean);
@ -1530,7 +1531,7 @@ begin
and (not NewRow.IsReadOnly)
and CanFocus then begin
if (Column=oipgcValue) then
FCurrentEdit.SetFocus;
SetActiveControl(FCurrentEdit);
end;
end;
if FCurrentButton<>nil then
@ -1858,7 +1859,7 @@ begin
ItemIndex:=NewItemIndex;
if FCurrentEdit<>nil then
begin
FCurrentEdit.SetFocus;
SetActiveControl(FCurrentEdit);
if (FCurrentEdit is TCustomEdit) then
TCustomEdit(FCurrentEdit).SelectAll;
end;
@ -2757,6 +2758,15 @@ begin
Result:='';
end;
procedure TOICustomPropertyGrid.SetActiveControl(const AControl: TWinControl);
var
F: TCustomForm;
begin
F := GetParentForm(Self);
if F <> nil then
F.ActiveControl := AControl;
end;
procedure TOICustomPropertyGrid.SetColumn(
const AValue: TOICustomPropertyGridColumn);
begin