/trunk/Choice.dfm |
---|
11,7 → 11,7 |
Font.Name = 'MS Sans Serif' |
Font.Style = [] |
OldCreateOrder = False |
Position = poScreenCenter |
Position = poMainFormCenter |
OnCreate = FormCreate |
OnResize = FormResize |
OnShow = FormShow |
83,7 → 83,7 |
Left = 24 |
Top = 32 |
Bitmap = { |
494C0101030018003C0020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 |
494C010103001800380020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 |
0000000000003600000028000000800000002000000001002000000000000040 |
0000000000000000000000000000000000000000000000000000000000000000 |
0000800000008000000080000000800000008000000080000000800000008000 |
/trunk/Main.dfm |
---|
16,7 → 16,7 |
Font.Style = [] |
Menu = MainMenu |
OldCreateOrder = False |
Position = poScreenCenter |
Position = poDesktopCenter |
OnClose = FormClose |
OnCloseQuery = FormCloseQuery |
OnCreate = FormCreate |
/trunk/Main.pas |
---|
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); |
/trunk/Choice.pas |
---|
82,7 → 82,7 |
procedure TLevelChoice.LevelListClick(Sender: TObject); |
var |
LevelFile: string; |
LevelFile, LevelString: string; |
Level: TLevel; |
begin |
PlayBtn.Enabled := Assigned(LevelList.Selected); |
130,13 → 130,10 |
begin |
Caption := Copy(s.Name, 1, Length(s.Name)-Length(LVL_EXT)); |
Level := TLevel.Create(LVL_PATH + s.Name); |
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}; |
case Level.GetGameMode of |
gmNormal: ImageIndex := 0; |
gmDiagonal: ImageIndex := 1; |
gmUndefined: ImageIndex := 2; |
end; |
end; |
until FindNext(s) <> 0; |