VPF::Выделить название в медиа плеере

Elays

Дата 2.2.2009, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 2.2.2009

Репутация: нет
Всего: нет

Господа, решил сделать Цвой небольшой мп3 проигрователь,
(точней подредактировать скаченный исходник)

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

и какую функцию вообще использовать чтобы определить выделенную строку в ListBox??

Плиз хелп.....

StingWINg

Дата 3.2.2009, 10:22 (ссылка)

(голосов:2)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 17.11.2008

Репутация: нет
Всего: нет

ListBox1.Selected[index: integer]:boolean.
Если она = true, то строка выделена и наоборот.

Alexeis

Дата 3.2.2009, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

У листбокса есть обработчик OnDrawItem, его можно перекрыть и выводить текст самостоятельно, например при помощи API функции DrawText. Но чтобы он работал нужно установить Style в lbOwnerDrawFixed.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Alexeis

Дата 3.2.2009, 10:47 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Заодно накидал пример

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Style := lbOwnerDrawFixed;
  ListBox1.AddItem('item1', nil);
  ListBox1.AddItem('item2', nil);
  ListBox1.AddItem('item3', nil);
  ListBox1.AddItem('item4', nil);
  ListBox1.AddItem('item5', nil);
  ListBox1.AddItem('item6', nil);
end;

var playingItem : integer = 2;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if (Control is TListBox)
  then
    With Control as TListBox do
    try
        Canvas.Pen.Color := clWhite;
        Canvas.Rectangle(Rect);
        if (Index = playingItem - 1)
        then
          Canvas.Font.Color := clRed
        else
          Canvas.Font.Color := clBlack;
        DrawText(Canvas.Handle, PChar(Items[Index]), Length(Items[Index]),
                 Rect, DT_LEFT or DT_SINGLELINE or DT_VCENTER);
    finally end;
  State := [odNoFocusRect];
end;

Это сообщение отредактировал(а) Alexeis - 3.2.2009, 10:52

--------------------

Rrader

Дата 3.2.2009, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ListBox1, Items do
  begin
    Style := lbOwnerDrawFixed;
    Append('First');
    Append('Second');
    Append('Third');
  end;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  Flags: Longint;
  S: String;
begin
  with (Control as TListBox), Canvas do
  begin
    { Условие определяет, какие итемы выделять }
    if odSelected in State then
      Brush.Color := clRed;
    FillRect(Rect);
    Flags := DrawTextBiDiModeFlags(DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);
    if not UseRightToLeftAlignment then
       Inc(Rect.Left, 2)
     else
       Dec(Rect.Right, 2);
    S := Items[Index];
    DrawText(Canvas.Handle, PChar(S), Length(S), Rect, Flags);
  end;
end;

end.

Это сообщение отредактировал(а) Rrader - 3.2.2009, 11:24

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »