TbsSkinComboBox OnDrawEvent

[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