[459] | 1 | unit fOMVerify;
|
---|
| 2 |
|
---|
| 3 | interface
|
---|
| 4 |
|
---|
| 5 | uses
|
---|
| 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
---|
| 7 | fAutoSz, StdCtrls, ComCtrls;
|
---|
| 8 |
|
---|
| 9 | type
|
---|
| 10 | TfrmOMVerify = class(TfrmAutoSz)
|
---|
| 11 | cmdAccept: TButton;
|
---|
| 12 | cmdEdit: TButton;
|
---|
| 13 | cmdCancel: TButton;
|
---|
| 14 | memText: TRichEdit;
|
---|
| 15 | procedure cmdAcceptClick(Sender: TObject);
|
---|
| 16 | procedure cmdEditClick(Sender: TObject);
|
---|
| 17 | procedure cmdCancelClick(Sender: TObject);
|
---|
| 18 | procedure FormCreate(Sender: TObject);
|
---|
| 19 | procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
---|
| 20 | procedure memTextKeyUp(Sender: TObject; var Key: Word;
|
---|
| 21 | Shift: TShiftState);
|
---|
| 22 | private
|
---|
| 23 | FLevel: Integer;
|
---|
| 24 | end;
|
---|
| 25 |
|
---|
| 26 | procedure ShowVerifyText(var QuickLevel: Integer; var VerifyText: string; InptDispGrp: boolean = False);
|
---|
| 27 |
|
---|
| 28 | implementation
|
---|
| 29 |
|
---|
| 30 | {$R *.DFM}
|
---|
| 31 |
|
---|
| 32 | uses ORFn, uConst, fFrame, rMisc;
|
---|
| 33 |
|
---|
| 34 | procedure ShowVerifyText(var QuickLevel: Integer; var VerifyText: string; InptDispGrp: boolean);
|
---|
| 35 | var
|
---|
| 36 | frmOMVerify: TfrmOMVerify;
|
---|
| 37 | tempStrs,prompts: TStringList;
|
---|
| 38 | flag: boolean;
|
---|
| 39 |
|
---|
| 40 | function CutoffOutptPrompts(const promptIDs: TStringList; var promptList: TStringList): boolean;
|
---|
| 41 | var
|
---|
| 42 | i,j: integer;
|
---|
| 43 | begin
|
---|
| 44 | result := False;
|
---|
| 45 | for i := 0 to promptList.Count - 1 do
|
---|
| 46 | begin
|
---|
| 47 | if result = True then
|
---|
| 48 | break;
|
---|
| 49 | for j := 0 to promptIDs.Count - 1 do
|
---|
| 50 | begin
|
---|
| 51 | if Pos(promptIDs[j],LowerCase(promptList[i]))>0 then
|
---|
| 52 | begin
|
---|
| 53 | promptList.Delete(i);
|
---|
| 54 | result := True;
|
---|
| 55 | break;
|
---|
| 56 | end;
|
---|
| 57 | end;
|
---|
| 58 | end;
|
---|
| 59 | end;
|
---|
| 60 |
|
---|
| 61 | begin
|
---|
| 62 | prompts := TStringList.Create;
|
---|
| 63 | prompts.Add('supply');
|
---|
| 64 | prompts.Add('quantity');
|
---|
| 65 | prompts.Add('refill');
|
---|
| 66 | prompts.Add('pick up');
|
---|
| 67 | prompts.Add('priority');
|
---|
| 68 | frmOMVerify := TfrmOMVerify.Create(Application);
|
---|
| 69 | try
|
---|
| 70 | ResizeFormToFont(TForm(frmOMVerify));
|
---|
| 71 | if InptDispGrp then
|
---|
| 72 | begin
|
---|
| 73 | tempStrs := TStringList.Create;
|
---|
| 74 | TStrings(tempStrs).SetText(PChar(VerifyText));
|
---|
| 75 | repeat
|
---|
| 76 | flag := CutoffOutptPrompts(prompts, tempStrs);
|
---|
| 77 | until not flag;
|
---|
| 78 | SetString(VerifyText, tempStrs.GetText, StrLen(tempStrs.GetText))
|
---|
| 79 | end;
|
---|
| 80 |
|
---|
| 81 | with frmOMVerify do
|
---|
| 82 | begin
|
---|
| 83 | SetBounds(frmFrame.Left, frmFrame.Top + frmFrame.Height - Height, Width, Height);
|
---|
| 84 | SetFormPosition(frmOMVerify);
|
---|
| 85 | memText.Lines.SetText(PChar(VerifyText));
|
---|
| 86 | ShowModal;
|
---|
| 87 | QuickLevel := FLevel;
|
---|
| 88 | end;
|
---|
| 89 | finally
|
---|
| 90 | frmOMVerify.Release;
|
---|
| 91 | end;
|
---|
| 92 | end;
|
---|
| 93 |
|
---|
| 94 |
|
---|
| 95 | procedure TfrmOMVerify.FormCreate(Sender: TObject);
|
---|
| 96 | begin
|
---|
| 97 | inherited;
|
---|
| 98 | FLevel := QL_CANCEL;
|
---|
| 99 | end;
|
---|
| 100 |
|
---|
| 101 | procedure TfrmOMVerify.cmdAcceptClick(Sender: TObject);
|
---|
| 102 | begin
|
---|
| 103 | inherited;
|
---|
| 104 | FLevel := QL_AUTO;
|
---|
| 105 | Close;
|
---|
| 106 | end;
|
---|
| 107 |
|
---|
| 108 | procedure TfrmOMVerify.cmdEditClick(Sender: TObject);
|
---|
| 109 | begin
|
---|
| 110 | inherited;
|
---|
| 111 | FLevel := QL_DIALOG;
|
---|
| 112 | Close;
|
---|
| 113 | end;
|
---|
| 114 |
|
---|
| 115 | procedure TfrmOMVerify.cmdCancelClick(Sender: TObject);
|
---|
| 116 | begin
|
---|
| 117 | inherited;
|
---|
| 118 | FLevel := QL_CANCEL;
|
---|
| 119 | Close;
|
---|
| 120 | end;
|
---|
| 121 |
|
---|
| 122 | procedure TfrmOMVerify.FormClose(Sender: TObject;
|
---|
| 123 | var Action: TCloseAction);
|
---|
| 124 | begin
|
---|
| 125 | inherited;
|
---|
| 126 | SaveUserBounds(Self);
|
---|
| 127 | end;
|
---|
| 128 |
|
---|
| 129 | procedure TfrmOMVerify.memTextKeyUp(Sender: TObject; var Key: Word;
|
---|
| 130 | Shift: TShiftState);
|
---|
| 131 | begin
|
---|
| 132 | inherited;
|
---|
| 133 | if (Key = VK_TAB) then
|
---|
| 134 | begin
|
---|
| 135 | if ssShift in Shift then
|
---|
| 136 | begin
|
---|
| 137 | FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control
|
---|
| 138 | Key := 0;
|
---|
| 139 | end
|
---|
| 140 | else if ssCtrl in Shift then
|
---|
| 141 | begin
|
---|
| 142 | FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control
|
---|
| 143 | Key := 0;
|
---|
| 144 | end;
|
---|
| 145 | end;
|
---|
| 146 | if (key = VK_ESCAPE) then begin
|
---|
| 147 | FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control
|
---|
| 148 | key := 0;
|
---|
| 149 | end;
|
---|
| 150 | end;
|
---|
| 151 |
|
---|
| 152 | end.
|
---|