Komischer Rand bei DBGrid

[humfred]

Auch hallo

Ja, DrawingStyle und DefaultDrawing sind gleich.
Bin mir auch ziemlich sicher das kein Parent das DBGrid beeinflusst, habe in der selben GroupBox noch ein DBGrid und das funktioniert einwandfrei.

Habe gerade das DBGrid mal durch ein JvDBGrid ausgetauscht, gleiches verhalten.

[baumina]

Zeig mal den Codeabschnitt der Grids (einmal mit und einmal ohne komischen Rand) aus der DFM.

[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

[stahli]

Dann passt Dein Feld "Lage" nicht ins Gitter...
Ist Dein Gitter nicht mit Align ausgerichtet und daher teilw. außerhalb des Parent?

(aber der untere Krakel-Bereich sieht trotzdem komisch aus)

[baumina]

Passiert evtl. irgendwas in DBGridPachtColExit oder DBGridPachtEnter ?