s
Nieco optymalizując kod otrzymamy:
function HexToTColor(sColor:String):TColor;begin:=StrToInt('$'+sColor); Result:=RGB(GetBValue(Result),GetGValue(Result),GetRValue(Result));end;
s
Nieco optymalizując kod otrzymamy:
function HexToTColor(sColor:String):TColor;begin:=StrToInt('$'+sColor); Result:=RGB(GetBValue(Result),GetGValue(Result),GetRValue(Result));end;