Komischer Rand bei DBGrid

[humfred]

Hallo Leute,
habe ein Problem mit einem DBGrid, es zeigt einen schwarzen Rand beim auswählen einer Zelle an.
Die anderen DBGrids in der selben Form funktionieren ohne Probleme & zeigen keinen Rand an.

Die Eigenschaften der Komponente habe ich bereits untersucht sowie mit anderen DBGrids verglichen, hab aber nichts gefunden.


Delphi XE2

Anbei ein Screenshots des ganzen.


Danke schon mal für die Hilfe!

[baumina]

DrawingStyle und DefaultDrawing (OnDraw....) auch gleich?

[stahli]

Bist Du sicher, dass das der Canvas Deines DBGrids ist.
Kann es evtl. der Parent sein oder ein anderes Control?
Hast Du mal testweise Dein Grid verbreitert?

PS: Hallo erstmal! ;-)

[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 ?

[humfred]

Habe die Aligns sowie die Ereignisse des Grids nochmal überprüft, nichts auffälliges.

[stahli]

Was ist denn mit der "Lage"-Spalte? Hast Du das Grid mal testweise auf das Formular verschoben und verbreitert?
Kann man mal einen kompletten Screenshot sehen?