IGxICMManager.GetScreenProfiles

Копировать пример

Sub UserProc;
Var
    ICMMan: IGxICMManager;
    DeviceProf: IGxDeviceICMProfiles;
    i: Integer;
Begin
    ICMMan := New GxICMManager.Create;
    DeviceProf := ICMMan.GetScreenProfiles;
    Debug.WriteLine("Цветовые профили, сопоставленные с монитором");
    Debug.Indent;
    For i := 0 To DeviceProf.Count - 1 Do
        Debug.WriteLine(DeviceProf.Item(i));
    End For;
    Debug.Unindent;
End Sub UserProc;