05-05-2013, 04:41 PM
الحل كان بفرض استبدال كل الدوال
غير ذلك التعديل...
غير ذلك التعديل...
كود :
function GetBValueX(RGB:Cardinal):Byte;
begin
Coulor.color:=rgb;
result:=Coulor.b;
end;
function GetGValueX(RGB:Cardinal):Byte;
begin
Coulor.color:=rgb;
result:=Coulor.g;
end;
function GetRValueX(RGB:Cardinal):Byte;
begin
Coulor.color:=rgb;
result:=Coulor.r;
end;
