Forum: Multimedia
Delphi
by SleepyMaster,
18. Dez 2005
Vielen Dank... nur hattest du in BGRToColor einen kleinen Dreher drin, der das Bild ein bisschen gelbstichig macht :zwinker:
function BGRToColor(const BGR : Integer) : TColor;
begin
result := (BGR and $FF000000) + ((BGR and $000000FF) shl 16) + (BGR and $0000FF00) + ((BGR and $00FF0000) shr 16);
end;
Forum: Multimedia
Delphi
by SleepyMaster,
17. Dez 2005
Hi ihrs...
warum erzielen die unteren beiden Zeilen nicht das selbe Ergebniss?
type
TScanLine = array of TColor;
PScanLine = ^TScanLine;
...