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

IDE: Less updates for the component palette during startup.

Browse Source 
git-svn-id: trunk@47111 -
This commit is contained in:
juha 2014-12-04 23:29:03 +00:00
parent 149ad1651b
commit 96987c1d32
3 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/componentpalette.pas
View File

@ -292,9 +292,10 @@ end;
procedure TComponentPalette.OnScrollBoxResize(Sender: TObject);
begin
if TControl(Sender).Parent is TCustomPage then begin
if MainIDE.IDEStarted and (TControl(Sender).Parent is TCustomPage) then
begin
{$IFDEF VerboseComponentPalette}
DebugLn('TComponentPalette.OnScrollBoxResize Calling ReAlignButtons');
DebugLn(['TComponentPalette.OnScrollBoxResize Calling ReAlignButtons, IDEStarted=', MainIDE.IDEStarted]);
{$ENDIF}
ReAlignButtons(TCustomPage(TControl(Sender).Parent));
end;

6
ide/main.pp
View File

@ -629,7 +629,6 @@ type
FDesignerToBeFreed: TFilenameToStringTree; // form file names to be freed OnIdle.
FApplicationIsActivate: boolean;
fNeedSaveEnvironment: boolean;
FIDEStarted: boolean;
FRemoteControlTimer: TTimer;
FRemoteControlFileAge: integer;
@ -8606,7 +8605,7 @@ end;
procedure TMainIDE.OnControlSelectionFormChanged(Sender: TObject; OldForm,
NewForm: TCustomForm);
begin
if (TheControlSelection=nil) or (FormEditor1=nil) then exit;
if (TheControlSelection=nil) or (FormEditor1=nil) or not FIDEStarted then exit;
if OldForm<>nil then
OldForm.Invalidate;
if TheControlSelection.LookupRoot<>nil then
@ -8615,8 +8614,7 @@ begin
NewForm.Invalidate;
{$IFDEF VerboseComponentPalette}
DebugLn('***');
DebugLn(['** TMainIDE.OnControlSelectionFormChanged: Calling UpdateIDEComponentPalette(true)',
', IDEStarted=', FIDEStarted, ' **']);
DebugLn('** TMainIDE.OnControlSelectionFormChanged: Calling UpdateIDEComponentPalette(true)');
{$ENDIF}
UpdateIDEComponentPalette(true);
end;

4
ide/mainbase.pas
View File

@ -90,6 +90,7 @@ type
procedure SetDisplayState(AValue: TDisplayState);
protected
FNeedUpdateHighlighters: boolean;
FIDEStarted: boolean;
function CreateMenuSeparator : TMenuItem;
procedure CreateMenuItem(Section: TIDEMenuSection;
@ -189,13 +190,12 @@ type
procedure FindInFilesPerDialog(AProject: TProject); override;
procedure FindInFiles(AProject: TProject; const FindText: string); override;
// Copied from CodeTyphon
procedure SelComponentPageButtonClick(Sender: TObject); virtual; abstract;
public
property ToolStatus: TIDEToolStatus read FToolStatus write SetToolStatus;
property WindowMenuActiveForm: TCustomForm read FWindowMenuActiveForm write FWindowMenuActiveForm;
property DisplayState: TDisplayState read FDisplayState write SetDisplayState;
property IDEStarted: boolean read FIDEStarted;
property LastFormActivated: TCustomForm read FLastFormActivated write FLastFormActivated;
end;