Forum: Multimedia
Delphi
by Flips,
3. Apr 2008
Also ich verstehs echt nicht...
Habs jetzt mal wie jfheins gemacht:
form2.Image1.Picture.Bitmap.PixelFormat := APixelFormat; //-> pf32Bit
for h := 0 to 240 - 1 do
begin
a := form2.Image1.picture.bitmap.ScanLine;
b := form3.imgBuffer.Picture.Bitmap.ScanLine;
for w := 0 to 320 - 1 do
begin
Forum: Multimedia
Delphi
by Flips,
1. Apr 2008
Das Array namens input ist ein statisches Array gefüllt mit einem Record, Nettoinput ist ein Integerwert und kann 0 oder nicht 0 sein.
Wenn er nicht 0 ist, dann soll der Pixel an der Stelle rot werden.
Also ich meine das Quellbild ist 24Bit, fällt mir gerade ein^^
Dann stell ich mal das Zielbild auch auf 24Bit und nutze wieder RGBTriple.
Melde mich dann!
Forum: Multimedia
Delphi
by Flips,
31. Mär 2008
Hi.
Erstmal tschuldigung für die schlechte Überschrift, wenn das Thema gelöst wird dann ändere ich sie eventuell.
Aber nun zum Problem, geht um folgenden Code:
type TRGBArray = array of RGBQUAD;
PRGBARRAY = ^TRGBArray;
var
a,b: RGBQUAD;