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

IDE: ComponentPalette: remove Application.ProcessMessages in UpdateNoteBookButtons. It caused mouse down message to be sent twice, which manifested itself in r51723 #a26b02db5a. Issue #30316

Browse Source 
git-svn-id: trunk@52582 -
This commit is contained in:
ondrej 2016-06-28 15:31:02 +00:00
parent dd65d3bf72
commit 629e720ec7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/componentpalette.pas
View File

@ -957,7 +957,7 @@ begin
// remove every page in the PageControl without a visible page
for i:=FPageControl.PageCount-1 downto 0 do
RemoveUnneededPage(FPageControl.Pages[i]);
Application.ProcessMessages; // PageIndex of tabs are not updated without this.
{$IFDEF VerboseComponentPalette}
DebugLn(['TComponentPalette.UpdateNoteBookButtons: FPageCount after=', FPageControl.PageCount,
' PageCount=', Pages.count]);