/trunk/Choice.dfm |
---|
11,7 → 11,7 |
Font.Name = 'MS Sans Serif' |
Font.Style = [] |
OldCreateOrder = False |
Position = poMainFormCenter |
Position = poScreenCenter |
OnCreate = FormCreate |
OnResize = FormResize |
OnShow = FormShow |
83,7 → 83,7 |
Left = 24 |
Top = 32 |
Bitmap = { |
494C010103001800380020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 |
494C0101030018003C0020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 |
0000000000003600000028000000800000002000000001002000000000000040 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000800000008000000080000000800000008000000080000000800000008000 |
/trunk/Choice.pas |
---|
82,7 → 82,7 |
procedure TLevelChoice.LevelListClick(Sender: TObject); |
var |
LevelFile, LevelString: string; |
LevelFile: string; |
Level: TLevel; |
begin |
PlayBtn.Enabled := Assigned(LevelList.Selected); |
130,10 → 130,13 |
begin |
Caption := Copy(s.Name, 1, Length(s.Name)-Length(LVL_EXT)); |
Level := TLevel.Create(LVL_PATH + s.Name); |
case Level.GetGameMode of |
gmNormal: ImageIndex := 0; |
gmDiagonal: ImageIndex := 1; |
gmUndefined: ImageIndex := 2; |
if Level.CheckLevelIntegrity <> leNone then |
ImageIndex := 2{Error} |
else case Level.GetGameMode of |
gmNormal: ImageIndex := 0{Normal}; |
gmDiagonal: ImageIndex := 1{Diagonal}; |
gmUndefined: ImageIndex := 2{Error}; |
end; |
end; |
until FindNext(s) <> 0; |
/trunk/Main.dfm |
---|
16,7 → 16,7 |
Font.Style = [] |
Menu = MainMenu |
OldCreateOrder = False |
Position = poDesktopCenter |
Position = poScreenCenter |
OnClose = FormClose |
OnCloseQuery = FormCloseQuery |
OnCreate = FormCreate |
/trunk/Main.pas |
---|
62,6 → 62,7 |
procedure Aboutthislevel1Click(Sender: TObject); |
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
private |
NoCloseQuery: boolean; |
CountedSeconds: Integer; |
LevelFile: String; |
LookupFieldCoordinateArray: array of TPoint; |
716,8 → 717,12 |
begin |
NewGame(LevelFile); |
end |
else Close(); |
else |
begin |
NoCloseQuery := true; |
Close; |
end; |
end; |
function TMainForm.GoalStatus: TGoalStatus; |
var |
888,7 → 893,7 |
resourcestring |
LNG_REALLY_QUIT = 'Do you really want to quit?'; |
begin |
CanClose := MessageDlg(LNG_REALLY_QUIT, mtConfirmation, mbYesNoCancel, 0) = mrYes; |
CanClose := NoCloseQuery or (MessageDlg(LNG_REALLY_QUIT, mtConfirmation, mbYesNoCancel, 0) = mrYes); |
end; |
procedure TMainForm.MHelpClick(Sender: TObject); |