Index: ProScan/UI/DrieKnoppenScherm.pas =================================================================== diff -u -r404 -r501 --- ProScan/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 404) +++ ProScan/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 501) @@ -45,6 +45,7 @@ procedure imgRechtsOnderClick(Sender: TObject); private fUiContext: TUiContext; + procedure VerplaatsControls(); protected function ComputerName: String; function WUserName: String; @@ -74,6 +75,7 @@ procedure TfmDrieKnoppenScherm.FormShow(Sender: TObject); begin + VerplaatsControls; btnLinksOnder.Visible := false; btnCentraalOnder.Visible := false; btnRechtsOnder.Visible := false; @@ -135,6 +137,9 @@ PopupScherm.Top := self.parent.ClientOrigin.Y + 40; PopupScherm.Left := self.parent.ClientOrigin.X + 40; + if UiContext.Modus = modusVHOSS then + Melding := StringReplace(Melding,'pallet','VHOSS',[rfReplaceAll]); + PopupScherm.lblWaarschuwing.Caption := Melding; PopupScherm.lblActie1.Caption := Actie1; @@ -182,7 +187,7 @@ PopupScherm.dbgPopup.Columns.Add; PopupScherm.dbgPopup.Columns[kolomteller].FieldName := ClientDataSet.FieldDefs[kolomteller].Name; PopupScherm.dbgPopup.Columns[kolomteller].Field := ClientDataSet.Fields[kolomteller]; - PopupScherm.dbgPopup.Columns[kolomteller].Width := (PopupScherm.dbgPopup.Width-20) div ClientDataSet.FieldCount; + PopupScherm.dbgPopup.Columns[kolomteller].Width := (PopupScherm.dbgPopup.Width-50) div ClientDataSet.FieldCount; end; PopupScherm.dsPopup.Dataset := ClientDataSet; ClientDataSet.Open; @@ -192,6 +197,11 @@ result := PopupScherm.ShowModal; end; +procedure TfmDrieKnoppenScherm.VerplaatsControls; +begin + // +end; + function TfmDrieKnoppenScherm.WUserName: String; var nSize: DWord;