Посмотрели макет.
Вот код макета.
Кто-нибудь, пожалуйста, может подсказать, где описано действие изменения статуса блюда, при нажатии на экран КДСа?
Код:
procedure CountsMemoOnAfterPrint(Sender: TfrxComponent);
begin
//PressF1(CountsMemo.Text);
end;
procedure ClrPanelOnBeforePrint(Sender: TfrxComponent);
begin
if ((<OrdDataSet."isOpacity">)OR(<OrderDetail."isOpacity">)) then begin
if (<OrderDetail."ReadyFlag">) or ((<OrderDetail."LTakeOut">>0)) then begin
if (<OrderDetail."LTakeOut">>0) then
ClrPanel.Color:=$00D0AA86
else
ClrPanel.Color:=$00DF8AC6;
end else begin
if (<OrderDetail."PrepareFlag">) then begin
ClrPanel.Color:=$0000DDDD;
end else begin
ClrPanel.Color:=clSilver;
end;
end;
end else begin
if (<OrderDetail."ReadyFlag">) or ((<OrderDetail."LTakeOut">>0)) then begin
if (<OrderDetail."LTakeOut">>0) then
ClrPanel.Color:=clSkyBlue
else
ClrPanel.Color:=$00FFAAE6;
end else begin
if (<OrderDetail."PrepareFlag">) then begin
ClrPanel.Color:=clYellow;
end else begin
ClrPanel.Color:=clWhite;
end;
end;
end;
end;
procedure ColorStretchOnBeforePrint(Sender: TfrxComponent);
begin
ColorStretch.Color:=RowNumber.Color;
end;
procedure ColorPanelOnBeforePrint(Sender: TfrxComponent);
begin
ColorPanel.color:=clrpanel.color;
end;
procedure RowNumberOnBeforePrint(Sender: TfrxComponent);
var i: integer;
newSize: Integer;
begin
i:=Length(Trim(<OrderDetail."LINENUM">));
newSize:=14;
if i>4 then begin
newSize:=7
end else if i>3 then begin
newSize:=8
end else if i>2 then begin
if (Trim(<OrderDetail."LINENUM">)[1]='.') then begin
newSize:=12;
end else begin
newSize:=11;
end;
end;
rowNumber.Font.size:=newSize;
end;
procedure OnStartReport(Sender: TfrxComponent);
begin
PageFooter1.height:=66.14+20*<LogCount>+1;
Memo3.top:=20*<LogCount>+1;
countsmemo.top:=36+20*<LogCount>+1;
memo1.top:=20*<LogCount>+1;
memo8.top:=20*<LogCount>+1;
memo9.top:=20*<LogCount>+1;
memo4.top:=20*<LogCount>+1;
memo5.top:=20*<LogCount>+1;
MemoUndo.top:=20*<LogCount>+1;
LogMemo.Top:=0;
LogMemo.Height:=20*<LogCount>;
if <CancelAllowed>=1 then begin
MemoUndo.Visible:=True;
end else begin
MemoUndo.Visible:=False;
end
end;
begin
end.