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

IDE: Prevent UpdateIDEComponentPalette; being called too often. Issue #27103, patch from Cyrax.

Browse Source 
git-svn-id: trunk@47025 -
This commit is contained in:
juha 2014-11-29 11:05:41 +00:00
parent 9ec6293a92
commit ebbcfd0b72
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/main.pp
View File

@ -642,6 +642,8 @@ type
OldCompilerFilename, OldLanguage: String;
OIChangedTimer: TIdleTimer;
FPrevForm: TCustomForm;
procedure RenameInheritedMethods(AnUnitInfo: TUnitInfo; List: TStrings);
function OIHelpProvider: TAbstractIDEHTMLProvider;
protected
@ -8580,7 +8582,9 @@ begin
GlobalDesignHook.LookupRoot:=TheControlSelection.LookupRoot;
if NewForm<>nil then
NewForm.Invalidate;
UpdateIDEComponentPalette;
if NewForm<>FPrevForm then
UpdateIDEComponentPalette;
FPrevForm:=NewForm;
end;
procedure TMainIDE.OnGetDesignerSelection(const ASelection: TPersistentSelectionList);
@ -10515,7 +10519,9 @@ begin
{$ENDIF}
DisplayState:= dsForm;
LastFormActivated := (Sender as TDesigner).Form;
UpdateIDEComponentPalette;
if LastFormActivated<>FPrevForm then
UpdateIDEComponentPalette;
FPrevForm:=LastFormActivated;
end;
procedure TMainIDE.OnDesignerCloseQuery(Sender: TObject);