Как в команде 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 Со временем наши программисты перестали пользоваться термометром и подсели на эту функцию. А хотелось бы фонтом управлять |
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002 |
Вот не надо для того чтобы форматировать банальный диалог лезть и менять системные настройки винды. Ты ещё саму винду переустанови, чтобы мессагу полужирным шрифтом вывести Сделать свою функцию выводящую форму похожую по виду на wait window не так уж и сложно. А там хоть шрифты, хоть что угодно делай как тебе надо. ------------------ WBR, Igor |
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
Crispy Сообщений: 18571 Дата регистрации: 16.05.2005 |
Прочиталось: "А хотелось бы фронтом управлять".
Когда-то кстати делал свой класс именно на базе формы. Очень удобная вещь в итоге была - по возможностям какого угодно форматирования текста. Хотя причина создания была и другой - нужно было выводить информацию, иногда не умещающуюся по числу символов ни в стандартный WAIT, ни даже в MESSAGEBOX(). ------------------ В действительности все иначе, чем на самом деле. (Антуан де Сент-Экзюпери) |
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
Ydin Автор Сообщений: 7648 Откуда: Киев Дата регистрации: 16.12.2005 |
Хотя бы фонтом |
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
Simple777 Сообщений: 33855 Дата регистрации: 05.11.2006 |
Повелитель фОнтов!..
|
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
Crispy Сообщений: 18571 Дата регистрации: 16.05.2005 |
В принципе можно. Когда-то на заре ХР интересовался, как менять шрифты у фоксовских окошек. Делается через темы. Но едва ли стоит. Во-первых, придется перегружать рабочий стол для изменений. А потом, сколько помню уже по другому вопросу, из-за которого приходилось потом сталкиваться, у каждой системы в работе с темами свои нюансы стали появляться. Т.е. то, что сделаешь для ХР, уже не сгодится для 7 или тем более для 10. Так что особого смысла городить такой огород из-за окошка вывода видимо все же не стоит. ------------------ В действительности все иначе, чем на самом деле. (Антуан де Сент-Экзюпери) |
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
Taran Сообщений: 13625 Откуда: Красноярск Дата регистрации: 16.01.2008 |
Ерундой маетесь.
|
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008 |
() мтк, да. нарисовать полоску (прогрессор), в форме, или где-либо, это ж элементарно, Ватсон ) Что за вайтики для этого, и тем более их шрифт... Когда лень, то пишу просто в вайтике текущий "123/123456", где 123 - это итерраций прошедших, 123456 - всего итерраций, и вот и прогрессор.
Реальный прогрессор - это тот, который показывает время дальнейшего ожидания, это уже не поделка, хотя тоже может быть изложена и в вайтиках. |
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
sphinx Сообщений: 31184 Откуда: Каменск-Уральски Дата регистрации: 22.11.2006 |
Да ладно! Считываем прошедшее за "123" итераций время и умножением получаем приблизительное время всего расчета. ------------------ "Veni, vidi, vici!"(с) |
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
Sega Сообщений: 511 Откуда: Ярославль Дата регистрации: 27.12.2000 |
Столкнулся со следующей проблемой: у клиента ноутбук с лицензионной американской Win 10 Home. Весь интерфейс системы английский. Запускаю на нем свою программу. Если явно прописывать на формах FontCharSet=204, то с русскими буквами проблем нет. С popup-менюшками тоже удалось проблему решить. Остался только Wait window "<здесь греча>". Есть варианты, как его малой кровью руссифицировать? Может кто поделится ссылкой на свободный класс для замены вывода информационных сообщений? Заранее благодарю.
|
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
Taran Сообщений: 13625 Откуда: Красноярск Дата регистрации: 16.01.2008 |
1.Вероятно поможет установка параметров fonta для _screen так же делаешь для форм.
2.А в чем проблема нарисовать маленькое окошко и юзать его вместо wait wind? |
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
leonid Сообщений: 3204 Откуда: Рига Дата регистрации: 03.02.2006 |
Поменять Language for non-Unicode programs на русский
[attachment 36491 nonunicode.png] |
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008 |
И?
() темы про шрифт... в винде под 125% ...бросьте, это не наши проблы. Исправлено 1 раз(а). Последнее : of63, 18.02.23 20:21 |
Re: Как в команде Wait изменить атрибуты шрифта? | |
---|---|
Vedmak Сообщений: 5970 Откуда: CiTY Дата регистрации: 30.10.2003 |
GUI в VFP не самый быстрый. Зачем его еще своими красотами тормозить?
------------------ Говорить стоит лишь для тех, кто слушает. |
© 2000-2024 Fox Club  |