GridPanel - ukrywanie danego wiersza.

0

Mam w gridPanelu utworzone trzy wierze o wysokości 40. (właściwość ssAbsolute).
Po naciśnięciu przycisku chcę ukryć wiersz pierwszy

GridPanel1.RowCollection[1].Value := 0;

Jedak po wykonaniu dostaje wynik gdzie wiersz pierwszy nie został całkowicie ukryty jak na zdjęciu( w zasadzie tylko kolor nie zniknął)

screenshot-20171127145733.png

Grid Panel:

 object GridPanel1: TGridPanel
    Left = 160
    Top = 200
    Width = 185
    Height = 129
    ColumnCollection = <
      item
        Value = 100.000000000000000000
      end>
    ControlCollection = <
      item
        Column = 0
        Control = Panel1
        Row = 0
      end
      item
        Column = 0
        Control = Panel2
        Row = 2
      end
      item
        Column = 0
        Control = Label1
        Row = 1
      end>
    RowCollection = <
      item
        SizeStyle = ssAbsolute
        Value = 40.000000000000000000
      end
      item
        SizeStyle = ssAbsolute
        Value = 40.000000000000000000
      end
      item
        SizeStyle = ssAbsolute
        Value = 40.000000000000000000
      end>
    TabOrder = 0
    object Panel1: TPanel
      AlignWithMargins = True
      Left = 4
      Top = 6
      Width = 177
      Height = 30
      Margins.Top = 5
      Margins.Bottom = 5
      Align = alClient
      Caption = 'Panel1'
      Color = clMenuHighlight
      FullRepaint = False
      ParentBackground = False
      TabOrder = 0
      ExplicitLeft = 80
      ExplicitTop = 24
      ExplicitWidth = 183
      ExplicitHeight = 20
    end
    object Panel2: TPanel
      AlignWithMargins = True
      Left = 4
      Top = 86
      Width = 177
      Height = 30
      Margins.Top = 5
      Margins.Bottom = 5
      Align = alClient
      Caption = 'Panel1'
      Color = clRed
      FullRepaint = False
      ParentBackground = False
      TabOrder = 1
      ExplicitLeft = 80
      ExplicitTop = 24
      ExplicitWidth = 183
      ExplicitHeight = 20
    end
    object Label1: TLabel
      AlignWithMargins = True
      Left = 11
      Top = 51
      Width = 163
      Height = 20
      Margins.Left = 10
      Margins.Top = 10
      Margins.Right = 10
      Margins.Bottom = 10
      Align = alClient
      Caption = 'Label'
      Color = clGreen
      ParentColor = False
      ExplicitWidth = 25
      ExplicitHeight = 13
    end
  end
0

Jeżeli naprawdę "tylko kolor nie zniknął" spróbuj wywołać GridPanel1.Repaint;. U mnie nie ma takiego problemu, wszystko działa jak powinno..

1 użytkowników online, w tym zalogowanych: 0, gości: 1