From: <jfu...@us...> - 2009-04-01 21:48:45
|
Revision: 12262 http://jvcl.svn.sourceforge.net/jvcl/?rev=12262&view=rev Author: jfudickar Date: 2009-04-01 21:48:36 +0000 (Wed, 01 Apr 2009) Log Message: ----------- Mantis 0004667 : Execution of TJvThread with dialog form is always 500ms (Mantis #0004667) Modified Paths: -------------- trunk/jvcl/run/JvThread.pas Modified: trunk/jvcl/run/JvThread.pas =================================================================== --- trunk/jvcl/run/JvThread.pas 2009-04-01 21:46:18 UTC (rev 12261) +++ trunk/jvcl/run/JvThread.pas 2009-04-01 21:48:36 UTC (rev 12262) @@ -407,6 +407,7 @@ procedure TJvCustomThreadDialogForm.CloseThreadForm; begin + Hide; if fsModal in FormState then ModalResult := mrCancel else @@ -447,18 +448,12 @@ if not (csDestroying in ComponentState) then begin if not Assigned(ConnectedThread) then - begin - Hide; // no connected component - CloseThreadForm; - end + CloseThreadForm else // connected component present if ConnectedThread.Terminated or not ConnectedThread.OneThreadIsRunning then begin if FormIsShown then - begin - Hide; CloseThreadForm; - end; end else // not terminated begin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |