ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как обойти ограничение на 255 символов в "dynamicforecolor"
8 сообщений из 8, страница 1 из 1
Как обойти ограничение на 255 символов в "dynamicforecolor"
    #35410200
Dezhur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dezhur
Гость
Здравствуйте.
Подскажите пожалуйста можно ли выкрутиться из этой ситуации:
В сторонней функции (отдельный prg который вызывается из фоксовой программы)
пытаюсь присвоить гриду вызывающей программы параметры для dynamicforecolor
Активную форму нахожу (OFORM), значения присваиваются все ок. но это самое простое условий, а оно уже 240 символов. Хотелось бы условие расширить.

FUNCTION Mark_BO
OFORM.MASTERPANEL.GRIDPANEL.GRID.SETALL("dynamicforecolor", "iif(.....) = ALLTRIM('......') and !EMPTY(MLINE(......,1)), rgb(67,67,255),(THIS.RowColor[IIF(RecNo(THIS.RecordSource)=THIS.RecNoCurrent,2,1)+IIF(AScan(THIS.MarkList,RecNo(THIS.RecordSource))>0,2,0), 1]))", 'column')
RETURN "....."
ENDFUNC

учитывая что THIS. использовать нельзя в листиге функции, можно только в передаваемом тексте.
и учитывая, что классы берутся из родительской программы, а она еще не пересобрана под vfox9
получается какаято ж...а


есть какие нибудь идеи?
очень нужно.
если можно реализовать только под vfox9, напишите всеравно может пригодится.
Заранее Спасибо.
...
Рейтинг: 0 / 0
03.07.2008, 21:35
| Ответить | Цитировать | Написать  
Как обойти ограничение на 255 символов в "dynamicforecolor"
    #35410292
1010100021
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
1010100021
Гость
Может попробовать создать пользовательскую функцию
...
Рейтинг: 0 / 0
03.07.2008, 22:45
| Ответить | Цитировать | Написать  
Как обойти ограничение на 255 символов в "dynamicforecolor"
    #35410344
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
На самой форме создается пользовательский метод, с именем, например, setForeColor(). А в Dynamic... организуется вызов этого метода примерно так:

Код: plaintext
OFORM.MASTERPANEL.GRIDPANEL.GRID.SETALL("dynamicforecolor", "ThisForm.setForeColor()","Column")

Ну, а в методе формы уже пишется любая необходимая обработка. Если необходимо, можно передавать в метод параметры текущей строки.

Кроме того, Вы путаете предельно предельное количество символов для константы и символьной переменной.

Если у Вас экран не в 50 дюймов, то 240 символов в одну строку просто не поместится. Зачем же над собой издеваться? Пишите небольшими "кусками". Подробнее читайте здесь

Символьные поля, переменные памяти и константы

Сформируйте в отдельной символьной перменной функцию для Dynamic..., а потом ее используйте в присвоении. Примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
LOCAL lcDynamicFunction
lcDynamicFunction = "iif(.....) = ALLTRIM('......') and !EMPTY(MLINE(......,1)),"+;
		" rgb(67,67,255),"+ ;
		"(THIS.RowColor[IIF(RecNo(THIS.RecordSource)=THIS.RecNoCurrent,2,1)+"+ ;
		"IIF(AScan(THIS.MarkList,RecNo(THIS.RecordSource))>0,2,0), 1]))"

OFORM.MASTERPANEL.GRIDPANEL.GRID.SETALL("dynamicforecolor", m.lcDynamicFunction, "Column")

Чтобы не запутаться в синтаксисе можно использовать текстовые скобки TEXT...ENDTEXT
...
Рейтинг: 0 / 0
03.07.2008, 23:27
| Ответить | Цитировать | Написать  
Как обойти ограничение на 255 символов в "dynamicforecolor"
    #35410603
12345вышелзайчикпогулять
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
12345вышелзайчикпогулять
Гость
в 9-й версии используйте

icase

rgb(67,67,255) - не нужно так писать


делайте так

Код: plaintext
1.
2.
3.
4.
5.
6.
local lcColor1, lcColor2, lcDynamicFunction
lcColor1 = ltri(str(rgb(...))
lcColor2 = ltri(str(rgb(...))
text to lcDynamicFunction noshow textmerge pretext  15  
     icase(......,<<lcColor1>>....,<<lcColor2>> ....
endtext
...
Рейтинг: 0 / 0
04.07.2008, 09:06
| Ответить | Цитировать | Написать  
Как обойти ограничение на 255 символов в "dynamicforecolor"
    #35411149
Dezhur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dezhur
Гость
Большое спасибо за отзывчивость.
очень интересные варианты.

Единственное хочу уточнить -
Есть фоксовая программа, максимум в которой, что я могу сделать - это вызвать Mark_BO.fxp
штатными методами программы.
а всю отработку нужно провести в функции Mark_BO(), которая и может задать значения загруженных в память константам головной программы.
...
Рейтинг: 0 / 0
04.07.2008, 11:57
| Ответить | Цитировать | Написать  
Как обойти ограничение на 255 символов в "dynamicforecolor"
    #35411184
12345вышелзайчикпогулять
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
12345вышелзайчикпогулять
Гость
автор
учитывая что THIS. использовать нельзя

...

максимум в которой, что я могу сделать - это вызвать Mark_BO.fxp


посмотри ветку
/topic/572779&pg=1

там рассказано какими способами ссылаться на форму + примеры (возможно будет полезно)
...
Рейтинг: 0 / 0
04.07.2008, 12:10
| Ответить | Цитировать | Написать  
Как обойти ограничение на 255 символов в "dynamicforecolor"
    #35411188
12345вышелзайчикпогулять
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
12345вышелзайчикпогулять
Гость
авторчто я могу сделать - это вызвать Mark_BO.fxp

нужно вызвать этот модуль и передать в параметр ссылку на форму


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Mark_BO(thisform)

procedure  Mark_BO
lparam toForm
with toForm
   ....
endwith
...
Рейтинг: 0 / 0
04.07.2008, 12:13
| Ответить | Цитировать | Написать  
Как обойти ограничение на 255 символов в "dynamicforecolor"
    #35421767
plokhish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
plokhish
Гость
12345вышелзайчикпогулятьв 9-й версии используйте

icase

rgb(67,67,255) - не нужно так писать


[/src]


0xFF4343

works fine instead of rgb(67,67,255) and takes less space :o)
...
Рейтинг: 0 / 0
09.07.2008, 22:13
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как обойти ограничение на 255 символов в "dynamicforecolor"
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35410344&tid=1587554]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 196ms
total:  347ms
созд. / загр.: 347ms
x
x
Закрыть


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