paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 22:39:14 +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); procedure TComponentPalette.OnScrollBoxResize(Sender: TObject);
begin begin
if TControl(Sender).Parent is TCustomPage then begin if MainIDE.IDEStarted and (TControl(Sender).Parent is TCustomPage) then
begin
{$IFDEF VerboseComponentPalette} {$IFDEF VerboseComponentPalette}
DebugLn('TComponentPalette.OnScrollBoxResize Calling ReAlignButtons'); DebugLn(['TComponentPalette.OnScrollBoxResize Calling ReAlignButtons, IDEStarted=', MainIDE.IDEStarted]);
{$ENDIF} {$ENDIF}
ReAlignButtons(TCustomPage(TControl(Sender).Parent)); ReAlignButtons(TCustomPage(TControl(Sender).Parent));
end; end;

6
ide/main.pp
View File

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

4
ide/mainbase.pas
View File

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