Hello Tony!
Thursday July 03 1997 23:35, Tony Dunn wrote to All:
> [LabelFont]
> LabelFontColor=clAqua
> Label1.font.color := VeejoIni.ReadInteger('LabelFont', 'LabelFontColor',
> clBlack);
Use a ReadString in stead of ReadInteger. Then from the Graphics unit, use
the following functions:
function ColorToString(Color: TColor): string;
function StringToColor(S: string): TColor;
Jeroen - jp@dragons.nest.nl - [100013,1443]
--- GEcho 1.01+
---------------
* Origin: Unrecoverable Application Error, Dave - HAL 9000 (2:280/206.1)
|