...ist doch dann im Grunde genommen immer wieder nur das gleiche Prinzip. Anstatt zwei farbige Ausgangs-LEDs in einem Doppelbild hast du dann eben drei LEDs in einem Trippelbild gespeichert (in turboPASCALs Beispiel jetzt mal untereinander und nicht nebeneinander). Dementsprechend ist das aus dem QuellImage dann herauszulesende Rechteck also immer nur noch mehr "QuellImage.Height div 3" hoch ...und dort y (=0,1 o. 2 * dieses "QuellImage.Height div 3") Dots tief angesiedelt:
Delphi-Quellcode:
...
BitBlt(
ZielImage.Canvas.Handle,
x,
0,
QuellImage.Width,
QuellImage.Height div 3,
QuellImage.Picture.Bitmap.Canvas.Handle,
0,
y,
SrcCopy);
...