paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 09:00:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: objectinspector: fixed painting outside paint event

Browse Source 
git-svn-id: trunk@37634 -
This commit is contained in:
mattias 2012-06-13 13:35:41 +00:00
parent b6a92e67e4
commit b1e9846595
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ideintf/objectinspector.pp
View File

@ -1341,7 +1341,7 @@ begin
Exclude(FStates,pgsApplyingValue); Exclude(FStates,pgsApplyingValue);
end; end;
if FPropertyEditorHook=nil then if FPropertyEditorHook=nil then
DoPaint(true) Invalidate
else else
FPropertyEditorHook.RefreshPropertyValues; FPropertyEditorHook.RefreshPropertyValues;
//DebugLn(['TOICustomPropertyGrid.SetRowValue ',CurRow.Name,' ',CurRow.Editor.GetVisualValue,' ',Assigned(FOnModified)]); //DebugLn(['TOICustomPropertyGrid.SetRowValue ',CurRow.Name,' ',CurRow.Editor.GetVisualValue,' ',Assigned(FOnModified)]);
@ -1391,7 +1391,7 @@ begin
RefreshValueEdit; RefreshValueEdit;
//invalidate changed subproperties //invalidate changed subproperties
DoPaint(True); Invalidate;
end; end;
end; end;
@ -2793,7 +2793,7 @@ end;
procedure TOICustomPropertyGrid.RefreshPropertyValues; procedure TOICustomPropertyGrid.RefreshPropertyValues;
begin begin
RefreshValueEdit; RefreshValueEdit;
DoPaint(true); Invalidate;
end; end;
procedure TOICustomPropertyGrid.ScrollToActiveItem; procedure TOICustomPropertyGrid.ScrollToActiveItem;