source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fOrderUnflag.pas@ 1723

unit fOrderUnflag;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, ORCtrls, VA508AccessibilityManager;

type
  TfrmUnflagOrder = class(TfrmAutoSz)
    txtComment: TCaptionEdit;
    Label1: TLabel;
    cmdOK: TButton;
    cmdCancel: TButton;
    memReason: TMemo;
    memOrder: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure cmdOKClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
  private
    OKPressed: Boolean;
  end;

function ExecuteUnflagOrder(AnOrder: TOrder): Boolean;

implementation

{$R *.DFM}

function ExecuteUnflagOrder(AnOrder: TOrder): Boolean;
var
  frmUnflagOrder: TfrmUnflagOrder;
begin
  Result := False;
  frmUnflagOrder := TfrmUnflagOrder.Create(Application);
  try
    ResizeFormToFont(TForm(frmUnflagOrder));
    with frmUnflagOrder do
    begin
      memOrder.SetTextBuf(PChar(AnOrder.Text));
      LoadFlagReason(memReason.Lines, AnOrder.ID);
      ShowModal;
      if OKPressed then
      begin
        UnflagOrder(AnOrder, txtComment.Text);
        Result := True;
      end;
    end;
  finally
    frmUnflagOrder.Release;
  end;
end;

procedure TfrmUnflagOrder.FormCreate(Sender: TObject);
begin
  inherited;
  OKPressed := False;
end;

procedure TfrmUnflagOrder.cmdOKClick(Sender: TObject);
begin
  inherited;
  OKPressed := True;
  Close;
end;

procedure TfrmUnflagOrder.cmdCancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;


end.