source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODMessage.pas@ 611

//kt -- Modified with SourceScanner on 8/8/2007
unit fODMessage;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls, DKLang;

type
  TfrmODMessage = class(TForm)
    memMessage: TRichEdit;
    imgMessage: TImage;
    DKLanguageController1: TDKLanguageController;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure ShowOrderMessage(Sender: TForm; const AMsg: string);
procedure HideOrderMessage;

implementation

{$R *.DFM}

uses ORFn;

var
  frmODMessage: TfrmODMessage;

procedure ShowOrderMessage(Sender: TForm; const AMsg: string);
begin
  frmODMessage := TfrmODMessage.Create(Application);
  ResizeFormToFont(TForm(frmODMessage));
  with frmODMessage do
  begin
    memMessage.Text := AMsg;
    SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE);
    Show;
    Sender.SetFocus;
  end;
end;

procedure HideOrderMessage;
begin
  if frmODMessage <> nil then frmODMessage.Release;
end;

procedure TfrmODMessage.FormDestroy(Sender: TObject);
begin
  frmODMessage := nil;
end;

procedure TfrmODMessage.FormCreate(Sender: TObject);
begin
  imgMessage.Picture.Icon.Handle := LoadIcon(0, IDI_ASTERISK);
end;

end.