object frmKlantinstellingen: TfrmKlantinstellingen Left = 0 Top = 0 Width = 704 Height = 480 TabOrder = 0 object dbgKlantinstellingen: TDBGrid Left = 0 Top = 0 Width = 577 Height = 480 Align = alClient DataSource = dsKlantinstellingen Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnColEnter = dbgKlantinstellingenColEnter OnColExit = dbgKlantinstellingenColExit OnDrawColumnCell = dbgKlantinstellingenDrawColumnCell OnEnter = dbgKlantinstellingenEnter Columns = < item Expanded = False FieldName = 'cdsKlantinstellingenKlantId' Title.Caption = 'KlantId' Visible = True end item Expanded = False FieldName = 'cdsKlantinstellingenKlantnaam' Title.Caption = 'Naam' Visible = True end item Expanded = False FieldName = 'cdsKlantinstellingenIsExport' Title.Caption = 'Export' Visible = True end item Expanded = False FieldName = 'cdsKlantinstellingenWegwerppallet' Title.Caption = 'Wegwerp' Visible = True end item Expanded = False FieldName = 'cdsKlantinstellingenMeerdereToeleveringen' Title.Caption = '>1 TL' Visible = True end item Expanded = False FieldName = 'cdsKlantinstellingenIsBlumXs' Title.Caption = 'Blum XS' Visible = True end item Expanded = False FieldName = 'cdsKlantinstellingenHalvePallet' Title.Caption = 'Halve pallet' Visible = True end item Expanded = False FieldName = 'cdsKlantinstellingenKartonnenPallet' Title.Caption = 'Kartonnen pallet' Width = 89 Visible = True end> end object Panel1: TPanel Left = 577 Top = 0 Width = 127 Height = 480 Align = alRight BevelEdges = [] BevelOuter = bvNone TabOrder = 1 ExplicitLeft = 513 object btnKlantinstellingenToevoegen: TButton Left = 6 Top = 6 Width = 115 Height = 25 Caption = 'Toevoegen' TabOrder = 0 OnClick = btnKlantinstellingenToevoegenClick end object btnKlantinstellingenWijzigen: TButton Left = 6 Top = 46 Width = 115 Height = 25 Caption = 'Wijzigen' TabOrder = 1 OnClick = btnKlantinstellingenWijzigenClick end object btnKlantinstellingenVerwijderen: TButton Left = 6 Top = 85 Width = 115 Height = 25 Caption = 'Verwijderen' TabOrder = 2 OnClick = btnKlantinstellingenVerwijderenClick end end object cdsKlantinstellingen: TClientDataSet Aggregates = <> FieldDefs = < item Name = 'cdsKlantinstellingenKlantId' DataType = ftString Size = 10 end item Name = 'cdsKlantinstellingenKlantnaam' DataType = ftString Size = 50 end item Name = 'cdsKlantinstellingenIsExport' DataType = ftBoolean end item Name = 'cdsKlantinstellingenWegwerpPallet' DataType = ftBoolean end item Name = 'cdsKlantinstellingenMeerdereToeleveringen' DataType = ftBoolean end item Name = 'cdsKlantinstellingenIsBlumXs' DataType = ftBoolean end item Name = 'cdsKlantinstellingenHalvePallet' DataType = ftBoolean end> IndexDefs = <> Params = <> StoreDefs = True Left = 120 Top = 240 end object dsKlantinstellingen: TDataSource DataSet = cdsKlantinstellingen Left = 120 Top = 192 end end