ReSQL.ru
     
powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Цвета элементов программы под Windows 10
18 сообщений из 18, страница 1 из 1
Цвета элементов программы под Windows 10
    #39224983
UAP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UAP
Участник
Коллеги!

Столкнулся с проблемой.
Программа написана на VFP 9.
Цвета всех элементов программы подбирались в Windows XP.
Под Windows 7 цвета элементов программы остались неизменными.
Под Windows 10 цвета стали меняться странным образом.
Например, часто, но не всегда, "серый" становится "белым".
Как зафиксировать цветовую схему программы и сделать ее неизменной?
...
Рейтинг: 0 / 0
26.04.2016, 17:16
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39225037
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Про Win10 не знаю, но сталкивался с просто позорными мониторами: сделал легкую подсветку важных клеток в гриде, пользователь звонит и предлагает их подсветить, а они уже подсвечены! Цепляюсь удаленно, тимвьюер показывает подсветку, а юзер не видит. Все понятно стало когда дали фотку монитора, там реально не видно. Монитор такой.
В итоге сделал настройки цвета. Не нравятся (не видно) цвета по-умолчанию - крась как нравится.
...
Рейтинг: 0 / 0
26.04.2016, 18:32
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39225113
UAP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UAP
Участник
Действительно!
Этим управляет свойство Themes контролов.
Интересно, можно ли глобально заявить Themes = .F. ?
Или что-то подобное?
...
Рейтинг: 0 / 0
26.04.2016, 20:09
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39225151
правильный проход\щмй.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
правильный проход\щмй.
Гость
UAPДействительно!
Этим управляет свойство Themes контролов.
Интересно, можно ли глобально заявить Themes = .F. ?
Или что-то подобное?Все формы в программе унаследовать от класса формы с установленным Themes = .f.
...
Рейтинг: 0 / 0
26.04.2016, 21:00
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39225512
UAP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UAP
Участник
правильный проход,

Что делать, если программа уже написана, масса форм, гридов и прочего?
...
Рейтинг: 0 / 0
27.04.2016, 12:53
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39225527
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
UAPправильный проход,

Что делать, если программа уже написана, масса форм, гридов и прочего?
Автозамену напиши, примерно так
Код: sql
1.
2.
3.
4.
5.
MODIFY FORM ... NOWAIT
if aSelObj(laCtrl,1) > 0
    laCtrl[1].Themes = .f.
endif
keyboard '{ctrl+w}'
...
Рейтинг: 0 / 0
27.04.2016, 13:04
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39225545
UAP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UAP
Участник
Dima T,

А если в главной программе _screen.Themes = .F. ?
...
Рейтинг: 0 / 0
27.04.2016, 13:18
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39225548
UAP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UAP
Участник
Dima T,

А если в главной программе _screen.Themes = .F. ?
...
Рейтинг: 0 / 0
27.04.2016, 13:19
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39225567
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
UAPDima T,

А если в главной программе _screen.Themes = .F. ?
Попробуй.

Еще есть SYS(2700)
...
Рейтинг: 0 / 0
27.04.2016, 13:29
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39225575
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Ни разу не разбирался со Themes. Хэлп немного почитал. Как понял оно не только на цвета влияет, но и на всякие "красивости".
...
Рейтинг: 0 / 0
27.04.2016, 13:33
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39225631
UAP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UAP
Участник
Dima T,

Не уверен на 100%, но похоже, что, если в главной программе написать SYS(2700,0), то это глобальная команда НЕподдержки схем
...
Рейтинг: 0 / 0
27.04.2016, 14:09
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39226523
UAP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UAP
Участник
Уважаемый Dima T !

Вы приводите фрагмент программы немного выше..

MODIFY FORM ... NOWAIT
if aSelObj(laCtrl,1) > 0
laCtrl[1].Themes = .f.
endif
keyboard '{ctrl+w}'

Я проверил, эта программа меняет .T. на .F. только в самой форме.
Как модифицировать текст этой программы, чтобы перебрать все контролы данной формы?
...
Рейтинг: 0 / 0
28.04.2016, 12:13
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39226535
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
aSelObj() создает массив с контролами и возвращает количество элементов.
Так попробуй
Код: sql
1.
2.
3.
for i = 1 to aSelObj(laCtrl,1)
    laCtrl[i].Themes = .f.
endif
...
Рейтинг: 0 / 0
28.04.2016, 12:26
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39226552
UAP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UAP
Участник
Dima T,

Пожалуйста, напишите точнее.
Программа не добирается до кнопок
...
Рейтинг: 0 / 0
28.04.2016, 12:38
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39226561
правильный проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
правильный проходящий.
Гость
UAPDima T,

Пожалуйста, напишите точнее.
Программа не добирается до кнопокА зачем добираться до кнопок? В общем-то, настройка формы влияет и на контролы на этой форме, хоть и не меняет значений свойств контролов.
А для отключения во всей проге можно использовать SCREEN.Themes.
Цитата:
You can set _SCREEN.Themes property to False (.F.) to disable Themes entirely in Visual FoxPro.
...
Рейтинг: 0 / 0
28.04.2016, 12:47
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39226573
UAP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UAP
Участник
правильный проходящий.,

Сейчас попробую.

Проблема в том, что работа с Темами странно влияет на поведение программы.
Причем, не всей программы, а только на формирование рапортов.
Я формирую ПДФ-ы с помощью ПДФ принтера, а они распахиваются на весь экран, в то время, как это должно быть скрыто.
Это началось именно после того, как я стал работать с темами.
...
Рейтинг: 0 / 0
28.04.2016, 12:56
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39226592
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
UAPDima T,

Пожалуйста, напишите точнее.
Программа не добирается до кнопок
Оказалось посложнее немного, надо внутри формы .Controls перебирать
Код: sql
1.
2.
3.
4.
5.
6.
7.
modi form ... nowait
for i = 1 to aSelObj(laCtrl, 1)
    ? laCtrl[i].name, laCtrl[i].Themes 
    for each loCtrl in laCtrl[i].Controls
	    ? loCtrl.name, loCtrl.Themes
	endfor
endfor


Если на форме будет какой-нибудь контейнер (pageframe или grid), то надо у него перебирать внутри.
...
Рейтинг: 0 / 0
28.04.2016, 13:16
| Ответить | Цитировать | Написать  
Цвета элементов программы под Windows 10
    #39226614
UAP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UAP
Участник
Коллеги, спасибо

Но у меня возникла очень странная проблема, которую я даже сформулировать не могу.
Это не Темы.
Хотя, я подумал, что именно Темы.
...
Рейтинг: 0 / 0
28.04.2016, 13:27
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Цвета элементов программы под Windows 10
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=19&tid=1582121]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 26ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 267ms
total:  396ms
созд. / загр.: 396ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]