[Lazarus] [Delphi?] StrToColorDef

[Terrmit]

Witam,

Taka sobie prosta rzecz. Wnerwiło mnie, że StringToColor
wywala błąd, gdy poda się mu bzdurną nazwę koloru
(u mnie zdarzały się puste stringi). Ale skoro jest
IntToStrDef, StrToFloatDef itp., to czemu nie StrToColorDef?
Nieco więc "poprawiłem" StringToColor.
Może komuś się przyda.

function StrToColorDef(const S: shortstring; Default: TColor): TColor;
begin
Result := Default;
if not IdentToColor(S, Longint(Result)) then
Result := TColor(StrToIntDef(S, Integer(Default)));
end;

Jakby ktoś mógł sprawdzić, czy działa to w Delphi, bo ja nie mam.

Sławek