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

IDE: Detach desktop selection button from its action by Application.QueueAsyncCall. Prevents an AV. Patch from Ondrej Pokorny.

Browse Source 
git-svn-id: trunk@49793 -
This commit is contained in:
juha 2015-09-09 08:24:55 +00:00
parent 0da4587e23
commit ad00be4b12
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/desktopmanager.pas
View File

@ -62,8 +62,11 @@ type
end; end;
TShowDesktopsToolButton = class(TIDEToolButton) TShowDesktopsToolButton = class(TIDEToolButton)
private class var
DoChangeDesktopName: string;
private private
procedure ChangeDesktop(Sender: TObject); procedure ChangeDesktop(Sender: TObject);
class procedure DoChangeDesktop({%H-}Data: PtrInt);
procedure SaveAsDesktop(Sender: TObject); procedure SaveAsDesktop(Sender: TObject);
procedure MenuOnPopup(Sender: TObject); procedure MenuOnPopup(Sender: TObject);
@ -143,11 +146,17 @@ begin
end; end;
procedure TShowDesktopsToolButton.ChangeDesktop(Sender: TObject); procedure TShowDesktopsToolButton.ChangeDesktop(Sender: TObject);
begin
DoChangeDesktopName := (Sender as TShowDesktopItem).DesktopName;
Application.QueueAsyncCall(@DoChangeDesktop, 1);
end;
class procedure TShowDesktopsToolButton.DoChangeDesktop(Data: PtrInt);
var var
xDesktopName: string; xDesktopName: string;
xDesktop: TDesktopOpt; xDesktop: TDesktopOpt;
begin begin
xDesktopName := (Sender as TShowDesktopItem).DesktopName; xDesktopName := DoChangeDesktopName;
if xDesktopName = '' then if xDesktopName = '' then
Exit; Exit;