Sollte man ColumnSpan/RowSpan noch verwenden?

[Der schöne Günther]

Nein, als erstes muss ich ja wissen, ob ich etwas offensichtliches falsch mache und ob das jemand nachstellen kann.

In reinem Code kann man das nicht nachstellen. Was sollte ich schreiben? "Drücke ein paar mal F9 und F12, irgendwann wirds schon kaputt gehen."?

Bevor wir uns dem QC zuwenden: Könnte es an der Default -Direktive der entsprechenden Properties liegen?

Delphi-Quellcode:

TControlItem = class(TCollectionItem)
   [...]
   published
      property ColumnSpan: TCellSpan read FColumnSpan write SetColumnSpan default 1;
      property RowSpan: TCellSpan read FRowSpan write SetRowSpan default 1;
end;

Ich versuche derweil einmal herauszufinden, ob man eine 100%ig sichere Möglichkeit hat, dass Properties ungewollt auf 1 zurückspringen.


PS:

Hier zum Vergleich die DFMs:

Frame

Delphi-Quellcode:

object GridPanel1: TGridPanel
   [...]
    ColumnCollection = <
      item
        Value = 50.000000000000000000
      end
      item
        Value = 50.000000000000000000
      end>
    ControlCollection = <
      item
        Column = 0
        ColumnSpan = 2
        Control = Button1
        Row = 0
        RowSpan = 2
      end
   >
   object Button1: TButton
      [...]
   end
end

wird auf dem Formular mit der Zeit abgebildet durch

Delphi-Quellcode:

object Form25: TForm25
   inline Frame261: TFrame26
      [...]
      inherited GridPanel1: TGridPanel
         ControlCollection = <
            item
               Column = 0
               Control = Frame261.Button1
               Row = 0
            end
         >
        
         inherited Button1: TButton
            [...]
         end
      end
   end
end