Bitmap32 auf ZielBitmap32 malen

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