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

IDE: Do not trigger palette update with OnComponentVisibleChanged and OnPageVisibleChanged events. Will be triggered by other means.

Browse Source 
git-svn-id: trunk@47140 -
This commit is contained in:
juha 2014-12-08 20:22:31 +00:00
parent 4a8e3ccc51
commit cfdbbbb410
3 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/ideintf/componentreg.pas
View File

@ -229,7 +229,7 @@ type
function FindButton(Button: TComponent): TRegisteredComponent;
function CreateNewClassName(const Prefix: string): string;
function IndexOfPageComponent(AComponent: TComponent): integer;
procedure Update; virtual;
procedure Update; virtual; abstract;
procedure IterateRegisteredClasses(Proc: TGetComponentClassEvent);
procedure RegisterCustomIDEComponents(
const RegisterProc: RegisterUnitComponentProc); virtual; abstract;
@ -669,17 +669,12 @@ end;
procedure TBaseComponentPalette.OnComponentVisibleChanged(AComponent: TRegisteredComponent);
begin
DoChange;
;
end;
procedure TBaseComponentPalette.OnPageVisibleChanged(APage: TBaseComponentPage);
begin
DoChange;
end;
procedure TBaseComponentPalette.Update;
begin
;
end;
function TBaseComponentPalette.VoteCompVisibility(AComponent: TRegisteredComponent): Boolean;

7
designer/designer.pp
View File

@ -2939,7 +2939,12 @@ begin
LM_MOUSEMOVE: MouseMoveOnControl(Sender, TLMMouse(TheMessage));
LM_SIZE: Result:=SizeControl(Sender, TLMSize(TheMessage));
LM_MOVE: Result:=MoveControl(Sender, TLMMove(TheMessage));
LM_ACTIVATE: Result:=DoFormActivated(TLMActivate(TheMessage).Active=WA_ACTIVE);
LM_ACTIVATE: begin
{$IFDEF VerboseComponentPalette}
DebugLn('TDesigner.IsDesignMsg: Got LM_ACTIVATE message.');
{$ENDIF}
Result:=DoFormActivated(TLMActivate(TheMessage).Active=WA_ACTIVE);
end;
LM_CLOSEQUERY: Result:=DoFormCloseQuery;
LM_SETCURSOR: Result:=HandleSetCursor(TheMessage);
LM_CONTEXTMENU: HandlePopupMenu(Sender, TLMContextMenu(TheMessage));

4
ide/componentpalette.pas
View File

@ -966,9 +966,9 @@ end;
procedure TComponentPalette.Update;
begin
inherited Update;
{$IFDEF VerboseComponentPalette}
DebugLn('TComponentPalette.Update, calling UpdateNoteBookButtons');
DebugLn(['TComponentPalette.Update, calling UpdateNoteBookButtons, fUpdatingPageControl=',
fUpdatingPageControl, ', fNoteBookNeedsUpdate=', fNoteBookNeedsUpdate]);
{$ENDIF}
UpdateNoteBookButtons;
end;