3244 |
|
|
3245 |
procedure TMainForm.PanelValgAClick(Sender: TObject); |
procedure TMainForm.PanelValgAClick(Sender: TObject); |
3246 |
begin |
begin |
|
// 20150311: start |
|
|
(* |
|
|
if PanelValgA.Color = clBtnFace 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; |
|
|
*) |
|
3247 |
// Skal ikke toggle men bare sætte funktionen on |
// Skal ikke toggle men bare sætte funktionen on |
3248 |
// Fravælges ved at vælge en scanningstype |
// Fravælges ved at vælge en scanningstype |
3249 |
AutomatiskValg1.Checked := true; |
AutomatiskValg1.Checked := true; |
3250 |
PanelValgA.Color := clGreen; |
PanelValgA.Color := clGreen; |
3251 |
PanelValgA.Font.Color := clWhite; |
PanelValgA.Font.Color := clWhite; |
3252 |
// 20150311: slut |
|
3253 |
|
|
3254 |
|
|
3255 |
end; |
end; |
3256 |
|
|
3257 |
procedure TMainForm.Pakkernormal1Click(Sender: TObject); |
procedure TMainForm.Pakkernormal1Click(Sender: TObject); |