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

nogui: call CheckSynchronize in AppProcessMessages

Browse Source 
git-svn-id: trunk@45293 -
This commit is contained in:
mattias 2014-06-01 21:27:51 +00:00
parent b526979d64
commit 2bd7eaf378
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/nogui/noguiint.pp
View File

@ -36,6 +36,7 @@ type
{ TNoGUIWidgetSet }
TNoGUIWidgetSet = class(TWidgetSet)
procedure NoGUIWidgetSetWakeMainThread(Sender: TObject);
protected
public
procedure PassCmdLineOptions; override;
@ -69,6 +70,13 @@ implementation
{ TNoGUIWidgetSet }
procedure TNoGUIWidgetSet.NoGUIWidgetSetWakeMainThread(Sender: TObject);
// Called by thread to wake up the main thread
begin
// Nothing to be done. The application must call
// Application.ProcessMessages or CheckSynchronize regularly
end;
procedure TNoGUIWidgetSet.PassCmdLineOptions;
begin
inherited PassCmdLineOptions;
@ -86,7 +94,8 @@ end;
procedure TNoGUIWidgetSet.AppProcessMessages;
begin
if IsMultiThread then
CheckSynchronize;
end;
procedure TNoGUIWidgetSet.AppWaitMessage;
@ -128,6 +137,7 @@ end;
constructor TNoGUIWidgetSet.Create;
begin
inherited Create;
WakeMainThread:=@NoGUIWidgetSetWakeMainThread;
end;
destructor TNoGUIWidgetSet.Destroy;