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

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

В ментоде Рефрешь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2006, 15:55
    #34203632
Scorpio_md
Scorpio_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox к строчке добавить картинку
Код: 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, 16:03
    #34203675
Jurisfox
Jurisfox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox к строчке добавить картинку
То что указал Max Maltsev применимо к Grid.
ListBox можно раскрасить только в том случае, когда в качестве источника
данных используется popup.


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

JS (at FoxClub)

и как если не секрет ????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.12.2006, 16:16
    #34203746
Jurisfox
Jurisfox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox к строчке добавить картинку
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:20
    #34203768
Jurisfox
Jurisfox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox к строчке добавить картинку
Код: 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
| Ответить | Цитировать | Написать  
18.12.2006, 08:14
    #34206272
Maltsev Max
Maltsev Max
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox к строчке добавить картинку
JurisfoxТо что указал Max Maltsev применимо к Grid.
ListBox можно раскрасить только в том случае, когда в качестве источника
данных используется popup.


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

Опс ...
Не доглядел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ListBox к строчке добавить картинку / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 455ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1590137]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 150ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 215ms
total:  455ms
x
x
Закрыть


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