207 |
AlarmLyd : String; |
AlarmLyd : String; |
208 |
ScannetOkLyd : String; |
ScannetOkLyd : String; |
209 |
ScannetOkStorLyd : String; |
ScannetOkStorLyd : String; |
210 |
// 20150317: start |
|
211 |
ScannetOkTilTjekkodeLyd : String; |
ScannetOkTilTjekkodeLyd : String; |
212 |
// 20150317: slut |
|
213 |
PrinterNavn : String; |
PrinterNavn : String; |
214 |
TjekPrinter : String; |
TjekPrinter : String; |
215 |
XPosRute : integer; |
XPosRute : integer; |
498 |
|
|
499 |
procedure TMainForm.Automatiskvalg1Click(Sender: TObject); |
procedure TMainForm.Automatiskvalg1Click(Sender: TObject); |
500 |
begin |
begin |
|
// 20150317: start |
|
|
(* |
|
|
if Automatiskvalg1.Checked then |
|
|
begin |
|
|
AutomatiskValg1.Checked := true; |
|
|
PanelValgA.Color := clGreen; |
|
|
PanelValgA.Font.Color := clWhite; |
|
|
end |
|
|
else |
|
|
begin |
|
|
AutomatiskValg1.Checked := false; |
|
|
PanelValgA.Color := clBtnFace; |
|
|
PanelValgA.Font.Color := clWindowText; |
|
|
end; |
|
|
*) |
|
501 |
// Skal ikke toggle men bare sætte funktionen on |
// Skal ikke toggle men bare sætte funktionen on |
502 |
// Fravælges ved at vælge en scanningstype |
// Fravælges ved at vælge en scanningstype |
503 |
AutomatiskValg1.Checked := true; |
AutomatiskValg1.Checked := true; |
504 |
PanelValgA.Color := clGreen; |
PanelValgA.Color := clGreen; |
505 |
PanelValgA.Font.Color := clWhite; |
PanelValgA.Font.Color := clWhite; |
|
// 20150317: slut |
|
506 |
end; |
end; |
507 |
|
|
508 |
procedure TMainForm.FormCreate(Sender: TObject); |
procedure TMainForm.FormCreate(Sender: TObject); |
774 |
// Hvis specialversion er valgt (SpecialVersionSted er sat til en værdi ovenfor) |
// Hvis specialversion er valgt (SpecialVersionSted er sat til en værdi ovenfor) |
775 |
// ændrer vi Sted og Scanningtype her: |
// ændrer vi Sted og Scanningtype her: |
776 |
|
|
|
// 20150313: start |
|
777 |
if SpecialVersionSted = 'NS' then |
if SpecialVersionSted = 'NS' then |
778 |
begin |
begin |
779 |
SpecialVersionSted := '01'; |
SpecialVersionSted := '01'; |
784 |
SpecialVersionSted := '03'; |
SpecialVersionSted := '03'; |
785 |
SpecialVersionScanningtype := '4'; |
SpecialVersionScanningtype := '4'; |
786 |
end; |
end; |
|
// 20150313: slut |
|
787 |
|
|
788 |
if SpecialVersionSted = 'BK' then |
if SpecialVersionSted = 'BK' then |
789 |
begin |
begin |