unit dcDebug;

interface

uses
  Dialogs;
  
procedure SendDebugEx(const Msg: String; MType:TMsgDlgType);
procedure SendDebug(const Msg: String);

implementation

uses
  {$IFDEF DebugView}MainForm,{$ENDIF}
   SysUtils, Forms, StatusForm;

{ SendDebug }

procedure SendDebugEx(const Msg: String; MType:TMsgDlgType);
begin
  if MType = mtError then
  begin
    SendDebug('***************' + Msg);
    raise Exception.Create('Error debug string: ' + Msg);
  end
  else
    SendDebug(Msg);
end;

procedure SendDebug(const Msg: String);
begin
  if StatusFrm <> nil then
    with StatusFrm.lvDebug.Items.Add do
    begin
      Caption := Msg;
      SubItems.Text := TimeToStr(Time);
    end;
end;

end.