Перейти к содержанию

CEComboBox1 как сделать выпадающий список


Submarina

Рекомендуемые сообщения

48 минуты назад, Submarina сказал:

Пожалуйста подправьте меня, где я ошибся.

Скрытый текст

 


ViborHP = getProperty(UDF1.CEComboBox1,'ItemIndex') 
if ViborColor == 0 then 

 

ViborColor* = get..

  • Плюс 1
Ссылка на комментарий
Поделиться на другие сайты

Я так уже делал, а если я захочу несколько цветов поставить на выбор, как мене быть.

Изменено пользователем Submarina
Ссылка на комментарий
Поделиться на другие сайты

4 минуты назад, Submarina сказал:

Я так уже делал, а если я захочу несколько цветов поставить на выбор, как мене быть.

Так я не понял что ты хочешь ты сказал поправить я поправил. Что ты хочешь? Не легче .colorPicker прописать?

  • Плюс 1
Ссылка на комментарий
Поделиться на другие сайты

Я там таблицу выложил, в ней не много не правильный код, там выбора из пяти CELabel я попросил их подправить, потому что мой код не работает, цвет при выборе не меняет.

A то что ты предложил, если в писать ViborColor = get то какое значения не выбирай 1,2 или 3 она всё делает красным. 

Ссылка на комментарий
Поделиться на другие сайты

4 минуты назад, Submarina сказал:

Я там таблицу выложил, в ней не много не правильный код, там выбора из пяти CELabel я попросил их подправить, потому что мой код не работает, цвет при выборе не меняет.

A то что ты предложил, если в писать ViborColor = get то какое значения не выбирай 1,2 или 3 она всё делает красным. 

Так у тебя в коде только один цвет :)  У тебя код не работает потому что ты пишешь ViborHP = getProperty(...) if ViborColor == ...
Я не пойму чего ты желаешь. Ты написал что код не меняет цвет я тебе его поправил и он теперь меняет цвет? Меняет.

Изменено пользователем what228
  • Плюс 1
Ссылка на комментарий
Поделиться на другие сайты

Слушай да ты прав, вот так вот в писал, и всё заработало ViborColor = getProperty(UDF1.CEComboBox1,'ItemIndex')

Благодарю тебя спасибо большое what228 бошка у меня болит, и не варит толком.

Репутацию я тебе позже изменю,what228 а то я вчера всё раз дал, а время ещё не подошло давать новую.

Изменено пользователем Submarina
Ссылка на комментарий
Поделиться на другие сайты

14 минуты назад, Submarina сказал:

Я там таблицу выложил, в ней не много не правильный код, там выбора из пяти CELabel я попросил их подправить, потому что мой код не работает, цвет при выборе не меняет.

A то что ты предложил, если в писать ViborColor = get то какое значения не выбирай 1,2 или 3 она всё делает красным. 

Скрытый текст

function CEComboBox1Change(sender)
ViborColor = getProperty(UDF1.CEComboBox1,'ItemIndex')
if ViborColor == 0 then
local colorPicker = getMainForm().findComponentByName("ColorDialog1")
colorPicker.Execute()
if colorPicker.Execute then
UDF1.CELabel1.Font.Color = colorPicker.Color
end
end
if ViborColor == 1 then
local colorPicker = getMainForm().findComponentByName("ColorDialog1")
colorPicker.Execute()
if colorPicker.Execute then
UDF1.CELabel2.Font.Color = colorPicker.Color
end
end
if ViborColor == 2 then
local colorPicker = getMainForm().findComponentByName("ColorDialog1")
colorPicker.Execute()
if colorPicker.Execute then
UDF1.CELabel3.Font.Color = colorPicker.Color
end
end
if ViborColor == 3 then
local colorPicker = getMainForm().findComponentByName("ColorDialog1")
colorPicker.Execute()
if colorPicker.Execute then
UDF1.CELabel4.Font.Color = colorPicker.Color
end
end
end

 

На вот такой :) Теперь можешь выбрать какой угодно цвет для каждого CELabel#.
Только под свою таблицу поправь его.

Изменено пользователем what228
  • Плюс 1
Ссылка на комментарий
Поделиться на другие сайты

  • 3 месяца спустя...

Я так и не пойму, почему не меняет цвет панели,с помощью функции ViborColor = getProperty(UDF1.CEComboBox1,'ItemIndex') это вообще возможно или нет, на CELabel можно поменять цвет, а  цвет панели почему то не меняет, может кто поможет подскажет что не так.

Изменено пользователем Submarina
Ссылка на комментарий
Поделиться на другие сайты

2 часа назад, Submarina сказал:

Я так и не пойму, почему не меняет цвет панели,с помощью функции ViborColor = getProperty(UDF1.CEComboBox1,'ItemIndex')

Ты хочешь поменять цвет каждой строки в ComboBox?

CEPanel

function CEComboBox1Change(sender)
ViborColor = getProperty(UDF1.CEComboBox1,'ItemIndex')
if ViborColor >= -1 then
local colorPicker = getMainForm().findComponentByName("ColorDialog1")
colorPicker.Execute()
if colorPicker.Execute then
UDF1.CEPanel1.Color = colorPicker.Color
end
end
end

Если тебе нужно менять цвет выпадающего списка то в настройках CEComboBox в строке [ Style ] поставь [ csOwnerDrawFixed ] и тогда цвет фона выпадающего списка будет такой же как и фон у самого CEComboBox.

Изменено пользователем what228
  • Плюс 1
Ссылка на комментарий
Поделиться на другие сайты

  • keng закрыл тема
Гость
Эта тема закрыта для публикации ответов.
×
×
  • Создать...

Важная информация

Находясь на нашем сайте, Вы автоматически соглашаетесь соблюдать наши Условия использования.