Komischer Rand bei DBGrid

[humfred]

Schwarzer Rand

Delphi-Quellcode:

object DBGridPacht: TJvDBGrid
      Left = 2
      Top = 193
      Width = 816
      Height = 92
      Align = alClient
      Color = clBtnFace
      DataSource = DM_Gebaeude.DS_Pachtwert
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnColExit = DBGridPachtColExit
      OnEnter = DBGridPachtEnter
      OnExit = DBGridPachtExit
      SelectColumnsDialogStrings.Caption = 'Select columns'
      SelectColumnsDialogStrings.OK = '&OK'
      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
      CanDelete = False
      EditControls = <>
      RowsHeight = 17
      TitleRowHeight = 17
      Columns = <
        item
          Expanded = False
          FieldName = 'NUTZUNG'
          Title.Caption = 'Nutzung'
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GESCHOSS'
          Title.Caption = 'Geschoss'
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'LAGE'
          Title.Caption = 'Lage'
          Width = 62
          Visible = True
        end>
      Delphi2010OptionsMigrated = True
    end

Ohne schwarzen Rand

Delphi-Quellcode:

object DBGridGebaeude: TDBGrid
      Left = 2
      Top = 34
      Width = 816
      Height = 93
      Hint =
        'W'#228'hlen Sie hier das Geb'#228'ude aus, dessen Mieteinheiten angezeigt ' +
        'werden sollen.'
      Align = alClient
      Color = clBtnFace
      DataSource = DM_Gebaeude.DS_Gebaeude
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete]
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'BEZEICHNUNG'
          Title.Caption = 'Geb'#228'udebezeichnung'
          Width = 173
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FOLGENUTZUNG'
          Title.Caption = 'Folgenutzung'
          Width = 171
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FLAECHE_MIETEINHEITEN'
          Title.Caption = 'Fl'#228'che [m'#178']'
          Width = 74
          Visible = True
        end>
    end