Index: AAPClient/UI/DrieKnoppenScherm.pas =================================================================== diff -u -r324 -r330 --- AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 324) +++ AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 330) @@ -129,7 +129,7 @@ function TfmDrieKnoppenScherm.ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; imgCentraalIndex: integer = 13; ImageIndex1: integer = -1; ImageIndex2: integer = -1;knopkleur: TColor = $001717CD; ClientDataSet: TClientDataSet = nil): TModalResult; var PopupScherm: TfmPopupScherm; - kolomteller, rijteller: integer; + kolomteller: integer; begin PopupScherm := TfmPopupScherm.Create(self); @@ -182,7 +182,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 div ClientDataSet.FieldCount; + PopupScherm.dbgPopup.Columns[kolomteller].Width := (PopupScherm.dbgPopup.Width-12) div ClientDataSet.FieldCount; end; PopupScherm.dsPopup.Dataset := ClientDataSet; ClientDataSet.Open; Index: AAPClient/UI/DrieKnoppenScherm.dfm =================================================================== diff -u -r238 -r330 --- AAPClient/UI/DrieKnoppenScherm.dfm (.../DrieKnoppenScherm.dfm) (revision 238) +++ AAPClient/UI/DrieKnoppenScherm.dfm (.../DrieKnoppenScherm.dfm) (revision 330) @@ -116,6 +116,7 @@ Width = 480 Height = 57 Align = alTop + BevelEdges = [beBottom] BevelOuter = bvNone Color = 1513421 ParentBackground = False