ControlText: IGxColor;
Свойство ControlText возвращает объект, содержащий цвет шрифта рельефных объектов.
Sub Main;
Var
SysColor: IGxSystemColors;
Color: IGxColor;
Begin
Color:=SysColor.ControlText;
End Sub Main;
После выполнения примера в переменной «Color» будет содержаться цвет шрифта рельефных объектов.
См. также: