Добавление ScrollBar'ов к компоненту

[Lion-Tiger]

Здравствуйте ПРОграммисты

Я создаю компонент, который будет служить для отображения музыкальных файлов, как в Total Commander'е, только колонок больше: Исполнитель, Альбом, Длительность и т п....

Ближе к делу =)

Создаю новый компонент, от TCustomControl, прописал практически весь функционал, и теперь осталось прорисовать сам компонент...
Это будет представлять из себя таблицу, вверху колонки, ниже идут поля, со значениями к каждой колонке (что-то я совсем очевидные вещи описываю Оо), поля должны прокручиваться, как по горизонтали, так и по вертикали, колонки наверху фиксированы и скролятся только по горизонтали вместе с полями.

Теперь самый главный вопрос, как приделать СкроллБары к моему компоненту, так чтобы они реагировали, как я хочу, тоесть прокручивали не все, что есть на компоненте, а только то, что я хочу??

я пробовал в процедуре Paint запускать SetScrollInfo вот так:

procedure TLTFieldBox.Paint;
var
   .... 
   info:TScrollInfo;
begin
   ....
   FillChar(info, SizeOf(info), 0);
   with info do
   begin
       cbsize := SizeOf(info);
       fmask  := SIF_ALL;
       nMin:=0;
       nMax:=colleft-Width; //colleft - начало прорисовки колонок; Width - ширина компонента
       nPage :=Width;
       nPos:=0;
   end;
   SetScrollInfo(Self.Handle, SB_HORZ, info, True);
end;

этот фрагмент выполняется, когда ширина всех колонок больше, чем ширина компонента.
но, про проверке скроллы не появляются!
В чем проблема? Или как нужно правильно добавлять скроллы?

Зарание спасибо

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

а в CreateParams определены скролы?

[Lion-Tiger]

Интересное замечание
Вроде нет, а как их определить?))

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

переопределите процедуру эту(подробнее в хелпе).
и там задайте в расширенный стиль.

[Lion-Tiger]

Отлично, все зароботало, только вот вместо горизонтального скроллбара появляется вертикальный, параметры SetScrollInfo описаны выше
----------------------------------------------------

А нет, все нормально, оказывается SB_VERT - горизонтальный, а SB_HORZ - вертикальный =))
----------------------------------------------------

хмм, наврено все наоборот, как и было, но я заменил в предыдущем коде строку с комментарием на

nmax:=colleft;

при прогоне программы colleft=276 width=200

и теперь показываются два скроллбара и какой я указываю в SB_****, у того полоска становится длиннее (которую двигают).
и еще одно наблюдение, если указывать просто Handle, то эти самые полоски одинаковые, а если Self.Handle, то одна больше другой...

Так и должно быть, или это я что-то не так делаю?
----------------------------------------------------

Вот процедура CreateParams

procedure TLTFieldBox.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style:=Params.Style or WS_HSCROLL or WS_VSCROLL;
end;

[Lion-Tiger]

Все, отлично, зарботало, надо было самый первый код исправить на

FillChar(info, SizeOf(info), 0);
      with info do
      begin
        cbsize := SizeOf(info);
        fmask  := SIF_ALL;
        nMin:=0;
        nMax:=colleft; //Вместо colleft-Width
        nPage :=Width;
        nPos:=0;
      end;
      SetScrollInfo(Self.Handle, SB_HORZ, info, True); //Self.Handle вместо простого Handle

nMax должно быть больше, чем nPage, а раньше было меньше, поэтому и не показывалось, в CreateParams ничего не менял и теперь все отлично =))

спасибо, за помощь!!