Subversion Repositories spacemission

Rev

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

Rev 63 Rev 64
Line 51... Line 51...
51 
    N2: TMenuItem;
 51 
    N2: TMenuItem;
52 
    Leveltesten1: TMenuItem;
 52 
    Leveltesten1: TMenuItem;
53 
    Hilfe1: TMenuItem;
 53 
    Hilfe1: TMenuItem;
54 
    N3: TMenuItem;
 54 
    N3: TMenuItem;
55 
    AufUpdatesprfen1: TMenuItem;
 55 
    AufUpdatesprfen1: TMenuItem;
- 
 
 56 
    N4: TMenuItem;
- 
 
 57 
    WasgibtesNeues1: TMenuItem;
56 
    procedure DXDrawFinalize(Sender: TObject);
 58 
    procedure DXDrawFinalize(Sender: TObject);
57 
    procedure DXDrawInitialize(Sender: TObject);
 59 
    procedure DXDrawInitialize(Sender: TObject);
58 
    procedure FormCreate(Sender: TObject);
 60 
    procedure FormCreate(Sender: TObject);
59 
    procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
 61 
    procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
60 
    procedure BeendenClick(Sender: TObject);
 62 
    procedure BeendenClick(Sender: TObject);
Line 73... Line 75...
73 
    procedure Spielfelderweitern1Click(Sender: TObject);
 75 
    procedure Spielfelderweitern1Click(Sender: TObject);
74 
    procedure ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode;
 76 
    procedure ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode;
75 
      var ScrollPos: Integer);
 77 
      var ScrollPos: Integer);
76 
    procedure AlleLeveldateienaktualisieren1Click(Sender: TObject);
 78 
    procedure AlleLeveldateienaktualisieren1Click(Sender: TObject);
77 
    procedure Leveltesten1Click(Sender: TObject);
 79 
    procedure Leveltesten1Click(Sender: TObject);
78 
    procedure Hilfe1Click(Sender: TObject);
 80 
    procedure HilfeTopicClick(Sender: TObject);
79 
    procedure AufUpdatesprfen1Click(Sender: TObject);
 81 
    procedure AufUpdatesprfen1Click(Sender: TObject);
80 
  private
 82 
  private
81 
    function GetTestlevelFilename: string;
 83 
    function GetTestlevelFilename: string;
82 
  public
 84 
  public
83 
    { VCL-Ersatz }
 85 
    { VCL-Ersatz }
Line 519... Line 521...
519 
function TMainForm.GetTestlevelFilename: string;
 521 
function TMainForm.GetTestlevelFilename: string;
520 
begin
 522 
begin
521 
  result := IncludeTrailingPathDelimiter(TPath.GetTempPath) + 'SpaceMissionTest.sav';
 523 
  result := IncludeTrailingPathDelimiter(TPath.GetTempPath) + 'SpaceMissionTest.sav';
522 
end;
 524 
end;
523 
 
 525 
 
524 
procedure TMainForm.Hilfe1Click(Sender: TObject);
 526 
procedure TMainForm.HilfeTopicClick(Sender: TObject);
- 
 
 527 
// Please keep this code in-sync with GamMain.pas
- 
 
 528 
var
- 
 
 529 
  bakTimerEnabled: boolean;
525 
begin
 530 
begin
- 
 
 531 
  bakTimerEnabled := dxtimer.Enabled;
- 
 
 532 
  try
- 
 
 533 
    dxtimer.Enabled := false;
526 
  HilfeForm.Caption := TMenuItem(Sender).Caption;
 534 
    HilfeForm.Caption := TMenuItem(Sender).Caption;
527 
  HilfeForm.Caption := StringReplace(HilfeForm.Caption, '&&', #1, [rfReplaceAll]);
 535 
    HilfeForm.Caption := StringReplace(HilfeForm.Caption, '&&', #1, [rfReplaceAll]);
528 
  HilfeForm.Caption := StringReplace(HilfeForm.Caption, '&', '', [rfReplaceAll]);
 536 
    HilfeForm.Caption := StringReplace(HilfeForm.Caption, '&', '', [rfReplaceAll]);
529 
  HilfeForm.Caption := StringReplace(HilfeForm.Caption, #1, '&', [rfReplaceAll]);
 537 
    HilfeForm.Caption := StringReplace(HilfeForm.Caption, #1, '&', [rfReplaceAll]);
530 
  HilfeForm.ShowMarkDownHelp(OwnDirectory+'Doku.md');
 538 
    HilfeForm.ShowMarkDownHelp(OwnDirectory+TMenuItem(Sender).Hint);
531 
  HilfeForm.ShowModal;
 539 
    HilfeForm.ShowModal;
- 
 
 540 
  finally
- 
 
 541 
    dxtimer.Enabled := bakTimerEnabled;
- 
 
 542 
  end;
532 
end;
 543 
end;
533 
 
 544 
 
534 
procedure TMainForm.InformationenClick(Sender: TObject);
 545 
procedure TMainForm.InformationenClick(Sender: TObject);
535 
begin
 546 
begin
536 
  mainform.dxtimer.enabled := false;
 547 
  mainform.dxtimer.enabled := false;