палитра

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
dp
Местный житель
Сообщения: 216
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Беларусь, Минск
Контактная информация:

палитра

Сообщение dp »

очень надо заменить в своем интерфейсе палитру на другую.

а точнее хочется gray заменить на что-то другое или сделать четвертую
возможную палитру. если я подкладываю ресурс с WindowsPalette Persistent
то палитра меняется везде - а мне хочется только в одном месте. ;D
когда-то (если верить поиску) маврвик сказал что можно что-то сделать на випе... никто не вспомнит что можно сделать? ???
dP
Maverick
Абориген
Сообщения: 943
Зарегистрирован: 29 мар 2005, 17:49
Откуда: External Developer
Контактная информация:

Re: палитра

Сообщение Maverick »

В принципе, используя API Конфигуратора можно менять палитры интерфейса программно:
реакция на сочетание клавиш должно быть таким:
cfsSetProp ('InterfaceHandle','Palette',bpBlueWindow|bpCyanWindow|bpGrayWindow)

Для того чтобы определить (или восстановить стандартную) палитру цветов Галактики, в
батнике, который вызывает ВИП, после вызова надо добавить строчку

%ATLANTIS%\EXE\additem.exe ИМЯ_РЕСУРСА сol.cfg CFG Params

в сol.cfg собсно и определяется палитра
вот его содержимое (стандартное)
// Назначение : Названия элементов дополнительной палитры
// Вид параметра : Строковый (значения - строки, можно в любых кавычках)

[windows]
!----------------------------------------------------------
!общие
palettenames :='обязательные поля'
palettenames = 'ошибочно заполненные поля'
palettenames = 'выделение в групповом выборе'
palettenames = 'записи, недоступные для обработки'
palettenames = 'некорректно заполненные записи'
palettenames = '6'
palettenames = '7'
palettenames = '8'
palettenames = '9'
palettenames = '10'
!основные
palettenames = 'Амортизация: амортизация не начислена'
palettenames = 'ОС,НМА: объект полностью самортизирован'
palettenames = 'ОС,НМА: объект выбыл'
palettenames = 'ОС,НМА: объект заблокирован откатом'
palettenames = '15'
!векселя и кредиты
palettenames = 'Непроведенные АПП'
palettenames = 'Непроведенные АПП (дата составления прошла)'
palettenames = 'Непроведенные документы из АПП'
palettenames = 'Погашенные векселя, ценные бумаги'
palettenames = '20'
!фин.менеджмент
palettenames = 'Платежный календарь, колонка Валюта'
palettenames = 'ПК:Остатки'
palettenames = 'ПК:Приход/расход'
palettenames = 'ПК:Финансовый поток'
palettenames = 'ПК:Дефицит'
palettenames = 'ПК:План'
palettenames = 'ПК:Наименование'
palettenames = 'ПК:Верхняя строка иерархии.Фон'
palettenames = 'ПК:Верхняя строка иерархии.Текст'
palettenames = 'ПК:Неактивные финоперации'
palettenames = 'ПК:Строка с дефицитом'
palettenames = 'ПК:Невыполненные обязательства'
palettenames = 'ПК:Выполненные обязательства'
palettenames = 'ПК:Обязательства - сегодня погасить'
palettenames = 'ПК:Обязательства с риском неплатежа'
!фин.планирование
palettenames = 'БТ:Бюджет для сравнения'
palettenames = 'БТ:Результат сравнения'
palettenames = 'БТ:Критические значения'
palettenames = 'БТ:Выделенные значения'
palettenames = 'БТ:Значения, доступные для ввода'
palettenames = 'БТ:Расчетные статьи'
!акты взаимозачета
palettenames = 'Закрытые'
palettenames = 'Просрочена плановая дата'
palettenames = 'Не просрочена плановая дата'
!розничная торговля
palettenames = 'фон полей'
!системные цвета
palettenames = 'черный';
palettenames = 'бордовый';
palettenames = 'зеленый';
palettenames = 'коричневый';
palettenames = 'темно-синий';
palettenames = 'малиновый';
palettenames = 'сине-зеленый';
palettenames = 'серый';
palettenames = 'светло-серый';
palettenames = 'красный';
palettenames = 'салатовый';
palettenames = 'желтый';
palettenames = 'синий';
palettenames = 'фиолетовый';
palettenames = 'бирюзовый';
palettenames = 'белый';
! Настройка
palettenames = 'общесистемная настройка'
palettenames = 'настройка пользователя'
!Управление ремонтами
palettenames = 'Ремонт:Объект в плановом ремонте'
palettenames = 'Ремонт:Объект во внеплановом ремонте'
palettenames = 'Ремонт:Простой оборудования'
palettenames = 'Ремонт:Выполняемый сегодня ремонт'
palettenames = 'Ремонт:Период расчета в диалогах'
palettenames = 'Ремонт:Условие фильтра в диалогах'
palettenames = 'Ремонт:Суммирование, сортировка в диалогах'
palettenames = 'Ремонт:Вид графика, тип ремонтов в диалогах'
!Финансовый анализ. Палитра #1
palettenames = 'ФА: #1 Белый'
palettenames = 'ФА: #1 Цвет #2'
palettenames = 'ФА: #1 Цвет #3'
palettenames = 'ФА: #1 Цвет #4'
palettenames = 'ФА: #1 Цвет #5'
palettenames = 'ФА: #1 Цвет #6'
palettenames = 'ФА: #1 Цвет #7'
palettenames = 'ФА: #1 Черный'
!Финансовый анализ. Палитра #2
palettenames = 'ФА: #2 Белый'
palettenames = 'ФА: #2 Цвет #2'
palettenames = 'ФА: #2 Цвет #3'
palettenames = 'ФА: #2 Цвет #4'
palettenames = 'ФА: #2 Цвет #5'
palettenames = 'ФА: #2 Цвет #6'
palettenames = 'ФА: #2 Цвет #7'
palettenames = 'ФА: #2 Черный'
!Финансовый анализ. Палитра #3
palettenames = 'ФА: #3 Белый'
palettenames = 'ФА: #3 Цвет #2'
palettenames = 'ФА: #3 Цвет #3'
palettenames = 'ФА: #3 Цвет #4'
palettenames = 'ФА: #3 Цвет #5'
palettenames = 'ФА: #3 Цвет #6'
palettenames = 'ФА: #3 Цвет #7'
palettenames = 'ФА: #3 Черный'
!Финансовый анализ. Палитра #4
palettenames = 'ФА: #4 Белый'
palettenames = 'ФА: #4 Цвет #2'
palettenames = 'ФА: #4 Цвет #3'
palettenames = 'ФА: #4 Цвет #4'
palettenames = 'ФА: #4 Цвет #5'
palettenames = 'ФА: #4 Цвет #6'
palettenames = 'ФА: #4 Цвет #7'
palettenames = 'ФА: #4 Черный'
!Поставщики-получатели
palettenames = 'Распр. документов: цвет основного документа'
palettenames = 'Распр. документов: цвет частичного документа'
palettenames = 'Распр. документов: цвет привязанного документа'
!Плановое движение МЦ
palettenames = 'Плановое движение МЦ: расход'
palettenames = 'Плановое движение МЦ: превышения'
// Назначение : Значения элементов дополнительной палитры
// Вид параметра : Строковый (значения - строки, можно в любых кавычках)
!----------------------------------------------------------
!общие
PaletteColors :=255,255,200
PaletteColors =Red
PaletteColors =Blue
PaletteColors =Gray
PaletteColors =Maroon
PaletteColors =Silver
PaletteColors =Silver
PaletteColors =Silver
PaletteColors =Silver
PaletteColors =Silver
!основные
PaletteColors =96,96,96
PaletteColors =96,96,96
PaletteColors =Silver
PaletteColors =Silver
PaletteColors =Silver
!векселя и кредиты
PaletteColors =Green
PaletteColors =Red
PaletteColors =Green
PaletteColors =96,96,96
PaletteColors =Silver
!фин.менеджмент
PaletteColors = Silver
PaletteColors = 0,198,177
PaletteColors = Silver
PaletteColors = 173,169,1
PaletteColors = Silver
PaletteColors = 0
PaletteColors = 0
PaletteColors = Aqua
PaletteColors = Green
PaletteColors = Gray
PaletteColors = Maroon
PaletteColors = Maroon
PaletteColors = Purple
PaletteColors = Lime
PaletteColors = Maroon
!фин.планирование
PaletteColors =133,75,180
PaletteColors =52,133,119
PaletteColors =Red
PaletteColors =Blue
PaletteColors =238,253,215
PaletteColors =15,136,130
!акты взаимозачета
PaletteColors =Black
PaletteColors =Red
PaletteColors =Green
!розничная торговля
PaletteColors =White
!системные цвета
PaletteColors = Black
PaletteColors = Maroon
PaletteColors = Green
PaletteColors = Olive
PaletteColors = Navy
PaletteColors = Purple
PaletteColors = Teal
PaletteColors = Gray
PaletteColors = Silver
PaletteColors = Red
PaletteColors = Lime
PaletteColors = Yellow
PaletteColors = Blue
PaletteColors = Fuchsia
PaletteColors = Aqua
PaletteColors = White
! Настройка
PaletteColors = Red
PaletteColors = Green
!Управление ремонтами
PaletteColors =Navy
PaletteColors =Red
PaletteColors =Blue
PaletteColors =255,255,200
PaletteColors =Red
PaletteColors =133,75,180
PaletteColors =Blue
PaletteColors =Green
!Финансовый анализ. Палитра #1 "Все зеленое"
PaletteColors = White
PaletteColors = 215,236,231
PaletteColors = 200,230,199
PaletteColors = 173,233,170
PaletteColors = 139,198,135
PaletteColors = 105,152,103
PaletteColors = 39,71,26
PaletteColors = Black
!Финансовый анализ. Палитра #2 "Черноморская"
PaletteColors = White
PaletteColors = 219,246,249
PaletteColors = 164,241,198
PaletteColors = 140,210,237
PaletteColors = 149,169,232
PaletteColors = 85,152,219
PaletteColors = 31,48,137
PaletteColors = Black
!Финансовый анализ. Палитра #3 "Летний дождь"
PaletteColors = White
PaletteColors = 231,243,245
PaletteColors = 174,214,224
PaletteColors = 136,165,120
PaletteColors = 85,142,77
PaletteColors = 74,117,80
PaletteColors = 53,83,75
PaletteColors = Black
!Финансовый анализ. Палитра #4 "Поднебесье"
PaletteColors = White
PaletteColors = 210,235,239
PaletteColors = 183,208,242
PaletteColors = 154,179,241
PaletteColors = 121,142,201
PaletteColors = 94,105,154
PaletteColors = 55,74,108
PaletteColors = Black
!Поставщики-получатели
PaletteColors = 183,208,242
PaletteColors = 154,179,241
PaletteColors = 121,142,201
!Плановое движение МЦ
PaletteColors = Red
PaletteColors = Purple


// Назначение : Значения элементов дополнительной палитры (16-цветные режимы экрана)
// Вид параметра : Строковый (значения - строки, можно в любых кавычках)
!общие
PaletteColors16:=Yellow
PaletteColors16=Red
PaletteColors16=Blue
PaletteColors16=Gray
PaletteColors16=Maroon
PaletteColors16=Silver
PaletteColors16=Silver
PaletteColors16=Silver
PaletteColors16=Silver
PaletteColors16=Silver
!основные
PaletteColors16=96,96,96
PaletteColors16=96,96,96
PaletteColors16=Silver
PaletteColors16=Silver
PaletteColors16=Silver
!векселя и кредиты
PaletteColors16=Green
PaletteColors16=Red
PaletteColors16=Green
PaletteColors16=96,96,96
PaletteColors16=Silver
!фин.менеджмент
PaletteColors16=Silver
PaletteColors16=0,198,177
PaletteColors16=Silver
PaletteColors16=173,169,1
PaletteColors16=Silver
PaletteColors16=0
PaletteColors16=0
PaletteColors16=Aqua
PaletteColors16=Green
PaletteColors16=Gray
PaletteColors16=Maroon
PaletteColors16=Maroon
PaletteColors16=Purple
PaletteColors16=Lime
PaletteColors16=Maroon
PaletteColors16=133,75,180
PaletteColors16=52,133,119
PaletteColors16=Red
PaletteColors16=Blue
PaletteColors16=238,253,215
PaletteColors16=15,136,130
PaletteColors16=Black
PaletteColors16=Red
PaletteColors16=Green
PaletteColors16=White
PaletteColors16=Black
PaletteColors16=Maroon
PaletteColors16=Green
PaletteColors16=Olive
PaletteColors16=Navy
PaletteColors16=Purple
PaletteColors16=Teal
PaletteColors16=Gray
PaletteColors16=Silver
PaletteColors16=Red
PaletteColors16=Lime
PaletteColors16=Yellow
PaletteColors16=Blue
PaletteColors16=Fuchsia
PaletteColors16=Aqua
PaletteColors16=White
PaletteColors16=Red
PaletteColors16=Green
PaletteColors16=Navy
PaletteColors16=Red
PaletteColors16=Blue
PaletteColors16=255,255,200
PaletteColors16=Red
PaletteColors16=133,75,180
PaletteColors16=Blue
PaletteColors16=Green
!Финансовый анализ. Палитра #1 "Все зеленое"
PaletteColors16 = White
PaletteColors16 = 215,236,231
PaletteColors16 = 200,230,199
PaletteColors16 = 173,233,170
PaletteColors16 = 139,198,135
PaletteColors16 = 105,152,103
PaletteColors16 = 39,71,26
PaletteColors16 = Black
!Финансовый анализ. Палитра #2 "Черноморская"
PaletteColors16 = White
PaletteColors16 = 219,246,249
PaletteColors16 = 164,241,198
PaletteColors16 = 140,210,237
PaletteColors16 = 149,169,232
PaletteColors16 = 85,152,219
PaletteColors16 = 31,48,137
PaletteColors16 = Black
!Финансовый анализ. Палитра #3 "Летний дождь"
PaletteColors16 = White
PaletteColors16 = 231,243,245
PaletteColors16 = 174,214,224
PaletteColors16 = 136,165,120
PaletteColors16 = 85,142,77
PaletteColors16 = 74,117,80
PaletteColors16 = 53,83,75
PaletteColors16 = Black
!Финансовый анализ. Палитра #4 "Поднебесье"
PaletteColors16 = White
PaletteColors16 = 210,235,239
PaletteColors16 = 183,208,242
PaletteColors16 = 154,179,241
PaletteColors16 = 121,142,201
PaletteColors16 = 94,105,154
PaletteColors16 = 55,74,108
PaletteColors16 = Black
!Поставщики-получатели
PaletteColors16 = 183,208,242
PaletteColors16 = 154,179,241
PaletteColors16 = 121,142,201
!Плановое движение МЦ
PaletteColors16 = Red
PaletteColors16 = Purple

При этом необходимо учитывать константы цветов
//
// Константы fldcolor.inc
//
// Они определяют порядковый номер элемента в дополнительной палитре
// Элементы дополнительной палитры описаны в RC\col.cfg
// Назначение : Названия элементов дополнительной палитры
// PaletteNames:="этот цвет используется для..."
// PaletteNames="а вот этот цвет для..."
// и т.д.
// Назначение : Значения элементов дополнительной палитры
// PaletteColors:=Black
// PaletteColors=Maroon
// и т.д.
// Константы в fldcolor.inc должны соответствовать порядку
// элементов доп. палитры описанных выше, нумерация их начинается с единицы (1)
// Константы с цифрами в конце имени зарезервированы, их можно переименовать
// и использовать по своему усмотрению
ColorOFPNow = 11; // 3;
ColorOFPOld = 6; // 8;
ColorOFPMark = 2; //10;
ColorTopLevel = 15;
BkColorTopLevel = 3;
!общие
ColorNeed = 1;
ColorError = 2;
ColorMark = 3;
ColorGray = 4;
ColorErrorRec = 5;
ColorSys06 = 6;
ColorSys07 = 7;
ColorSys08 = 8;
ColorSys09 = 9;
ColorSys10 = 10;
!основные
ColorOSNotAmort = 11;
ColorOSIzn = 12;
ColorOSVyb = 13;
ColorOSOtkat = 14;
ColorOS05 = 15;
!векселя и кредиты
ColorAppNPerf = 16;
ColorAppExpired = 17;
ColorSpAppNPerf = 18;
ColorExpired = 19;
ColorApp05 = 20;
!фин.менеджмент
ColorOFPValuta = 21;
ColorOFPRest = 22;
ColorOFPPrihod = 23;
ColorOFPOborot = 24;
ColorOFPDefPlan = 25;
ColorOFPPlan = 26;
ColorOFPName = 27;
ColorOFPTopLevel = 28;
ColBkOFPTopLevel = 29;
ColorOFPInertCl = 30;
ColorOFPDeficit = 31;
ColorOFPAktNotPerf= 32;
ColorOFPAktPerf = 33;
ColorOFPAktToday = 34;
ColorOFPAktRisk = 35;
!фин.планирование
ColorFPCompare = 36;
ColorFPResultComp = 37;
ColorFPCritical = 38;
ColorFPShow = 39;
ColorFPNeed = 40;
ColorFPFormula = 41;
!акты взаимозачета
ColorVZZakr = 42;
ColorVZProsrocheno= 43;
ColorVZNorm = 44;
!розничная торговля
ColorSkip = 45;

!системные цвета
ColorSysBlack = 46;
ColorSysMaroon = 47;
ColorSysGreen = 48;
ColorSysOlive = 49;
ColorSysNavy = 50;
ColorSysPurple = 51;
ColorSysTeal = 52;
ColorSysGray = 53;
ColorSysSilver = 54;
ColorSysRed = 55;
ColorSysLime = 56;
ColorSysYellow = 57;
ColorSysBlue = 58;
ColorSysFuchsia = 59;
ColorSysAqua = 60;
ColorSysWhite = 61;

! Настройка
ColorSysTune = 62;
ColorUserTune = 63;

!Управление ремонтами
ColorRemPlan = 64;
ColorRemNotPlan = 65;
ColorRemNotRab = 66;
ColorRemToday = 67;
ColorRemPeriod = 68;
ColorRemFilter = 69;
ColorRemSort = 70;
ColorRemVidGraf = 71;

!! Следующие 32 константы не перемещать,
!! они должны следовать строго друг за другом!!!
!Финансовый анализ - палитра 1 -
ColorFA0101 = 72;
ColorFA0102 = 73;
ColorFA0103 = 74;
ColorFA0104 = 75;
ColorFA0105 = 76;
ColorFA0106 = 77;
ColorFA0107 = 78;
ColorFA0108 = 79;
!Финансовый анализ - палитра 2
ColorFA0201 = 80;
ColorFA0202 = 81;
ColorFA0203 = 82;
ColorFA0204 = 83;
ColorFA0205 = 84;
ColorFA0206 = 85;
ColorFA0207 = 86;
ColorFA0208 = 87;
!Финансовый анализ - палитра 3
ColorFA0301 = 88;
ColorFA0302 = 89;
ColorFA0303 = 90;
ColorFA0304 = 91;
ColorFA0305 = 92;
ColorFA0306 = 93;
ColorFA0307 = 94;
ColorFA0308 = 95;
!Финансовый анализ - палитра 4
ColorFA0401 = 96;
ColorFA0402 = 97;
ColorFA0403 = 98;
ColorFA0404 = 99;
ColorFA0405 = 100;
ColorFA0406 = 101;
ColorFA0407 = 102;
ColorFA0408 = 103;
!Поставщики-получатели
ColorBD0001 = 104;
ColorBD0002 = 105;
ColorBD0003 = 106;
!Плановое движение МЦ
ColorPlanMoveRash = 107;
ColorPlanMoveExcess = 108;
Изображение
Знающий людей разумен.
Знающий себя просветлён.
Побеждающий людей силен.
Побеждающий самого себя могущественнен
dp
Местный житель
Сообщения: 216
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Беларусь, Минск
Контактная информация:

Re: палитра

Сообщение dp »

про все это я знаю ;)

мне вот этого не хватает
bpBlueWindow|bpCyanWindow|bpGrayWindow

надо сделать еще один интерфейс (точнее окно в нем) - типа рыжий (как в г-старт версий 5.7x) (там под рыжий раскрашено blue), но только для одного конкретного интерерфейса.

вот это меняет цвет на те которые лежат в dsk
cfsSetProp ('InterfaceHandle','Palette',bpBlueWindow|bpCyanWindow|bpGrayWindow) :-[

а можно ли на те которые лежат в ресурсе или в массиве? ???
dP
Ответить