ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ListBox к строчке добавить картинку
10 сообщений из 10, страница 1 из 1
ListBox к строчке добавить картинку
    #34202378
Scorpio_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorpio_md
Участник
Добрый день. Подскадите, создаю курсор, отправляю его данные в курсор, но я хочу каким нибудь образом при определенных условиях некоторым записям вначале добавить маленькую картинку, или каким нибудь образом ее отделить от остальных, что бы было видно, что он имеет уровень вниз, т.е. при нажатии на нее, появится другой список.
...
Рейтинг: 0 / 0
15.12.2006, 11:41
| Ответить | Цитировать | Написать  
ListBox к строчке добавить картинку
    #34202557
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
Например так:
Код: plaintext
THISFORM.MyListBox.Picture(i) = "mypict.bmp"
Где i - это индекс в твоем ListBox

С уважением, Алексей
...
Рейтинг: 0 / 0
15.12.2006, 12:19
| Ответить | Цитировать | Написать  
ListBox к строчке добавить картинку
    #34203134
Scorpio_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorpio_md
Участник
А можно каким нибудь образом изменить цвет определенных строчек,т.е. есть таблица, там есть поле UROV_, если оно = 1 то цвет шрифта этой строчки окрашивался в красный цвет, иначе черный.
...
Рейтинг: 0 / 0
15.12.2006, 14:10
| Ответить | Цитировать | Написать  
ListBox к строчке добавить картинку
    #34203222
Maltsev Max
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maltsev Max
Гость
Код: plaintext
1.
this.SetAll("dynamicbackcolor", ;
    "iif(MyTable.UROV_=1, RGB(255,176,138),rgb(255,255,255))", "column")

В ментоде Рефрешь
...
Рейтинг: 0 / 0
15.12.2006, 14:26
| Ответить | Цитировать | Написать  
ListBox к строчке добавить картинку
    #34203632
Scorpio_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorpio_md
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
        ThisForm.lstLiList.RowSource='Select ALLT(text_) as txt_, kod_,ics0_, urov_ FROM edit_klass1 ORDER BY urov_,text_ INTO CURS cLiList READWRITE'
        ThisForm.lstLiList.ENABLED = .T.
        ThisForm.lstLiList.REQUERY
        SELECT cLiList
        nKk= 1 
        SCAN   
            DO CASE
               CASE !ISNULL(cLiList.urov_)
                     this.SetAll("dynamicbackcolor", "iif(cLiList.UROV_=1, RGB(255,176,138),rgb(255,255,255))", "column") 
*                    IF cLiList.urov_ =  1 
*                       REPLACE  cLiList.txt_ WITH '->'+' '+ALLTRIM(txt_)
*                    ENDIF   
               OTHERWISE
                    REPLACE  cLiList.txt_ WITH ALLTRIM(txt_)     
            ENDCASE
        ENDSCAN   
ENDCASE 
thisform.lstLiList.Refresh

вот мой код, может я что то не так сделал, но я никакого эфекта не получил, все одного черонго цвета.
...
Рейтинг: 0 / 0
15.12.2006, 15:55
| Ответить | Цитировать | Написать  
ListBox к строчке добавить картинку
    #34203675
Jurisfox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jurisfox
Гость
То что указал Max Maltsev применимо к Grid.
ListBox можно раскрасить только в том случае, когда в качестве источника
данных используется popup.


Никогда не говори "невозможно", просто попробуй сделать иначе!
JS (at FoxClub)
...
Рейтинг: 0 / 0
15.12.2006, 16:03
| Ответить | Цитировать | Написать  
ListBox к строчке добавить картинку
    #34203715
Scorpio_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorpio_md
Участник
JurisfoxТо что указал Max Maltsev применимо к Grid.
ListBox можно раскрасить только в том случае, когда в качестве источника
данных используется popup.

JS (at FoxClub)

и как если не секрет ????
...
Рейтинг: 0 / 0
15.12.2006, 16:11
| Ответить | Цитировать | Написать  
ListBox к строчке добавить картинку
    #34203746
Jurisfox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jurisfox
Гость
http://foxclub.ru/rhproject/project/html/fc04167c-d5e1-4933-bbfb-95fd6115413a.htm
http://foxclub.ru/rhproject/project/html/2fc7bf2a-2e0e-49ee-b784-fc1562bf2260.htm

Для bar's указать цвет.

Никогда не говори "невозможно", просто попробуй сделать иначе!
JS (at FoxClub)
...
Рейтинг: 0 / 0
15.12.2006, 16:16
| Ответить | Цитировать | Написать  
ListBox к строчке добавить картинку
    #34203768
Jurisfox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jurisfox
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Define Class myForm As Form
Add Object myListBox As ListBox With ;
top =  10 , Left =  10 , Height =  200 , Width =  180 

Procedure myListBox.Init
Define Popup myPop Font [Arial], 12  Style 
Define Bar  [b]1  Of myPop Prompt 'element 1' ;
FONT [Arial], 12  Style  ;
COLOR ,Rgb(,,, [b]212 , 208 , 200 ),,,,Rgb( 255 , 255 , 255 ,
 0 , 0 , 128 )
Define Bar  2  Of myPop Prompt 'element 2' ;
FONT [Arial], 12  Style [BI] ;
COLOR ,Rgb(,,, 212 , 208 , 200 ),,,,Rgb( 255 , 255 , 255 ,
 0 , 0 , 128 )
Define Bar  3  Of myPop Prompt 'element 3' ;
FONT [Arial], 12  Style [I] ;
COLOR ,Rgb( 255 , 255 , 255 , 255 , 0 , 0 ),,,,Rgb( 255 , 0 , 0 
, 255 , 255 , 0 )
Define Bar  4  Of myPop Prompt 'element 4' ;
FONT [Arial], 8  ;
COLOR ,Rgb( 0 , 255 , 0 , 255 , 255 , 0 ),,,,Rgb( 255 , 0 , 0 , 0 
, 255 , 255 )

With This
.RowSourceType =  9 
.RowSource = 'myPop'
.ColumnCount =  2 
.ColumnLines = .T.
.ColumnWidths = '130,20'
For ix= 1  To  4 
.List(m.ix, 2 ) = 'C'+Trans(m.ix)
Endfor
Endwith
Endproc
Enddefine

Никогда не говори "невозможно", просто попробуй сделать иначе!
JS (at FoxClub)
...
Рейтинг: 0 / 0
15.12.2006, 16:20
| Ответить | Цитировать | Написать  
ListBox к строчке добавить картинку
    #34206272
Maltsev Max
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maltsev Max
Гость
JurisfoxТо что указал Max Maltsev применимо к Grid.
ListBox можно раскрасить только в том случае, когда в качестве источника
данных используется popup.


Никогда не говори "невозможно", просто попробуй сделать иначе!
JS (at FoxClub)

Опс ...
Не доглядел.
...
Рейтинг: 0 / 0
18.12.2006, 08:14
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ListBox к строчке добавить картинку
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=219&tid=1590137]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 23ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 215ms
total:  294ms
созд. / загр.: 294ms
x
x
Закрыть


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