FoxClub Forums > Visual Foxpro, Foxpro for DOS

• Войти

Combo.Picture
ElenaB Автор Сообщений: 326 Откуда: Москва Дата регистрации: 28.09.2001	ElenaB 23.10.19 12:15:38 Есть комбик, у которого: в Init() --------- WITH This .RowSourceType = 6 .RowSource = 'myTab.myField' .ColumnCount = 1 .PictureSelectionDisplay = 2 ENDWITH в Click() --------- LOCAL i WITH This FOR i = 1 TO .ListCount IF INLIST(i,1,4,6) .Picture(i)= 'myPict1.bmp' ELSE .Picture(i)= 'myPict2.bmp' ENDIF ENDFOR ENDWITH При выборе пункта из списка в текстовом поле комбика картинка отображается, в самом списке - нет. Можно ли как-то получить картинки в списке? Важно, что RowSourceType должен быть 6 или 3.

ElenaB
Автор

Сообщений: 326
Откуда: Москва
Дата регистрации: 28.09.2001

ElenaB

23.10.19 12:15:38

Есть комбик, у которого:


в Init() 
---------
WITH This
    .RowSourceType = 6
    .RowSource = 'myTab.myField'
    .ColumnCount = 1
    .PictureSelectionDisplay = 2
ENDWITH


в Click() 
---------
LOCAL i
WITH This
    FOR i = 1 TO .ListCount
        IF INLIST(i,1,4,6)
            .Picture(i)= 'myPict1.bmp'
        ELSE
            .Picture(i)= 'myPict2.bmp'
        ENDIF
    ENDFOR
ENDWITH

При выборе пункта из списка в текстовом поле комбика картинка отображается, в самом списке - нет.
Можно ли как-то получить картинки в списке?
Важно, что RowSourceType должен быть 6 или 3.

Re: Combo.Picture
Перминов Игорь Сообщений: 1591 Откуда: Красная Орловка Дата регистрации: 16.09.2001	Перминов Игорь 24.10.19 14:20:06 в Init() --------- WITH This .RowSourceType = 6 .RowSource = 'myTab.myField' .ColumnCount = 1 .PictureSelectionDisplay = 2 .PictureSelectedDisplay = 1 // Это нужно еще установить ENDWITH [attachment 32168 ] [attachment 32169 ] ------------------ Без коментариев.. Исправлено 1 раз(а). Последнее : Перминов Игорь, 24.10.19 14:23

Re: Combo.Picture

Перминов Игорь

Сообщений: 1591
Откуда: Красная Орловка
Дата регистрации: 16.09.2001

Перминов Игорь

24.10.19 14:20:06

в Init()
---------
WITH This
.RowSourceType = 6
.RowSource = 'myTab.myField'
.ColumnCount = 1
.PictureSelectionDisplay = 2
.PictureSelectedDisplay = 1 // Это нужно еще установить
ENDWITH
[attachment 32168 ]
[attachment 32169 ]

------------------
Без коментариев..

Исправлено 1 раз(а). Последнее : Перминов Игорь, 24.10.19 14:23

Re: Combo.Picture
ElenaB Автор Сообщений: 326 Откуда: Москва Дата регистрации: 28.09.2001	ElenaB 28.10.19 11:11:54 Спасибо, Игорь. Извините, что откликаюсь так поздно. Что-то не получается... Перминов Игорь .PictureSelectedDisplay = 1 // Это нужно еще установить Не найду такое свойство. Заменяла на PictureSelectionDisplay. Пробовала разные варианты для него, и в дизайнере и в коде. Все равно, при раскрытии комбика картинок в списке нет, появляется она уже при выборе пункта в поле ввода комбика. Если в дизайнере назначить картинку как у Вас в примере, а в Init и Click приведенный код, то в списке появляется именно назначенная в дизайнере картинка. Правильная появится только при выборе пункта в поле ввода. Часть текста скрыта Закрыть Да, VFP9+SP2, Windows7, SP1, 64х.

Re: Combo.Picture

ElenaB
Автор

Сообщений: 326
Откуда: Москва
Дата регистрации: 28.09.2001

ElenaB

28.10.19 11:11:54

Спасибо, Игорь. Извините, что откликаюсь так поздно.
Что-то не получается...

Перминов Игорь
.PictureSelectedDisplay = 1 // Это нужно еще установить

Не найду такое свойство. Заменяла на PictureSelectionDisplay. Пробовала разные варианты для него, и в дизайнере и в коде.
Все равно, при раскрытии комбика картинок в списке нет, появляется она уже при выборе пункта в поле ввода комбика.

Если в дизайнере назначить картинку как у Вас в примере, а в Init и Click приведенный код, то в списке появляется именно назначенная в дизайнере картинка. Правильная появится только при выборе пункта в поле ввода.

Часть текста скрыта

Да, VFP9+SP2, Windows7, SP1, 64х.

Re: Combo.Picture
Перминов Игорь Сообщений: 1591 Откуда: Красная Орловка Дата регистрации: 16.09.2001	Перминов Игорь 28.10.19 17:22:01 [attachment 32184 01_01.JPG] ------------------ Без коментариев..

Re: Combo.Picture
akvvohinc Сообщений: 4219 Откуда: Москва Дата регистрации: 11.11.2008	akvvohinc 29.10.19 03:44:58 ElenaB При выборе пункта из списка в текстовом поле комбика картинка отображается, в самом списке - нет. Думаю, вы неверно понимаете, в какой момент работы с комбо отрабатывает событие Click. Переместите ваш код из Click в MouseDown, например - кое-что должно поменяться. Да и о работе с комбо без мышки, только с клавиатуры, стоит подумать.

Re: Combo.Picture

akvvohinc

Сообщений: 4219
Откуда: Москва
Дата регистрации: 11.11.2008

akvvohinc

29.10.19 03:44:58

ElenaB
При выборе пункта из списка в текстовом поле комбика картинка отображается, в самом списке - нет.

Думаю, вы неверно понимаете, в какой момент работы с комбо отрабатывает событие Click.
Переместите ваш код из Click в MouseDown, например - кое-что должно поменяться.
Да и о работе с комбо без мышки, только с клавиатуры, стоит подумать.

Re: Combo.Picture
ElenaB Автор Сообщений: 326 Откуда: Москва Дата регистрации: 28.09.2001	ElenaB 29.10.19 09:32:39 akvvohinc, Получилось, спасибо!

:: Список Форумов•Список тем•Поиск•Войти

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

On-line: 50 Владимир Максимов (Гостей: 49)