Subversion Repositories spacemission

Rev

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

Rev 6 Rev 28
Line 111... Line 111...
111 
begin
 111 
begin
112 
  if not CheatBox.items.IndexOf(Cheat1Text) = -1 then
 112 
  if not CheatBox.items.IndexOf(Cheat1Text) = -1 then
113 
  begin
 113 
  begin
114 
    if CheatBox.Selected[CheatBox.items.IndexOf(Cheat1Text)] then
 114 
    if CheatBox.Selected[CheatBox.items.IndexOf(Cheat1Text)] then
115 
    begin
 115 
    begin
116 
      if MessageDlg('Diesen Cheat wirklich deaktivieren?',
 116 
      if MessageDlg('Diesen Cheat wirklich deaktivieren?', mtConfirmation, mbYesNoCancel, 0) = mrYes then
117 
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
 - 
 
118 
      begin
 117 
      begin
119 
        mainform.FCheat := false;
 118 
        mainform.FCheat := false;
120 
        showmessage('Dieser Cheat wurde deakiviert!');
 119 
        showmessage('Dieser Cheat wurde deakiviert!');
121 
        SearchCheats;
 120 
        SearchCheats;
122 
      end;
 121 
      end;