Subversion Repositories spacemission

Rev

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

Rev 1 Rev 2
Line 30... Line 30...
30 
var
 30 
var
31 
  CheatForm: TCheatForm;
 31 
  CheatForm: TCheatForm;
32 
 
 32 
 
33 
implementation
 33 
implementation
34 
 
 34 
 
35 
uses SplMain, SplInfo;
 35 
uses SplMain, Global;
36 
 
 36 
 
37 
{$R *.DFM}
 37 
{$R *.DFM}
38 
 
 38 
 
39 
const
 39 
const
40 
  // Cheat1 = 'Kmkjk'+#39+'Khyc'; {Johnny Cash}
 40 
  // Cheat1 = 'Kmkjk'+#39+'Khyc'; {Johnny Cash}
41 
  Cheat1 = #75+#109+#107+#106+#107+#127+#39+#75+#104+#121+#99;
 41 
  Cheat1 = #75+#109+#107+#106+#107+#127+#39+#75+#104+#121+#99;
42 
  Cheat1Text = 'Unendlich Leben!';
 42 
  Cheat1Text = 'Unendlich Leben!';
43 
 
 43 
 
44 
procedure TCheatForm.AbbBtnClick(Sender: TObject);
 44 
procedure TCheatForm.AbbBtnClick(Sender: TObject);
45 
begin
 45 
begin
46 
  close;  
 46 
  close;
47 
end;
 47 
end;
48 
 
 48 
 
49 
procedure TCheatForm.SearchCheats;
 49 
procedure TCheatForm.SearchCheats;
50 
begin
 50 
begin
51 
  Cheatbox.Items.Clear;
 51 
  Cheatbox.Items.Clear;
Line 123... Line 123...
123 
  end;
 123 
  end;
124 
end;
 124 
end;
125 
 
 125 
 
126 
procedure TCheatForm.Label3Click(Sender: TObject);
 126 
procedure TCheatForm.Label3Click(Sender: TObject);
127 
begin
 127 
begin
128 
  shellexecute(handle, 'open', pchar('mailto:daniel.marschall@surfeu.de?subject=Cheats für SpaceMission '+MainForm.FEngineVersion), '', '', 1);
 128 
  shellexecute(handle, 'open', pchar('mailto:daniel-marschall@viathinksoft.de?subject=Cheats für SpaceMission '+ProgramVersion), '', '', 1);
129 
end;
 129 
end;
130 
 
 130 
 
131 
end.
 131 
end.
132 
 
 132