So habs hinbekommen
Delphi-Quellcode:
type
TGammaRamp = packed record
R : array[0..255] of word;
G : array[0..255] of word;
B : array[0..255] of word;
end;
zum ändern das Gammas
Delphi-Quellcode:
procedure TForm1.BarGammaChange(Sender: TObject);
var
v, i: Integer;
adjustedRamp: TGammaRamp;
begin
Caption := Format('%.1f', [barGamma.Position/10]);
for i := 0 to 255 do
begin
v := Round(255 * Power(i/255, barGamma.Position/10));
if v > 255 then v := 255;
adjustedRamp.R[i] := v shl 8;
adjustedRamp.G[i] := v shl 8;
adjustedRamp.B[i] := v shl 8;
end;
SetDeviceGammaRamp(getdc(0), adjustedRamp);
end;
und am Besten vorher das GAMMA speichern ( was vorher war )
GetDeviceGammaRamp(GetDC(0), OldGamma);
OldGamma muss dann TGAMMARAMP sein
So Endlich kann ich meine GRAKA wieder auf 1.0 stellen wenn mir nen Game gecrashed ist :] *fettSmile*