So, ein wenig gebastelt.
... und bitte nicht so etwas, da wird mir ...
Code:
[b]procedure[/b] TForm1.[color=#ff005f]ListBox1DrawItem[/color](Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
[color=#00D000]//...[/color]
[b]begin[/b]
SelectionLeft := TBitmap32.Create;
SelectionMiddle := TBitmap32.Create;
SelectionRight := TBitmap32.Create;
[color=#ff0000]LoadPNGintoBitmap32(SelectionLeft, ExtractFilePath(ParamStr(0)) + 'leftw.png', Alpha);[/color] [color=#00D000]// <--<<[/color]
[color=#00D000]//...[/color]
ich hoffe das war nur für das Demo.