|
Registriert seit: 15. Jan 2003
Ort: Jena
10 Beiträge
Delphi 5 Standard
|
16. Jan 2003, 18:12
Bei 32 Bits würde ich Pixsize nicht auf 8, sondern auf 4 setzen.
Und warum nimmst du Array[0..0] of Byte? Damit erhältst du doch einen Fehler, wenn du die Bereichsprüfung eingeschaltet lässt (mach ich immer so).
Move(Field[(y)*Linesize + (x)*Pixsize],temp[(x)*Linesize2 + (bitmap.height -y -1)*Pixsize],Pixsize);
scheint mir etwas komisch,
Move(Field[((y * Linesize) + x) * Pixsize], temp[((x * Linesize2) + bitmap.height - y - 1) * Pixsize], Pixsize);
sieht besser aus.
|