Rev 14 | Rev 19 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 14 | Rev 18 | ||
|---|---|---|---|
| Line 60... | Line 60... | ||
| 60 | procedure MEnableSoundClick(Sender: TObject); |
60 | procedure MEnableSoundClick(Sender: TObject); |
| 61 | procedure MUndoClick(Sender: TObject); |
61 | procedure MUndoClick(Sender: TObject); |
| 62 | procedure Aboutthislevel1Click(Sender: TObject); |
62 | procedure Aboutthislevel1Click(Sender: TObject); |
| 63 | procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
63 | procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
| 64 | private |
64 | private |
| - | 65 | NoCloseQuery: boolean; |
|
| 65 | CountedSeconds: Integer; |
66 | CountedSeconds: Integer; |
| 66 | LevelFile: String; |
67 | LevelFile: String; |
| 67 | LookupFieldCoordinateArray: array of TPoint; |
68 | LookupFieldCoordinateArray: array of TPoint; |
| 68 | PrevPlaygroundMatrixes: array of TPlayGroundMatrix; |
69 | PrevPlaygroundMatrixes: array of TPlayGroundMatrix; |
| 69 | PlaygroundMatrix: TPlayGroundMatrix; |
70 | PlaygroundMatrix: TPlayGroundMatrix; |
| Line 714... | Line 715... | ||
| 714 | LevelFile := AskForLevel; |
715 | LevelFile := AskForLevel; |
| 715 | if LevelFile <> '' then |
716 | if LevelFile <> '' then |
| 716 | begin |
717 | begin |
| 717 | NewGame(LevelFile); |
718 | NewGame(LevelFile); |
| 718 | end |
719 | end |
| - | 720 | else |
|
| - | 721 | begin |
|
| - | 722 | NoCloseQuery := true; |
|
| 719 | else Close(); |
723 | Close; |
| - | 724 | end; |
|
| 720 | end; |
725 | end; |
| 721 | 726 | ||
| 722 | function TMainForm.GoalStatus: TGoalStatus; |
727 | function TMainForm.GoalStatus: TGoalStatus; |
| 723 | var |
728 | var |
| 724 | ft: TFieldType; |
729 | ft: TFieldType; |
| Line 886... | Line 891... | ||
| 886 | 891 | ||
| 887 | procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
892 | procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
| 888 | resourcestring |
893 | resourcestring |
| 889 | LNG_REALLY_QUIT = 'Do you really want to quit?'; |
894 | LNG_REALLY_QUIT = 'Do you really want to quit?'; |
| 890 | begin |
895 | begin |
| 891 | CanClose := MessageDlg(LNG_REALLY_QUIT, mtConfirmation, mbYesNoCancel, 0) = mrYes; |
896 | CanClose := NoCloseQuery or (MessageDlg(LNG_REALLY_QUIT, mtConfirmation, mbYesNoCancel, 0) = mrYes); |
| 892 | end; |
897 | end; |
| 893 | 898 | ||
| 894 | procedure TMainForm.MHelpClick(Sender: TObject); |
899 | procedure TMainForm.MHelpClick(Sender: TObject); |
| 895 | begin |
900 | begin |
| 896 | HelpForm.ShowModal; |
901 | HelpForm.ShowModal; |