Zitat von
turboPASCAL:
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.
Du bist der absolute Hammer!
Ich schau mir das nochmal genau an, aber dass ist genau das was ich wollte!
Nein der Code war nur fürs Demo ist noch nix bereinigt.