JPL.Win.Dialogs.pas

unit JPL.Win.Dialogs;

interface

{$IFDEF MSWINDOWS}

{$I .\..\jp.inc}
{$IFDEF FPC}{$mode delphi}{$H+}{$ENDIF}

uses
  Windows;

{
  Information = Asterisks
  Warning = Exclamation
  Error = Hand = Stop
}

function WinMsg(const Text, Caption: string; Handle: HWND = 0; MBType: DWORD = MB_OK or MB_ICONINFORMATION): integer;
procedure MB(const Text: string; Caption: string = 'Information'; Handle: HWND = 0);

procedure WinMsgInfo(Text: string; Caption: string = 'Information'; Handle: HWND = 0);
procedure WinMsgWarning(Text: string; Caption: string = 'Warning'; Handle: HWND = 0);
procedure WinMsgError(Text: string; Caption: string = 'Error'; Handle: HWND = 0);
function WinMsgQuery(const Text, Caption: string; Handle: HWND = 0; MBType: DWORD = MB_YESNO): integer;



{$ENDIF} // MSWINDOWS


implementation


{$IFDEF MSWINDOWS}

function WinMsg(const Text, Caption: string; Handle: HWND = 0; MBType: DWORD = MB_OK or MB_ICONINFORMATION): integer;
begin
  {$IFDEF FPC}
  // NOTE: Dlaczego w FPC bez takich kombinacji (PWideChar + UnicodeString) pojawiają się tutaj "krzaki"?
  Result := MessageBoxW(Handle, PWideChar(UnicodeString(Text)), PWideChar(UnicodeString(Caption)), MBType);
  {$ELSE}
  Result := MessageBox(Handle, PChar(Text), PChar(Caption), MBType);
  {$ENDIF}
end;

procedure MB(const Text: string; Caption: string = 'Information'; Handle: HWND = 0);
begin
  WinMsgInfo(Text, Caption, Handle);
end;

procedure WinMsgInfo(Text: string; Caption: string = 'Information'; Handle: HWND = 0);
begin
  WinMsg(Text, Caption, Handle, MB_OK or MB_ICONINFORMATION);
end;

procedure WinMsgWarning(Text: string; Caption: string = 'Warning'; Handle: HWND = 0);
begin
  WinMsg(Text, Caption, Handle, MB_OK or MB_ICONWARNING);
end;

procedure WinMsgError(Text: string; Caption: string = 'Error'; Handle: HWND = 0);
begin
  WinMsg(Text, Caption, Handle, MB_OK or MB_ICONERROR);
end;

function WinMsgQuery(const Text, Caption: string; Handle: HWND = 0; MBType: DWORD = MB_YESNO): integer;
begin
  Result := MessageBox(Handle, PChar(Text), PChar(Caption), MBType or MB_ICONQUESTION);
end;

{$ENDIF} // MSWINDOWS

end.