Subversion Repositories plumbers

Rev

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

Rev 14 Rev 18
Line 18... Line 18...
18 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 18 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
19 
  Dialogs, StdCtrls, Spin, Grids, GameBinStruct, ComCtrls, ExtCtrls, MPlayer,
 19 
  Dialogs, StdCtrls, Spin, Grids, GameBinStruct, ComCtrls, ExtCtrls, MPlayer,
20 
  Menus;
 20 
  Menus;
21 
 
 21 
 
22 
const
 22 
const
23 
  CUR_VER = '2017-10-08';
 23 
  CUR_VER = '2020-06-08';
24 
 
 24 
 
25 
type
 25 
type
26 
  TForm1 = class(TForm)
 26 
  TForm1 = class(TForm)
27 
    ListBox1: TListBox;
 27 
    ListBox1: TListBox;
28 
    Button1: TButton;
 28 
    Button1: TButton;
Line 409... Line 409...
409 
    PageControl2.Pages[1].TabVisible := true;
 409 
    PageControl2.Pages[1].TabVisible := true;
410 
  end;
 410 
  end;
411 
end;
 411 
end;
412 
 
 412 
 
413 
procedure TForm1.Button14Click(Sender: TObject);
 413 
procedure TForm1.Button14Click(Sender: TObject);
- 
 
 414 
resourcestring
- 
 
 415 
  S_DISCARD = 'Are you sure you want to discard all changes and create a new game file?';
- 
 
 416 
begin
- 
 
 417 
  if MessageDlg(S_DISCARD, mtConfirmation, mbYesNoCancel, 0) = mrYes then
414 
begin
 418 
  begin
415 
  New;
 419 
    New;
416 
end;
 420 
  end;
- 
 
 421 
end;
417 
 
 422 
 
418 
procedure TForm1.DisableEnableSceneControls(enable: boolean);
 423 
procedure TForm1.DisableEnableSceneControls(enable: boolean);
419 
begin
 424 
begin
420 
  ListBox1.Enabled := enable;
 425 
  ListBox1.Enabled := enable;
421 
  Button1.Enabled := enable;
 426 
  Button1.Enabled := enable;