1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84
|
unit UColor;
interface
uses Flash8;
const
clBlack=$000000;
clWhite=$ffffff;
clYellow=$ffff00;
clfuchsia=$FF00FF;
claqua=$00FFFF;
clorange=$FFA500;
clBlue=$0000ff;
clGreen=$008000;
clRed=$FF0000;
clsilver=$C0C0C0;
clGray=$808080;
clGold=$FFD700;
cldarkturquoise=$00CED1;
claliceblue=$F0F8FF;
clazure=$F0FFFF;
clbrown=$A52A2A;
clcadetblue=$5F9EA0;
clcoral=$FF7F50;
cllightskyblue=$87CEFA;
clmediumspringgreen=$00FA9A;
clmediumturquoise=$48D1CC;
clmediumaquamarine=$66CDAA;
clmediumblue=$0000CD;
clmediumorchid=$BA55D3;
clmediumpurple=$9370DB;
clmediumseagreen=$3CB371;
clmediumslateblue=$7B68EE;
clnavajowhite=$FFDEAD;
clnavy=$000080;
clorchid=$DA70D6;
clpowderblue=$B0E0E6;
clpalegoldenrod=$EEE8AA;
clpalegreen=$98FB98;
clpaleturquoise=$AFEEEE;
clspringgreen=$00FF7F;
cltomato=$FF6347;
clyellowgreen=$9ACD32;
clwheat=$F5DEB3;
clslategray=$708090;
clturquoise=$40E0D0;
clsalmon=$FA8072;
clsandybrown=$F4A460;
clseagreen=$2E8B57;
Function GetRvalue(coul:integer):integer;
Function GetGvalue(coul:integer):integer;
Function GetBvalue(coul:integer):integer;
Function RGB(R,V,B:integer):number;
implementation
Function GetBvalue(coul:integer):integer;
begin
result :=coul mod 256;
end;
Function GetGvalue(coul:integer):integer;
begin
result :=floor((Coul mod 65536)/256);
end;
Function GetRvalue(coul:integer):integer;
begin
result :=Floor(Coul/65536);
end;
Function RGB(R,V,B:integer):number;
begin
result:=65536*R+256*V+B;
end;
end. |
Partager