TbsSkinComboBox OnDrawEvent

[nachti1505]

Ich möchte eine generische OnDraw Methode für die Almdev TbsSkinComboBox / ListBox / Etc.Box - Komponenten schreiben. Dummerweise geben diesen als EventHeader folgenden vor:

Delphi-Quellcode:

procedure TfrmPersonal.bsSkinComboBox1ListBoxDrawItem(Cnvs: TCanvas; Index,
  ItemWidth, ItemHeight: Integer; TxtRect: TRect; State: TOwnerDrawState);

Sprich, da ist kein Sender: TObject bei. Jemand ne Idee, wie ich trotzdem an den Sender (und damit, viel wichtiger an die Items der jeweiligen Komponente) komme? Hab schon versucht mich über die TCanvas irgendwie durchzuhangeln... aber dat ging nicht.

[toms]

Delphi-Quellcode:

procedure bsSkinComboBoxListBoxDrawItem(Sender: TbsSkinComboBox; Cnvs: TCanvas; Index,
  ItemWidth, ItemHeight: Integer; TxtRect: TRect; State: TOwnerDrawState);
begin
  //..
end;

procedure TForm1.bsSkinComboBox1ListBoxDrawItem(Cnvs: TCanvas; Index,
  ItemWidth, ItemHeight: Integer; TxtRect: TRect; State: TOwnerDrawState);
begin
 bsSkinComboBoxListBoxDrawItem(bsSkinComboBox1, Cnvs, Index, ItemWidth, ItemHeight, TxtRect, State);
end;

procedure TForm1.bsSkinComboBox2ListBoxDrawItem(Cnvs: TCanvas; Index,
  ItemWidth, ItemHeight: Integer; TxtRect: TRect; State: TOwnerDrawState);
begin
  bsSkinComboBoxListBoxDrawItem(bsSkinComboBox2, Cnvs, Index, ItemWidth, ItemHeight, TxtRect, State);
end;

(Auch wenn der Thread schon älter ist:)

Es gibt glaub keine andere Möglichkeit, als jeder Komponente ein OnListBoxDrawItem zuzuweisen und dann den jeweiligen Sender einer allgemeinen Funktion zu übergeben