Commit 1a5d0980 by Mac Stephens

Message box on orders form will now disappear when requirements are met after a…

Message box on orders form will now disappear when requirements are met after a failure, increased size of message box on show status modal to fit messages, deployed this version, still 0.9.4
parent 956385b8
...@@ -176,7 +176,12 @@ end; ...@@ -176,7 +176,12 @@ end;
procedure TFViewOrders.WebButton1Click(Sender: TObject); procedure TFViewOrders.WebButton1Click(Sender: TObject);
begin begin
if OrderID <> '' then if OrderID <> '' then
ShowSetStatusForm() begin
if not pnlMessage.ElementHandle.hidden then
HideNotification;
ShowSetStatusForm;
end
else else
ShowNotification('Failure:Please select an order'); ShowNotification('Failure:Please select an order');
end; end;
......
...@@ -262,7 +262,7 @@ object FSetStatus: TFSetStatus ...@@ -262,7 +262,7 @@ object FSetStatus: TFSetStatus
object edtNotification: TWebEdit object edtNotification: TWebEdit
Left = 14 Left = 14
Top = 24 Top = 24
Width = 303 Width = 457
Height = 22 Height = 22
HelpType = htKeyword HelpType = htKeyword
TabStop = False TabStop = False
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
MemoLogLevel=3 MemoLogLevel=3
FileLogLevel=5 FileLogLevel=5
webClientVersion=0.9.4 webClientVersion=0.9.4
LogFileNum=626 LogFileNum=628
[Database] [Database]
--Server=192.168.159.131 --Server=192.168.159.131
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment