vhorky

Hi,
I have the same problem with fatal error "Integer overflow" in BlendColor method.
I have to change source code to:

class function TGraphicsProvider.BlendColor(Color1, Color2: TColor; Amount: Integer): TColor;
var
Value: Integer;
v,a,c1,c2 :Int64;
begin
Assert(Amount in [0..255]);
Value := Amount xor 255;
if Integer(Color1) < 0 then Color1 := GetSysColor(Color1 and $000000FF);
if Integer(Color2) < 0 then Color2 := GetSysColor(Color2 and $000000FF);

c1 := Color1;
c2 := Color2;
a := Amount;
v := Value;

Result := (((
((c1 and $FF00FF) * a +
(c2 and $FF00FF) * v) and $FF00FF00 +
((c1 and $00FF00) * a +
(c2 and $00FF00) * v) and $00FF0000) shr 8) and $FFFFFFFF);
end;

So, problems are in outputs directories for BPL and DCP. I don't know why, but Delphi 2009 has implicit setting for this directories with read-only option to C:\Document and Settings\All users\Documents\RAD Studio\Bpl

Hallo, I have the same problem with this error message [DCC Fatal Error] NxCommonDsgn_d2009.dpk(35): F2039 Could not create output file 'C:\Documents and Settings\All Users\Dokumenty\RAD Studio\6.0\Bpl\NxCommonRun_d2009.bpl'. I try to install new version from member area...