RE: TColor->HEX->String->File и обратно

tsaMolotoff — Wed, 05 Jul 2006 16:24:07 GMT

Вроде как разобрался сам - вот код:
interface
uses SysUtils, StrUtils, Graphics;

type cRGB=record
Red:String;
Green:String;
Blue:String;
end;

Function GetHexValue(HexChar:Char):Integer;

implementation

Function GetHexValue(HexChar:Char):Integer;
begin
Case HexChar of
'A', 'a':
GetHexValue := 10;
'B', 'b':
GetHexValue := 11;
'C', 'c':
GetHexValue := 12;
'D', 'd':
GetHexValue := 13;
'E', 'e':
GetHexValue := 14;
'F', 'f':
GetHexValue := 15;
'0'..'9':
GetHexValue := StrToInt(HexChar);
Else
GetHexValue := 0;
End;

End;
Function HexToRGB(Value:String;Del: String=','):cRGB;

var RGBValue:array[0..2] of String;
begin
RGBValue[0] := IntToStr(GetHexValue(Value[1])* 16 + GetHexValue(Value[2]));

RGBValue[1] := IntToStr(GetHexValue(Value[3])* 16
+ GetHexValue(Value[4]));

RGBValue[2] := IntToStr(GetHexValue(Value[5])* 16
+ GetHexValue(Value[6]));

HexToRGB.Red := RGBValue[0];
HexToRGB.Green:=RGBValue[1];
HexToRGB.Blue := RGBValue[2];

End;

Function GetRGB(Value:String):TColor;
var RGBs:cRGB;
begin
try
If Length(Value) <> 7 Then begin
Exit;
end;
RGBs := HexToRGB(RightStr(Value, 6), ',');

GetRGB := RGB(StrToInt(RGBs.red), StrToInt(RGBs.green),
StrToInt(RGBs.blue)) ;
except
Exit;
end;

End;

TColor->HEX->String->File и обратно

tsaMolotoff — Wed, 05 Jul 2006 15:33:58 GMT

Никто не подскажет, как это сделать - вроде как пытался так:

tmpSt:='AAE2B0';
clTmp:=RGB(StrToInt('$'+MidStr(tmpSt,1,2)),StrToInt('$'+MidStr(tmpSt,3,4)),StrToInt('$'+MidStr(tmpSt,5,6)));
MainForm.Label1.Font.Color:=clTmp;
MainForm.Label1.Update;

И получается цвет не тот, что я делал!

Релиб / Программирование / Delphi / TColor->HEX->String->File и обратно / Latest Posts

RE: TColor->HEX->String->File и обратно

TColor->HEX->String->File и обратно