:: Visual Foxpro, Foxpro for DOS
Как в команде Wait изменить атрибуты шрифта?
Ydin

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
По Help - Beginning with Visual FoxPro 7, core font attributes including font name, font size and font style are derived from the font characteristics specified in the Appearance tab of the Windows Display Control Panel.

Как в Runtime туда влезть?

У меня в FrameWork можно паузы заполнять на экране термометрами и Вейтами
Wait'ы были позже вставлены:

WaitMe.prg
LPARAMETERS tcMessage, tnHorMargin, tnVertMargin
LOCAL lnCol, lnRow, lcMargin, lnLine, lnLines
m.tcMessage = EVL(m.tcMessage, LANG([Çà÷åêàéòå...],[Æäèòå...]))
m.tnHorMargin = IIF(VARTYPE(m.tnHorMargin)='N',m.tnHorMargin,3)
m.tnVertMargin = IIF(VARTYPE(m.tnVertMargin)='N',m.tnVertMargin,0)
m.lcMargin = SPACE(m.tnHorMargin*2+LEN(m.tcMessage))
m.lcMargin = IIF(m.tnVertMargin<1,'', m.lcMargin + REPLICATE(CHR(13)+' ',m.tnVertMargin-1))
m.lnLines = ALINES(la,m.tcMessage)
m.tcMessage = ''

FOR m.lnLine=1 TO m.lnLines
m.tcMessage = m.tcMessage + SPACE(m.tnHorMargin) + la(m.lnLine) + SPACE(m.tnHorMargin) +IIF(m.lnLine<m.lnLines,CHR(13),'')
NEXT
m.tcMessage = REPLICATE(' '+CHR(13),m.tnVertMargin) + SPACE(m.tnHorMargin)+m.tcMessage+SPACE(m.tnHorMargin)+REPLICATE(' '+CHR(13),m.tnVertMargin)

WAIT CLEAR
m.lnRow = INT(WROWS(_SCREEN.NAME)/2)
m.lnCol = INT(WCOLS(_SCREEN.NAME)/2)-8
WAIT m.tcMessage WINDOW AT m.lnRow,m.lnCol NOWAIT

Со временем наши программисты перестали пользоваться термометром и подсели на эту функцию.
А хотелось бы фонтом управлять
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002
Ydin
... from the font characteristics specified in the Appearance tab of the Windows Display Control Panel.
Как в Runtime туда влезть?
Вот не надо для того чтобы форматировать банальный диалог лезть и менять системные настройки винды. Ты ещё саму винду переустанови, чтобы мессагу полужирным шрифтом вывести
Сделать свою функцию выводящую форму похожую по виду на wait window не так уж и сложно. А там хоть шрифты, хоть что угодно делай как тебе надо.


------------------
WBR, Igor
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
Crispy

Сообщений: 18571
Дата регистрации: 16.05.2005
Ydin
А хотелось бы фонтом управлять

Прочиталось: "А хотелось бы фронтом управлять".

Igor Korolyov
Сделать свою функцию выводящую форму похожую по виду на wait window не так уж и сложно. А там хоть шрифты, хоть что угодно делай как тебе надо.

Когда-то кстати делал свой класс именно на базе формы.
Очень удобная вещь в итоге была - по возможностям какого угодно форматирования текста.
Хотя причина создания была и другой - нужно было выводить информацию, иногда не умещающуюся по числу символов ни в стандартный WAIT, ни даже в MESSAGEBOX().


------------------
В действительности все иначе, чем на самом деле.
                                      (Антуан де Сент-Экзюпери)
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
Ydin

Сообщений: 7648
Откуда: Киев
Дата регистрации: 16.12.2005
Crispy
Прочиталось: "А хотелось бы фронтом управлять".

Хотя бы фонтом
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
Simple777

Сообщений: 33855
Дата регистрации: 05.11.2006
Повелитель фОнтов!.. :bi:
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
Crispy

Сообщений: 18571
Дата регистрации: 16.05.2005
Ydin
Crispy
Прочиталось: "А хотелось бы фронтом управлять".

Хотя бы фонтом

В принципе можно. Когда-то на заре ХР интересовался, как менять шрифты у фоксовских окошек. Делается через темы.
Но едва ли стоит. Во-первых, придется перегружать рабочий стол для изменений. А потом, сколько помню уже по другому вопросу, из-за которого приходилось потом сталкиваться, у каждой системы в работе с темами свои нюансы стали появляться. Т.е. то, что сделаешь для ХР, уже не сгодится для 7 или тем более для 10.
Так что особого смысла городить такой огород из-за окошка вывода видимо все же не стоит.


------------------
В действительности все иначе, чем на самом деле.
                                      (Антуан де Сент-Экзюпери)
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
Taran

Сообщений: 13623
Откуда: Красноярск
Дата регистрации: 16.01.2008
Ерундой маетесь.
Ratings: 1 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
() мтк, да. нарисовать полоску (прогрессор), в форме, или где-либо, это ж элементарно, Ватсон ) Что за вайтики для этого, и тем более их шрифт... Когда лень, то пишу просто в вайтике текущий "123/123456", где 123 - это итерраций прошедших, 123456 - всего итерраций, и вот и прогрессор.

Реальный прогрессор - это тот, который показывает время дальнейшего ожидания, это уже не поделка, хотя тоже может быть изложена и в вайтиках.
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
sphinx

Сообщений: 31166
Откуда: Каменск-Уральски
Дата регистрации: 22.11.2006
of63
Реальный прогрессор - это тот, который показывает время дальнейшего ожидания, это уже не поделка

Да ладно! Считываем прошедшее за "123" итераций время и умножением получаем приблизительное время всего расчета.


------------------
"Veni, vidi, vici!"(с)
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
Sega

Сообщений: 511
Откуда: Ярославль
Дата регистрации: 27.12.2000
Столкнулся со следующей проблемой: у клиента ноутбук с лицензионной американской Win 10 Home. Весь интерфейс системы английский. Запускаю на нем свою программу. Если явно прописывать на формах FontCharSet=204, то с русскими буквами проблем нет. С popup-менюшками тоже удалось проблему решить. Остался только Wait window "<здесь греча>". Есть варианты, как его малой кровью руссифицировать? Может кто поделится ссылкой на свободный класс для замены вывода информационных сообщений? Заранее благодарю.
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
Taran

Сообщений: 13623
Откуда: Красноярск
Дата регистрации: 16.01.2008
1.Вероятно поможет установка параметров fonta для _screen так же делаешь для форм.
2.А в чем проблема нарисовать маленькое окошко и юзать его вместо wait wind?
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
leonid
Автор

Сообщений: 3202
Откуда: Рига
Дата регистрации: 03.02.2006
Поменять Language for non-Unicode programs на русский

[attachment 36491 nonunicode.png]
Ratings: 0 negative/2 positive
Re: Как в команде Wait изменить атрибуты шрифта?
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
И?

() темы про шрифт... в винде под 125% ...бросьте, это не наши проблы.



Исправлено 1 раз(а). Последнее : of63, 18.02.23 20:21
Ratings: 0 negative/0 positive
Re: Как в команде Wait изменить атрибуты шрифта?
Vedmak

Сообщений: 5949
Откуда: CiTY
Дата регистрации: 30.10.2003
GUI в VFP не самый быстрый. Зачем его еще своими красотами тормозить?


------------------
Говорить стоит лишь для тех, кто слушает.
Ratings: 0 negative/2 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 28 (Гостей: 28)

© 2000-2024 Fox Club 
Яндекс.Метрика