TUniColorButton - как выбрать пустой цвет?

[x11]

2 вопроса.

1. У TUniColorButton есть черный и белый цвета. Но как выбрать "пустой" цвет clNone? Например, пользователь хочет "очистить" цвет, т.е. чтобы в базу, в настройки записалось значение типа null/nil. Что нужно выбрать на палитре?

Может быть можно в палитру как-то добавить свою пользовательскую кнопку типа "Очистить цвет"? Если да, то как?

2. Как выбирать пользовательский цвет? Например, как на картинке?

 

P.S. Честно говоря, стандартная палитра очень и очень скудная.

Спасибо.

[x11]

Может быть можно к TUniColorButton добавить триггер (дополнительную кнопку)?

[x11]

Т.к. триггеров нет, я решил добавить свою кнопку в контейнер (TuniToolbutton.Style := tbsContainer).

Первые 2 картинки показывают, что в дизайне кнопка есть.

А в браузере кнопка уже не отображается (картинка 3).

[x11]

DevTools показывает, что кнопка смещается вниз и она невидима (картинка 1).

Хотя видно, что место в контейнере есть (картинка 2).

 

Я так подразумеваю, что контейнер имеет вертикальный макет. Тогда как его сделать горизонтальным?

[x11]

Поспешил.

 Нашел свойство Layout

[Sherzod]

On 12/21/2020 at 7:20 PM, x11 said:

Скоро будет доступна

[x11]

не хватает кнопки "clear", как мне кажется

[Sherzod]

3 minutes ago, x11 said:

не хватает кнопки "clear", как мне кажется

Какое значение должно быть в этом случае?

[x11]

константа clNone

[x11]

http://docwiki.embarcadero.com/RADStudio/Sydney/en/Colors_in_the_VCL

clNone Represents no colors (black) $1FFFFFFF

[x11]

0 (ноль) нельзя, т.к. ноль - это clBlack

[Sherzod]

Да, для TColor должно быть clNone, а для TAlphaColor - Null.

[x11]

да  http://docwiki.embarcadero.com/Libraries/Sydney/en/System.UITypes.TAlphaColorRec

или $00000000

[x11]

еще есть

claNull claNull: TAlphaColor = 0;

http://docwiki.embarcadero.com/Libraries/Sydney/en/System.UIConsts

[Sherzod]

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  ShowMessage('UniPanel1.Color -> ' + ColorToString(UniPanel1.Color))
end;

procedure TMainForm.UniColorBox1SelectEvent(Sender: TObject; NewAlphaColor,
  OldAlphaColor: TAlphaColor; NewColor: TColor);
begin
  UniPanel1.Color := NewColor;
  UniColorBox2.SelectedColor := NewAlphaColor;
end;

 

[picyka]

On 12/27/2020 at 1:11 PM, Sherzod said:

Скоро будет доступна

What is the name of this component in unigui?

[Sherzod]

3 hours ago, picyka said:

What is the name of this component in unigui?

Hello,

This component will be included in the next builds.

[x11]

а по мобильномой компоненте для выбора цвета пока ничего не известно?

[Sherzod]

Just now, x11 said:

а по мобильномой компоненте для выбора цвета пока ничего не известно?

Здравствуйте,

5 hours ago, Sherzod said:

This component will be included in the next builds.

И для мобильной.

[x11]

up

[x11]

up

[x11]

On 12/27/2020 at 6:11 PM, Sherzod said:

Скоро будет доступна

??

[Sherzod]

On 12/21/2020 at 7:20 PM, x11 said:

 

On 12/27/2020 at 9:11 PM, Sherzod said:

Скоро будет доступна

[Sherzod]

On 7/1/2021 at 5:33 PM, x11 said:

??

Я подготовлю и чуть позже выложу пример (компонент).

[Sherzod]

On 7/1/2021 at 5:33 PM, x11 said:

??