While not being involved in this whole discussion, I would think that by
modifying this loop, you would be able to get BGR instead of RGB. I'm sure
someone else can help out on reversing the byte order in the loop where
shown.
[code]
for y := 0 to IMG_HEIGHT-1 do
begin
for x := 0 to IMG_WIDTH-1 do
begin
with PRGBTriple(@ImageData[y*LINE_PITCH+x*BYTES_PER_PIXEL])^ do
begin
// Here is where the mods would have to take place to
// "reverse" the ordering.
rgbtBlue := Byte(x and not 15);
rgbtGreen := Byte(y and not 15);
rgbtRed := Byte(rgbtBlue+rgbtGreen);
end;
end;
end;
[/code]
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
