Subversion Repositories jumper

Compare Revisions

Regard whitespace Rev 17 → Rev 18

/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);