Sergiy_83

С помощью одного трэкбара - не получится. Нужно как минимум 2: 1-ый - HuewTrackBar, 2 -ой - BWTrackBar. Далее, с помощью функции HSLToRGB получить RGB: HSLToRGB(HuewTrackBar.Value, 0.5, BWTrackBar.Value). Обычно этого хватает. Если нет - добавьте еще один BWTrackBar для выбора S.
 

Нужно использовать еще и якоря. См. пример.
Может вам подойдет.  
EX.zip

Нужно использовать еще и якоря. См. пример.
Может вам подойдет.  
EX.zip

Распакуйте  в c:\Users\Public\Documents\Embarcadero\Studio\19.0\PlatformSDKs этот архив https://cloud.mail.ru/public/Kn5h/Fp9634UiK
 

Распакуйте  в c:\Users\Public\Documents\Embarcadero\Studio\19.0\PlatformSDKs этот архив https://cloud.mail.ru/public/Kn5h/Fp9634UiK
 

System.UIConsts.RGBtoHSL(RGB: TAlphaColor; out H, S, L: Single).
Параметр H и есть hue.

procedure TForm2.HueTrackBar1Change(Sender: TObject);
begin
  Rectangle1.Fill.Color := HSLtoRGB(HueTrackBar1.Value,1,0.5);
end;
 

Мы с вами в одном окопе. Путь к ListView лежит через ListBox. т.e надо помучится с listbox что бы понять что без ListView не обойтись. 
В чате как правило картинка и текст возможно не один. 

Создайте в ListView в режиме dinamicAppearance свои поля со своими именами, Далее ПКМ по listView выбираете TogleDesignMode там двигаете свои добавленные поля как вам удобно. 
Далее смотрите код. Чем смог тем помог!
//Добавить итем в список void __fastcall TTabbedForm::add_item(int num_ico,UnicodeString *fname, UnicodeString *ext_name, unsigned int color)     {     TListItemText  *ext;     TListItemImage  *ico;     TListViewItem* item = ListView1->Items->Add();     item->Height = 30;     ext = dynamic_cast<TListItemText*>(item->Objects->FindDrawable("extenssion_text"));     if (ext)         {         ext->PlaceOffset->X = ListView1->Width -  60;         ext->Text = *ext_name;         ext->TextColor = color;         }     ext = dynamic_cast<TListItemText*>(item->Objects->FindDrawable("file_name_text"));     if (ext)         {         ext->Text = *fname;         ext->TextColor = color;         if (num_ico==0)    ext->Width = ListView1->Width - 10;   //длина до расширения.         else            ext->Width = ListView1->Width - 90;   //длина до расширения.         }     ico = dynamic_cast<TListItemImage*>(item->Objects->FindDrawable("Icon_Image"));     if (ico)         {         switch (num_ico)             {             case 0: ico->Bitmap = Image_64x64_ret->Bitmap;         break;             case 1: ico->Bitmap = Image_64x64_folder->Bitmap;     break;             case 2:    ico->Bitmap = Image_48x48_spk->Bitmap;         break;             case 3: ico->Bitmap = Image_64x64_play->Bitmap;     break;             case 4: ico->Bitmap = Image_64x64_pause->Bitmap;     break;             default:  break;             }         }     }  

Мы с вами в одном окопе. Путь к ListView лежит через ListBox. т.e надо помучится с listbox что бы понять что без ListView не обойтись. 
В чате как правило картинка и текст возможно не один. 

Создайте в ListView в режиме dinamicAppearance свои поля со своими именами, Далее ПКМ по listView выбираете TogleDesignMode там двигаете свои добавленные поля как вам удобно. 
Далее смотрите код. Чем смог тем помог!
//Добавить итем в список void __fastcall TTabbedForm::add_item(int num_ico,UnicodeString *fname, UnicodeString *ext_name, unsigned int color)     {     TListItemText  *ext;     TListItemImage  *ico;     TListViewItem* item = ListView1->Items->Add();     item->Height = 30;     ext = dynamic_cast<TListItemText*>(item->Objects->FindDrawable("extenssion_text"));     if (ext)         {         ext->PlaceOffset->X = ListView1->Width -  60;         ext->Text = *ext_name;         ext->TextColor = color;         }     ext = dynamic_cast<TListItemText*>(item->Objects->FindDrawable("file_name_text"));     if (ext)         {         ext->Text = *fname;         ext->TextColor = color;         if (num_ico==0)    ext->Width = ListView1->Width - 10;   //длина до расширения.         else            ext->Width = ListView1->Width - 90;   //длина до расширения.         }     ico = dynamic_cast<TListItemImage*>(item->Objects->FindDrawable("Icon_Image"));     if (ico)         {         switch (num_ico)             {             case 0: ico->Bitmap = Image_64x64_ret->Bitmap;         break;             case 1: ico->Bitmap = Image_64x64_folder->Bitmap;     break;             case 2:    ico->Bitmap = Image_48x48_spk->Bitmap;         break;             case 3: ico->Bitmap = Image_64x64_play->Bitmap;     break;             case 4: ico->Bitmap = Image_64x64_pause->Bitmap;     break;             default:  break;             }         }     }  

Мы с вами в одном окопе. Путь к ListView лежит через ListBox. т.e надо помучится с listbox что бы понять что без ListView не обойтись. 
В чате как правило картинка и текст возможно не один. 

Создайте в ListView в режиме dinamicAppearance свои поля со своими именами, Далее ПКМ по listView выбираете TogleDesignMode там двигаете свои добавленные поля как вам удобно. 
Далее смотрите код. Чем смог тем помог!
//Добавить итем в список void __fastcall TTabbedForm::add_item(int num_ico,UnicodeString *fname, UnicodeString *ext_name, unsigned int color)     {     TListItemText  *ext;     TListItemImage  *ico;     TListViewItem* item = ListView1->Items->Add();     item->Height = 30;     ext = dynamic_cast<TListItemText*>(item->Objects->FindDrawable("extenssion_text"));     if (ext)         {         ext->PlaceOffset->X = ListView1->Width -  60;         ext->Text = *ext_name;         ext->TextColor = color;         }     ext = dynamic_cast<TListItemText*>(item->Objects->FindDrawable("file_name_text"));     if (ext)         {         ext->Text = *fname;         ext->TextColor = color;         if (num_ico==0)    ext->Width = ListView1->Width - 10;   //длина до расширения.         else            ext->Width = ListView1->Width - 90;   //длина до расширения.         }     ico = dynamic_cast<TListItemImage*>(item->Objects->FindDrawable("Icon_Image"));     if (ico)         {         switch (num_ico)             {             case 0: ico->Bitmap = Image_64x64_ret->Bitmap;         break;             case 1: ico->Bitmap = Image_64x64_folder->Bitmap;     break;             case 2:    ico->Bitmap = Image_48x48_spk->Bitmap;         break;             case 3: ico->Bitmap = Image_64x64_play->Bitmap;     break;             case 4: ico->Bitmap = Image_64x64_pause->Bitmap;     break;             default:  break;             }         }     }  

Рестарт Windows и Android? 

Сделал то что надо на основе progressbar, получилось еще красивее.
Основа – rectangle, на ней progressbar у него HitTest = false и выравнивание по горизонтали. На rectangle повесил три события OnMouseDown, OnMouseMove и OnMouseLeave. У первых двух код устанавливает Value прогресбара в соответствии координатой пальца по оси X.  OnMouseLeave это основное действие которое выполняется после того как палец ушел за пределы или отрыв в любом месте. В моем случае это перемотка по файлу. Rectangle полезен когда progressbar узкий, для удобства использования. Цвет ему прозрачный, закруглить углы и получается довольно симпатичный контрЛ.
 

Сделал то что надо на основе progressbar, получилось еще красивее.
Основа – rectangle, на ней progressbar у него HitTest = false и выравнивание по горизонтали. На rectangle повесил три события OnMouseDown, OnMouseMove и OnMouseLeave. У первых двух код устанавливает Value прогресбара в соответствии координатой пальца по оси X.  OnMouseLeave это основное действие которое выполняется после того как палец ушел за пределы или отрыв в любом месте. В моем случае это перемотка по файлу. Rectangle полезен когда progressbar узкий, для удобства использования. Цвет ему прозрачный, закруглить углы и получается довольно симпатичный контрЛ.
 

Сделал то что надо на основе progressbar, получилось еще красивее.
Основа – rectangle, на ней progressbar у него HitTest = false и выравнивание по горизонтали. На rectangle повесил три события OnMouseDown, OnMouseMove и OnMouseLeave. У первых двух код устанавливает Value прогресбара в соответствии координатой пальца по оси X.  OnMouseLeave это основное действие которое выполняется после того как палец ушел за пределы или отрыв в любом месте. В моем случае это перемотка по файлу. Rectangle полезен когда progressbar узкий, для удобства использования. Цвет ему прозрачный, закруглить углы и получается довольно симпатичный контрЛ.
 

В редактировании стиля найди selection, у него SourceLink и перетащи на кружок синий снизу слева. Измени размер и будет щастье... хотя наверняка как-то это тупо, можно правильнее.

У меня вот так:
    TListBoxItem *lbi = new TListBoxItem(ListBox1);
    lbi->StyleLookup = "ListBoxItem_player";
    lbi->Height = 32;
    lbi->Text = *fname;
    ListBox1->AddObject(lbi);
Правильно это или нет, сам не знаю. Но работает. 

А обработчик вешаете на ListBox или на итемы? Просто итемат листбокса можно задавать свои обработчики OnClick:
procedure TForm1.ListBoxItem1Click(Sender: TObject); begin ShowMessage((Sender as TListBoxItem).Index.ToString); end; А можно задать обработчик OnItemClick у самого листбокса, и индекс узнавать например так:
procedure TForm1.ListBox1ItemClick(const Sender: TCustomListBox; const Item: TListBoxItem); begin ShowMessage(Item.Index.ToString); end;