Muss sich niemand mehr melden..
Alleinunterhalter!
Geht jetzt so wie es soll.
Mein Fehler war das ich die Top Position berechnet habe aber nicht die Höhe
deshalb wurde das Bild nicht korrekt Skaliert.
Ach ja ein Invalidate war nicht nötig.
Vorher.
Delphi-Quellcode:
GDIP_DrawImageRectRectI(Graphics, ImgBack, PDis.rcItem.Left, PDis.rcItem.Top,
PDis.rcItem.Right, 20, 0, PDis.rcItem.Top, imgW, 20 , 2, nil, False, nil);
Nachher.
Delphi-Quellcode:
GDIP_DrawImageRectRectI(Graphics, ImgBack, 20, PDis.rcItem.Top,
Rect.Right, ImgItemHeight, 0, PDis.rcItem.Top * (Integer(imgH) div Rect.Bottom),
imgW, (Integer(imgH) div Rect.Bottom) * ImgItemHeight, 2, nil, False, nil);
gruss