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

Converter: Thread feature cleanup.

Browse Source 
git-svn-id: trunk@28247 -
This commit is contained in:
juha 2010-11-15 12:38:51 +00:00
parent 11ed939856
commit 972428939b
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
converter/convertdelphi.pas
View File

@ -970,20 +970,15 @@ function TConvertDelphiPBase.Convert: TModalResult;
var var
// The initial unit name cache is done in a thread so that GUI shows at once. // The initial unit name cache is done in a thread so that GUI shows at once.
CacheUnitsThread: TCacheUnitsThread; CacheUnitsThread: TCacheUnitsThread;
b: Boolean;
begin begin
{$IFDEF UseCThreads}
ShowMessage('here we are!');
{$ENDIF}
IDEMessagesWindow.Clear; IDEMessagesWindow.Clear;
// Start scanning unit files one level above project path. The GUI will appear // Start scanning unit files one level above project path. The GUI will appear
// without delay but then we must wait for the thread before continuing. // without delay but then we must wait for the thread before continuing.
CacheUnitsThread:=TCacheUnitsThread.Create(Self, fSettings.MainPath); CacheUnitsThread:=TCacheUnitsThread.Create(Self, fSettings.MainPath);
try try
b := CacheUnitsThread.FreeOnTerminate;
CacheUnitsThread.Resume; CacheUnitsThread.Resume;
Result:=fSettings.RunForm; // Get settings from user. Result:=fSettings.RunForm; // Get settings from user.
CacheUnitsThread.WaitFor; // Make sure the thread has finished. CacheUnitsThread.WaitFor; // Make sure the thread has finished.
if Result=mrOK then begin if Result=mrOK then begin
// create/open lazarus project or package file // create/open lazarus project or package file
fLazPFilename:=fSettings.DelphiToLazFilename(fOrigPFilename, fLazPSuffix, false); fLazPFilename:=fSettings.DelphiToLazFilename(fOrigPFilename, fLazPSuffix, false);