[Gelöst] Items Eigenschaft zerstört eigene Komponente

[Sereby]

Hi,

ich hab ne eigene Komponente geschrieben mit einem Gradient verlauf.
Dieser wird aber, sobald ich eine Listbox oder eine Combobox mit Items befülle, zur runtime leider zerstört :(

Bitte helft mir und sagt mir wie ich das umgehen kann :(

Achja: Ich benutze Delphi 2009. Bei Delphi 5 funktioniert es.

edit:
Das selbe verhalten erhält man schon zur designtime wenn man bei FHeaderBackground := TImage.Create(Self); das Stretch := True; auskommentiert.
Hilft mir aber leider nicht bei der Problemlösung ^_^"

[Sereby]

ich sollte länger als 2 tage googeln und testen -_-"

hab per wm_paint die breitenangaben aktualisieren lassen und auf einmal funzt es.

hab selber ne lösung gefunden!

Delphi-Quellcode:

TRolloutPanel = class(TPanel)
  private
    ..
    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
    ..
  end;

procedure TRolloutPanel.WMPaint(var Msg: TWMPaint);
begin
  FHeaderBackground.Width := Self.Width + 6;
  FHeaderTitle.Width := FHeaderBackground.Width - 15;
  inherited;
end;