TFlowPanel, fsTopBottomLeftRight, Linie zwischen Panels

[hoika]

Hallo,
bei Benutzung des TFlowPanels mit fsTopBottomLeftRight und Panel
haben die Panels eine horizontale 1-Pixel-Abstands-Linie.
Bei fsLeftRightTopBottom habe ich keine vertikale Linie.

Wie bekomme ich die horizontale Linie weg?

[Der schöne Günther]

Tatsächlich.

Anbei einmal als Bilder.

[hoika]

Hallo,
sonst finde ich ja im Quellcode etwas, aber diesmal nicht ...
Hat jemand eine Lösung?

[Der schöne Günther]

Die Ursache würde ich doch in Vcl.ExtCtrls.TCustomFlowPanel.AlignControls(..) erwarten. Vielleicht sollte es bei diesen komischen Konstanten

Delphi-Quellcode:

const
  XIncDir: array[TFlowStyle] of Integer = (1, -1, 1, -1, 1, 1, -1, -1);
  YIncDir: array[TFlowStyle] of Integer = (1, 1, -1, -1, 1, -1, 1, -1);
  YDeltaConst: array[TFlowStyle] of Integer = (0, 0, -1, -1, 0, 0, 0, 0);
  XDeltaConst: array[TFlowStyle] of Integer = (0, 0, 0, 0, 0, 0, -1, -1);

anders sein. Hast du damit mal etwas herumprobiert?