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