62,7 → 62,6 |
procedure Aboutthislevel1Click(Sender: TObject); |
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
private |
NoCloseQuery: boolean; |
CountedSeconds: Integer; |
LevelFile: String; |
LookupFieldCoordinateArray: array of TPoint; |
717,12 → 716,8 |
begin |
NewGame(LevelFile); |
end |
else |
begin |
NoCloseQuery := true; |
Close; |
else Close(); |
end; |
end; |
|
function TMainForm.GoalStatus: TGoalStatus; |
var |
893,7 → 888,7 |
resourcestring |
LNG_REALLY_QUIT = 'Do you really want to quit?'; |
begin |
CanClose := NoCloseQuery or (MessageDlg(LNG_REALLY_QUIT, mtConfirmation, mbYesNoCancel, 0) = mrYes); |
CanClose := MessageDlg(LNG_REALLY_QUIT, mtConfirmation, mbYesNoCancel, 0) = mrYes; |
end; |
|
procedure TMainForm.MHelpClick(Sender: TObject); |