Zitat von
virus82:
Scheint wohl wirklich niemand zu wissen.
ja ja mach mal langsam
Mir hilft man auch nicht immer direkt.
Ich denke das dein Bild verschwindet weil du es nicht im richtigen Event(Ereignis) eingebunden hast.
arbeite zur zeit ja auch an etwas ähnlichen nur halt mit ner ListBox.
1. Die Bilder dem richtigen ereignis zu weisen := DrawItem
2. Könnte das dann so aussehen.
Delphi-Quellcode:
var
PDis: PDrawItemStruct;
Brush: HBrush;
bm: TBitmap;}
begin
// Pointer auf DrawItemStruct
PDis := Pointer(LP);
// Hintergrund transarent machen
SetBkMode(PDis.hDC, TRANSPARENT);
Brush := CreateSolidBrush(DeineComponente.Backcolor);
// Bitmap erstellen
bm := TBitmap.Create;
bm.LoadFromFile(Mein.Icon);
// Birmap in den definierten Rect kopieren
BitBlt(PDis.hDC, PDis.rcItem.Left + 4, PDis.rcItem.Top + 1 , bm.Width, bm.Height,
bm.canvas.Handle, 0, 0, SRCCopy);
bm.Free;
// Hintergrund des Bitmap mit dem HBrush füllen
PDis.rcItem.Left := PDis.rcItem.Left + 20;
FillRect(PDis.hDC, PDis.rcItem, Brush);
// Das hBrush freigeben
DeleteObject(Brush);}
gruss Emil