• 🚨 29 мая стартует курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    После старта курса запись открыта еще 10 дней Подробнее о курсе ...

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

Плейлист для Mediaplayer

  • Автор темы Автор темы Dock1100
  • Дата начала Дата начала
D

Dock1100

Подскажите компонент для плейлиста в MediaPlayer.
что то вроде того как на рисунке

где

1: Папка в которой расположены треки
2: Проигрываемый трек
3:Выделений трек
4:Остольные треки в списке


То есть главное что б отображалась сторока в которую были помешени две строки
 

Вложения

  • 1.jpg
    1.jpg
    13,7 КБ · Просмотры: 553
эээммм.. TListView?
ПС. НАФИГА ТАКАЯ БОЛЬШАЯ КАРТИНКА? Слабо было в jpg сохранить?
 
А как можна ListView сделать более красивым?
Сделать его наследника, в котором внешний вид отрисовывать самостоятельно.
Или не парить себе мозг, и использовать готовые.. те же
 
Нашол достаточно хороший компонент для плейлиста: (хоть скрин и не очень но его можна легко настроить и сделать очень красивым, прост в роботе, поддерживает Imagelist);
На етом сайте есть достаточно мноко красивых компонентов :what?:
 

Вложения

  • clb.jpg
    clb.jpg
    12,5 КБ · Просмотры: 303
Порыскав на том сайте нашёл ёше красивей
AdvSmoothListbox2.png
AdvSmoothListbox4.png
 
Может кто знает как поменять scrollbar в listbox (изменить картинки)
 
Тоже самое можно с обычным Листбоксом сделать!
Рисуй в DrawItem - и будет тебе счастье! :rolleyes:
 
Ну вот маленький пример!


Код:
procedure TForm1.ListDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
with List.canvas do
begin
if (State = [odFocused, odSelected]) or (State = [odSelected]) then
begin
Font.Color := clBlack;
font.Name:='arial';
Font.Size := 8;
Pen.Color := clBlack;
pen.Style := psInsideFrame;
Brush.Style := bsClear;
SetBkMode(list.Handle, Transparent);
TextOut(Rect.Left + 2, Rect.Top, 'текст который нужно вывести.......'); 
end;
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Курс AD