Als erstes würde ich 32bit anstatt 24bit Farbtiefe verwenden, bringt schonmal ein einiges.
Und dann noch ein paar Sachen:
Delphi-Quellcode:
var
p: PRGBQuad;
...
Buffer.PixelFormat:=pf32bit;
p:=Buffer.ScanLine[Buffer.Height-1];
gamma := 10;
if gamma <> 0 then
for x := 0 to buffer.Width*buffer.Height-1 do
begin
p^.rgbBlue := cut(p^.rgbBlue+gamma);
p^.rgbGreen := cut(p^.rgbGreen+gamma);
p^.rgbRed := cut(p^.rgbRed+gamma);
Inc(p);
end;
Jetzt müsste man nur noch wissen was Cut() für eine function ist?
mfg
Phantom1