identifier typo

This commit is contained in:
Basile Burg 2017-01-26 06:09:23 +01:00
parent 9aaaa32ac5
commit aedbdd92ab
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 5 additions and 7 deletions

View File

@ -27,7 +27,7 @@ type
property OnMouseWheel; property OnMouseWheel;
end; end;
TAsynWait = (awNo, awYes, awCustom); TAsyncWait = (awNo, awYes, awCustom);
TRunnableToFolderCondition = ( TRunnableToFolderCondition = (
ifInProject, // runnable src is part of the project ifInProject, // runnable src is part of the project
@ -460,7 +460,7 @@ type
function closeProj: boolean; function closeProj: boolean;
procedure showProjTitle; procedure showProjTitle;
function checkProjectLock(message: boolean = true): boolean; function checkProjectLock(message: boolean = true): boolean;
procedure compileGroup(async: TAsynWait); procedure compileGroup(async: TAsyncWait);
// mru // mru
procedure mruChange(Sender: TObject); procedure mruChange(Sender: TObject);
@ -3518,7 +3518,7 @@ end;
// TODO-cprojectsgroup: add a "out of mem" protection in async mode. // TODO-cprojectsgroup: add a "out of mem" protection in async mode.
procedure TCEMainForm.compileGroup(async: TAsynWait); procedure TCEMainForm.compileGroup(async: TAsyncWait);
var var
i, j: integer; i, j: integer;
begin begin
@ -3582,11 +3582,9 @@ end;
procedure TCEMainForm.actProjNewGroupExecute(Sender: TObject); procedure TCEMainForm.actProjNewGroupExecute(Sender: TObject);
begin begin
if fProjectGroup.groupModified then if fProjectGroup.groupModified and
begin (dlgFileChangeClose(fProjectGroup.groupFilename, UnsavedPGrp) = mrCancel) then
if dlgFileChangeClose(fProjectGroup.groupFilename, UnsavedPGrp) = mrCancel then
exit; exit;
end;
fProjectGroup.closeGroup; fProjectGroup.closeGroup;
end; end;
{$ENDREGION} {$ENDREGION}