atviewermsg.pas

支持版本:Delphi 5-2009, C++Builder 5-2009 ATViewer特性： Text, Binary, Hex, Unicode：所有文件

unit ATViewerMsg;

interface

uses
  Windows;

function MsgBox(const Msg, Title: WideString; Flags: Integer; hWnd: THandle = 0): Integer;
procedure MsgInfo(const Msg: WideString; hWnd: THandle = 0);
procedure MsgError(const Msg: WideString; hWnd: THandle = 0);
procedure MsgWarning(const Msg: WideString; hWnd: THandle = 0);

var
  ATViewerMessagesEnabled: Boolean = True;

var
  MsgViewerCaption: AnsiString = 'Viewer';
  MsgViewerErrCannotFindFile: AnsiString = 'File not found: "%s"';
  MsgViewerErrCannotFindFolder: AnsiString = 'Folder not found: "%s"';
  MsgViewerErrCannotOpenFile: AnsiString = 'Cannot open file: "%s"';
  MsgViewerErrCannotLoadFile: AnsiString = 'Cannot load file: "%s"';
  MsgViewerErrCannotReadFile: AnsiString = 'Cannot read file: "%s"';
  MsgViewerErrCannotReadStream: AnsiString = 'Cannot read stream';
  MsgViewerErrCannotReadPos: AnsiString = 'Read error at offset %s';
  MsgViewerErrImage: AnsiString = 'Unknown image format';
  MsgViewerErrMedia: AnsiString = 'Unknown multimedia format';
  MsgViewerErrInitControl: AnsiString = 'Cannot initialize %s';
  MsgViewerErrCannotCopyData: AnsiString = 'Cannot copy data to Clipboard';
  MsgViewerWlxException: AnsiString = 'Exception in plugin "%s" in function "%s"';
  MsgViewerWlxParentNotSpecified: AnsiString = 'Cannot load plugins: parent form not specified';
  MsgViewerAniTitle: AnsiString = 'Title: ';
  MsgViewerAniCreator: AnsiString = 'Creator: ';

implementation

uses
  SysUtils, Forms;

function MsgBox(const Msg, Title: WideString; Flags: Integer; hWnd: THandle = 0): Integer;
begin
  if not ATViewerMessagesEnabled then
  begin
    Result := IDCANCEL;
    Exit
  end;

  { //MB_TASKMODAL replaces it:
  if hWnd = 0 then
    if Assigned(Application) then
    begin
      if Assigned(Application.MainForm) then
        hWnd := Application.MainForm.Handle
      else
        hWnd := Application.Handle;
    end;
    }

  //MessageBoxW supported under Win9x
  Result := MessageBoxW(hWnd, PWideChar(Msg), PWideChar(Title), Flags or MB_SETFOREGROUND or MB_TASKMODAL);
end;

procedure MsgInfo(const Msg: WideString; hWnd: THandle = 0);
begin
  MsgBox(Msg, MsgViewerCaption, MB_OK or MB_ICONINFORMATION, hWnd);
end;

procedure MsgError(const Msg: WideString; hWnd: THandle = 0);
begin
  MsgBox(Msg, MsgViewerCaption, MB_OK or MB_ICONERROR, hWnd);
end;

procedure MsgWarning(const Msg: WideString; hWnd: THandle = 0);
begin
  MsgBox(Msg, MsgViewerCaption, MB_OK or MB_ICONEXCLAMATION, hWnd);
end;

end.