Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Подсветка! / 19 сообщений из 19, страница 1 из 1
01.09.2004, 12:23
    #32675089
Alex Is
Alex Is
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Доброго времени суток!!!

У меня вопрос!
Как сделать ... что бы при выполнении определенного условия менялся цвет textbox!(backcolor)

Спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 12:44
    #32675154
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
не совсем понятен вопрос при выполнениии каких условий ?
если можно поконкретнее : как то содержание самого текста
тогда может быть поможет метод interactivechange
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 13:06
    #32675211
Alex Is
Alex Is
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
if inknig.data_post_archive != ctod("01.01.1900")

тогда изменять цвет textbox 'а в форме!!!
Не шрифт, а именно задний фон!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 13:22
    #32675247
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
понимаете все равно не все понятно
вот inknig.data_post_archive это свойство какого-то объекта если да то какого типа
где это свойство изменяется и т.п.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 13:35
    #32675280
Alex Is
Alex Is
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Что тут непонятного!?

Вообщем... есть сквозной запрос... в результате получается курсор с именем inknig. В inknig есть поле data_post_archive!
Если значение этого поля не равно "01.01.1900" тогда надо поменять цвет textbox 'а в форме куда скидываются данные из данного курсора!

Вопрос! Как поменять цвет!?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 13:43
    #32675310
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
ну например после выполнения этого запроса и меняй
свойство backcolor в зависимости от полученного значения
ты же тексбоксу значения навязываешь как-то
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 13:47
    #32675330
sar99
sar99
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
проанализируй твое поле в init формы
и тут же при необходимости в операторе if
помняй фон нужного textbox
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 13:53
    #32675367
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
2sar это правильно если запрос запускается например в load формы
а при последующих изменениях нужно действовать соответственно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 14:25
    #32675468
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Код: plaintext
1.
2.
IF inknig.data_post_archive != ctod("01.01.1900")
	ThisForm.TextBox1.BackColor = RGB( 255 , 255 , 128 )
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 15:17
    #32675619
Alex Is
Alex Is
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Увы...я так уже пробовал писать но ничего у меня не вышло!!! Потому кинул вопрос на форум!
Код: plaintext
1.
2.
IF inknig.data_post_archive != ctod("01.01.1900")
	ThisForm.container1.Text6.BackColor = RGB( 255 ,  0 ,  0 )
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2004, 15:20
    #32675629
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Что не выходит? Изменение цвета или ошибка на команде CTOD(). Ты в курсе, что сравнение дат это очень не очевидная операция, которая зависит от ряда настроек?

Если убрать условие прямое присвоение цвета проходит?

ThisForm.container1.Text6.BackColor = RGB(255, 0, 0)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2004, 01:16
    #32676470
Alex Is
Alex Is
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Код: plaintext
1.
Ты в курсе, что сравнение дат это очень не очевидная операция, которая зависит от ряда настроек?
Да я вкурсе!! В моем случае все получается и работает!(всмысле сравнения)

Код: plaintext
1.
Если убрать условие прямое присвоение цвета проходит?
Нет не проходит! В этом то вся и проблема!

Жду советов!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2004, 01:25
    #32676471
BladeRunner
BladeRunner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Дружище, проверь свойство BackStyle (для TextBox), случаем не Transparent-ли оно у тебя? Далее ... ммм ... случаем ты свой код не "обрамлял" конструкцией типа:

ThisForm.LockScreen = True
...
ThisForm.LockScreen = False

и не забыл-ли установить его в False.

А проще всего создай одну единственную форму с кнопкой и полем ввода. На Click() кнопки воткни:

ThisForm.txtControl.BackColor = RGB(255, 0, 0)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2004, 01:37
    #32676477
BladeRunner
BladeRunner
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Это конечно экзотика, но ... если для поля ввода установить DisabledBackColor и DisabledForeColor такими как Back и ForeColor, при этом для элемента управления установить Enabled = False - ты естественно ничего не увидишь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2004, 10:51
    #32676805
Alex Is
Alex Is
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
BladeRunnerДружище, проверь свойство BackStyle (для TextBox), случаем не Transparent-ли оно у тебя?

Неа свойство
Код: plaintext
BackStyle
выставленно по дефолту OPAQUE

BladeRunnerДалее ... ммм ... случаем ты свой код не "обрамлял" конструкцией типа:

ThisForm.LockScreen = True
...
ThisForm.LockScreen = False
Проект не мой! Я всего лишь дополняю его! Просмотрел... все в порядке!

Единственное что у меня получилось это менять обрамление textbox (bordercolor)! Для этого нужно было поставить свойство specialEffect как Plain!

А вот поменять задний фон..... :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2004, 11:22
    #32676926
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Если проект чужой, то может быть много чего. Тут надо включать дебаггер и по шагам смотреть, что и как там происходит.

Проверь сам факт изменения значения BackColor. Т.е. сравни значение ДО того как ты внес изменения и значение после открытия формы. Может в коде где-то прописано принудетельная установка цвета фона ПОСЛЕ того, как ты внес изменения.

И кстати, о какой версии FoxPro идет речь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2004, 17:12
    #32678087
Alex Is
Alex Is
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Фокс 6-й!!!
Вобщем я все сделал!!! Все было очень просто! Опять сыграла моя невнимательность! :((

Код: plaintext
1.
2.
3.
4.
5.
if inknig.data_post_archive != ctod("01.01.1900")
	
	thisform.container1.text6.disabledbackcolor = RGB( 23 , 247 , 35 ) 
else
	thisform.container1.text6.disabledbackcolor = RGB( 236 , 233 , 216 ) 	
endif

Код: plaintext
disabledbackcolor
- Вот что мне было нужно!!! :))
Ну судите строго!!
Всем большое спасибо за помощь!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2004, 17:21
    #32678114
Alex Is
Alex Is
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
BladeRunnerЭто конечно экзотика, но ... если для поля ввода установить DisabledBackColor и DisabledForeColor такими как Back и ForeColor, при этом для элемента управления установить Enabled = False - ты естественно ничего не увидишь.

... ответ то был дан!!!

BladeRunner Спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2004, 18:10
    #32678209
vklepko
vklepko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсветка!
Не по теме немножко
по-моему, ctod("01.01.1900") слишком сильно сказано. Лучше date(1900,1,1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Подсветка! / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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