Subversion Repositories jumper

Rev

Rev 12 | Rev 18 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12 Rev 14
Line 41... Line 41...
41 
    MEnableSound: TMenuItem;
 41 
    MEnableSound: TMenuItem;
42 
    MPauseTime: TMenuItem;
 42 
    MPauseTime: TMenuItem;
43 
    N1: TMenuItem;
 43 
    N1: TMenuItem;
44 
    MUndo: TMenuItem;
 44 
    MUndo: TMenuItem;
45 
    N3: TMenuItem;
 45 
    N3: TMenuItem;
- 
 
 46 
    Aboutthislevel1: TMenuItem;
46 
    procedure MExitClick(Sender: TObject);
 47 
    procedure MExitClick(Sender: TObject);
47 
    procedure TimerTimer(Sender: TObject);
 48 
    procedure TimerTimer(Sender: TObject);
48 
    procedure MNewGameClick(Sender: TObject);
 49 
    procedure MNewGameClick(Sender: TObject);
49 
    procedure MAboutClick(Sender: TObject);
 50 
    procedure MAboutClick(Sender: TObject);
50 
    procedure FormShow(Sender: TObject);
 51 
    procedure FormShow(Sender: TObject);
Line 56... Line 57...
56 
    procedure MPauseTimeClick(Sender: TObject);
 57 
    procedure MPauseTimeClick(Sender: TObject);
57 
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 58 
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
58 
    procedure MHelpClick(Sender: TObject);
 59 
    procedure MHelpClick(Sender: TObject);
59 
    procedure MEnableSoundClick(Sender: TObject);
 60 
    procedure MEnableSoundClick(Sender: TObject);
60 
    procedure MUndoClick(Sender: TObject);
 61 
    procedure MUndoClick(Sender: TObject);
- 
 
 62 
    procedure Aboutthislevel1Click(Sender: TObject);
- 
 
 63 
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
61 
  private
 64 
  private
62 
    CountedSeconds: Integer;
 65 
    CountedSeconds: Integer;
63 
    LevelFile: String;
 66 
    LevelFile: String;
64 
    LookupFieldCoordinateArray: array of TPoint;
 67 
    LookupFieldCoordinateArray: array of TPoint;
65 
    PrevPlaygroundMatrixes: array of TPlayGroundMatrix;
 68 
    PrevPlaygroundMatrixes: array of TPlayGroundMatrix;
Line 382... Line 385...
382 
  end;
 385 
  end;
383 
 
 386 
 
384 
  result := false;
 387 
  result := false;
385 
end;
 388 
end;
386 
 
 389 
 
- 
 
 390 
procedure TMainForm.Aboutthislevel1Click(Sender: TObject);
- 
 
 391 
var
- 
 
 392 
  mode: string;
- 
 
 393 
  goalYeSNo: string;
- 
 
 394 
resourcestring
- 
 
 395 
  LNG_BOARD = 'Board: %s';
- 
 
 396 
  LNG_MODE = 'Mode: %s';
- 
 
 397 
  LNG_STONES_TOTAL = 'Stones: %d';
- 
 
 398 
  LNG_GOAL_AVAILABLE = 'Target field defined';
- 
 
 399 
  LNG_NO_GOAL = 'No target field';
- 
 
 400 
begin
- 
 
 401 
  if Level.GetGameMode = gmDiagonal then
- 
 
 402 
    mode := 'Diagonal'
- 
 
 403 
  else if Level.GetGameMode = gmNormal then
- 
 
 404 
    mode := 'Normal'
- 
 
 405 
  else
- 
 
 406 
    mode := '?';
- 
 
 407 
 
- 
 
 408 
  if GoalStatus = gsNoGoal then
- 
 
 409 
    goalYeSNo := LNG_NO_GOAL
- 
 
 410 
  else
- 
 
 411 
    goalYeSNo := LNG_GOAL_AVAILABLE;
- 
 
 412 
 
- 
 
 413 
  ShowMessage(Format(LNG_BOARD, [ExtractFileNameWithoutExt(LevelFile)]) + #13#10 +
- 
 
 414 
              #13#10 +
- 
 
 415 
              Format(LNG_MODE, [mode]) + #13#10 +
- 
 
 416 
              Format(LNG_STONES_TOTAL, [LevelTotalStones]) + #13#10 +
- 
 
 417 
              goalYesNo);
- 
 
 418 
end;
- 
 
 419 
 
387 
function TMainForm.AreJumpsPossible: boolean;
 420 
function TMainForm.AreJumpsPossible: boolean;
388 
var
 421 
var
389 
  i, j: integer;
 422 
  i, j: integer;
390 
begin
 423 
begin
391 
  result := false;
 424 
  result := false;
Line 849... Line 882...
849 
  begin
 882 
  begin
850 
    FinishForm.SaveSettings;
 883 
    FinishForm.SaveSettings;
851 
  end;
 884 
  end;
852 
end;
 885 
end;
853 
 
 886 
 
- 
 
 887 
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
- 
 
 888 
resourcestring
- 
 
 889 
  LNG_REALLY_QUIT = 'Do you really want to quit?';
- 
 
 890 
begin
- 
 
 891 
  CanClose := MessageDlg(LNG_REALLY_QUIT, mtConfirmation, mbYesNoCancel, 0) = mrYes;
- 
 
 892 
end;
- 
 
 893 
 
854 
procedure TMainForm.MHelpClick(Sender: TObject);
 894 
procedure TMainForm.MHelpClick(Sender: TObject);
855 
begin
 895 
begin
856 
  HelpForm.ShowModal;
 896 
  HelpForm.ShowModal;
857 
end;
 897 
end;
858 
 
 898