Subversion Repositories jumper

Rev

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

Rev 8 Rev 9
Line 118... Line 118...
118 
 
 118 
 
119 
procedure ShowErrorMessage(error: TLevelError);
 119 
procedure ShowErrorMessage(error: TLevelError);
120 
begin
 120 
begin
121 
  case error of
 121 
  case error of
122 
    leNone: ;
 122 
    leNone: ;
123 
    leInvalidElement: ShowMessage(LNG_LVL_INVALID_ELEMENT);
 123 
    leInvalidElement: MessageDlg(LNG_LVL_INVALID_ELEMENT, mtError, [mbOk], 0);
124 
    leNoIndicator: ShowMessage(LNG_LVL_INVALID_WIDTH);
 124 
    leNoIndicator: MessageDlg(LNG_LVL_INVALID_WIDTH, mtError, [mbOk], 0);
125 
    leMultipleIndicator: ShowMessage(LNG_LVL_INVALID_MULTIPLE_WIND);
 125 
    leMultipleIndicator: MessageDlg(LNG_LVL_INVALID_MULTIPLE_WIND, mtError, [mbOk], 0);
126 
    leLevelIncomplete: ShowMessage(LNG_LVL_INVALID_HEIGHT_MUTLIPLE);
 126 
    leLevelIncomplete: MessageDlg(LNG_LVL_INVALID_HEIGHT_MUTLIPLE, mtError, [mbOk], 0);
127 
    leHeaderError: ShowMessage(LNG_LVL_INVALID_HEADER);
 127 
    leHeaderError: MessageDlg(LNG_LVL_INVALID_HEADER, mtError, [mbOk], 0);
128 
    leInvalidGoal: ShowMessage(LNG_INVALID_GOAL);
 128 
    leInvalidGoal: MessageDlg(LNG_INVALID_GOAL, mtError, [mbOk], 0);
129 
  end;
 129 
  end;
130 
end;
 130 
end;
131 
 
 131 
 
132 
function CheckLevelIntegrity(LevelString: string; ShowErrors: boolean): TLevelError;
 132 
function CheckLevelIntegrity(LevelString: string; ShowErrors: boolean): TLevelError;
133 
begin
 133 
begin