Компонент плейлист, есть проблемы.

[ZuBy]

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

У меня проблема с компонентов TPLSBox, мой компонент который я пишу для своего плеера ZuByMP.

что мне нужно?
1. создать record и туда вписывать уже полученные значения
например.

type
TTagInfo = record
tag, filename, time;
создание у меня получается, но вот вписывать туда свои значения нет.
а значения будут вписыватся так.

Пример:
PLSBox1.(тут объявленный record TTagInfo).tag := ' название трека ';
PLSBox1.(тут объявленный record TTagInfo).Filename := 'c:\...mp3';
PLSBox1.(тут объявленный record TTagInfo).time := '00:50';

2. нужно обявить это в property, и соответсвенно чтобы это всё держало в себе введенные значения.

3. сложность в том чтобы эти данные добавлялись как TStrings, т.е. была возможность узнать ItemIndex, Count.

для чего это нужно!

1. сейчас многие пишут плееры и проблема в основном у многих бывает с компонентом TListBox, т.к. он виснет при отрисовке если несет в себе много информации.

2. при помощи этого record'а будет рисоватся введенные данные при первой отрисовке в самом компоненте, тем самым повысим скорость обработки данных.

также уже есть градиентовая заливка выделенного Item, и добавлено
Fixed (тоже градиентовая) Item т.е. тот файл который щас играет(ставим сами, и еще чтобы сделать Fixed не видемым значение -2, а не -1).

P.S. Зарание Всем спасибо!

[ZuBy]

Только прошу не давать ссылки на сторонние компоненты.

[psycho-coder]

Если Вам нужен аналог TStirngs, то можно попробовать вот так:

const
  MaxListSize = Maxint div 16; // Тут можно свою длину

type
  PTagItem = ^TTagItem
  TTagItem = record
    tag: String, 
    filename: String, 
    time: Integer;
  end;

  PTagItemList = ^TTagItemList;
  TTagItemList = array [0..MaxListSize] of TTagItem;

  TTagList = class
  private
    FList: PTagItemList;
    FCount: Integer;
  public
    procedure Add((* Тут свои параметры *));
    procedure Delete(Index: Integer);
    constructor Create;
    destructor Destroy; 
    ...
    property TagList: PTagItemList read FList;
  end;

И дальше в том же духе.

[ZuBy]

Спасибо psycho-coder
я еще не проверял, но как можно будет узнать ItemIndex и Count?

const
  MaxListSize = Maxint div 16; // Тут можно свою длину

это для длинны строки?

[psycho-coder]

Сообщение от ZuBy

Спасибо psycho-coder
я еще не проверял, но как можно будет узнать ItemIndex и Count?

ItemIndex - Реализовывать свои методы. Надо еще в сорцах TListBox поковыряться
Count - при добавлении делать Inc(FCount); И при удалении соответственно Dec(FCount)

type
  TTagList = class
  private
    FCount: Integer;
  public
    property Count: Integer read FCount;

В коде есть FCount

Сообщение от ZuBy

const
  MaxListSize = Maxint div 16; // Тут можно свою длину

это для длинны строки?

Это длина массива списка -> длина списка плейлиста

PTagItemList = ^TTagItemList;
  TTagItemList = array [0..MaxListSize] of TTagItem;

Например для плеера максимум можно загрузить 30000 треков, тогда MaxListSize = 30000;
Если будете подключать Classes, то название измените на (например) MaxTags.
Просто там такая же константа есть.

[ZuBy]

еще раз спасибо за разеснение, вот есть еще вопрос
а если Count узнавать при отлове сообщении LB_ADDStr...
и выполнять inc(fCount), тоже самое и с удалением LB_Del....

будет ли правильно это всё дело работать?

[Пепел Феникса]

а почему бы не использовать св-во Object у TStringList'а?
(можно сделать своего наследника от этого класса чтоб с указателями не мучатся)
ведь я так понимаю его св-во Items:array of string пригодится?

[psycho-coder]

Конечно
Вот пример реализации TStringList'a

procedure TStringList.InsertItem(Index: Integer; const S: string; AObject: TObject);
begin
  Changing;
  if FCount = FCapacity then Grow;
  if Index < FCount then
    System.Move(FList^[Index], FList^[Index + 1],
      (FCount - Index) * SizeOf(TStringItem));
  with FList^[Index] do
  begin
    Pointer(FString) := nil;
    FObject := AObject;
    FString := S;
  end;
  Inc(FCount);
  Changed;
end;

А вот методы ItemIndex

  TCustomListControl = class(TWinControl)
  protected
    ...
    function GetItemIndex: Integer; virtual; abstract;
    procedure SetItemIndex(const Value: Integer); overload; virtual; abstract;
...
    property ItemIndex: Integer read GetItemIndex write SetItemIndex;
  end;

Как отсюда видно, они абстрактные и требуют перекрытия:

function TCustomListBox.GetItemIndex: Integer;
begin
  if MultiSelect then
    Result := SendMessage(Handle, LB_GETCARETINDEX, 0, 0)
  else
    Result := SendMessage(Handle, LB_GETCURSEL, 0, 0);
end;

procedure TCustomListBox.SetItemIndex(const Value: Integer);
begin
  if GetItemIndex <> Value then
    if MultiSelect then SendMessage(Handle, LB_SETCARETINDEX, Value, 0)
    else SendMessage(Handle, LB_SETCURSEL, Value, 0);
end;

Вот, с этим и нужно разбираться.

[psycho-coder]

Сообщение от Пепел Феникса

а почему бы не использовать св-во Object у TStringList'а?
(можно сделать своего наследника от этого класса чтоб с указателями не мучатся)
ведь я так понимаю его св-во Items:array of string пригодится?

Можно и так. Я об этом думал, но до ТС не довел почему то...

[ZuBy]

а если схитрить оставить стандарное Fitems: TStrings, объявить как положено, как в ListBox и тем самым ты и оставим ItemIndex и Count и переписать record убрать FileName.

а еще вопросик.
а как данные будут в Add записыватся.
как я думаю там нужен Assign, но вот как эту процедуру создать?

P.S. Извините меня, просто у меня щас Delphi под рукой нет и мне пока не всё ясно.