| 53,8 → 53,6 |
|---|
| Hilfe1: TMenuItem; |
| N3: TMenuItem; |
| AufUpdatesprfen1: TMenuItem; |
| N4: TMenuItem; |
| WasgibtesNeues1: TMenuItem; |
| procedure DXDrawFinalize(Sender: TObject); |
| procedure DXDrawInitialize(Sender: TObject); |
| procedure FormCreate(Sender: TObject); |
| 77,7 → 75,7 |
|---|
| var ScrollPos: Integer); |
| procedure AlleLeveldateienaktualisieren1Click(Sender: TObject); |
| procedure Leveltesten1Click(Sender: TObject); |
| procedure HilfeTopicClick(Sender: TObject); |
| procedure Hilfe1Click(Sender: TObject); |
| procedure AufUpdatesprfen1Click(Sender: TObject); |
| private |
| function GetTestlevelFilename: string; |
| 523,24 → 521,15 |
|---|
| result := IncludeTrailingPathDelimiter(TPath.GetTempPath) + 'SpaceMissionTest.sav'; |
| end; |
| |
| procedure TMainForm.HilfeTopicClick(Sender: TObject); |
| // Please keep this code in-sync with GamMain.pas |
| var |
| bakTimerEnabled: boolean; |
| procedure TMainForm.Hilfe1Click(Sender: TObject); |
| begin |
| bakTimerEnabled := dxtimer.Enabled; |
| try |
| dxtimer.Enabled := false; |
| HilfeForm.Caption := TMenuItem(Sender).Caption; |
| HilfeForm.Caption := StringReplace(HilfeForm.Caption, '&&', #1, [rfReplaceAll]); |
| HilfeForm.Caption := StringReplace(HilfeForm.Caption, '&', '', [rfReplaceAll]); |
| HilfeForm.Caption := StringReplace(HilfeForm.Caption, #1, '&', [rfReplaceAll]); |
| HilfeForm.ShowMarkDownHelp(OwnDirectory+TMenuItem(Sender).Hint); |
| HilfeForm.ShowMarkDownHelp(OwnDirectory+'Doku.md'); |
| HilfeForm.ShowModal; |
| finally |
| dxtimer.Enabled := bakTimerEnabled; |
| end; |
| end; |
| |
| procedure TMainForm.InformationenClick(Sender: TObject); |
| begin |