Компонент типа ListBox но с возможностью вставки картинок

[Kotofff]

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

И еще один вопрос про компоненты, можно каким то образом скрыть "шапки" страниц в PageControl

for i:=0 to PageControl1.PageCount-1 do PageControl1.Pages[i].TabVisible := false;

[Kotofff]

.... Просьба удалить !!!

[Grag]

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

Уважаемый Grag, а кто сказал что часть TMS Components бесплатной вдруг стала ?

Уважаемый Kotofff, распаковываем архив и читаем соглашение от фирмы (привожу ниже)

Usage :
-------
This component is freeware for non-commercial applications.
License for commercial use is equivalent to buying source code,
and is available for $30.

Для некоммерческого использования сырцы не прилагаются... Оп!

[kardinal94]

Так, пардон, выражаюсь не очень понятно, просто у самого все в голове перемешалось, так как словами выразиться не могу, покажу картинками:
У меня есть PageControl с 5 страницами для примера:

Мне надо оставить Сам Page Control и сделать его примерно в таком виду:
без потерь свойств самого PageControl, то есть верхняя часть не должна быть видна, чтобы переходить по страницам используются ListBox. Надеюсь теперь понятно

[Kotofff]

Я же дал код !!!

[kardinal94]

Kotofff, блин, не заметил, спасибо бАльшое всем, тему можно офф. Проблемы решены.

[Nater]

как то давно реализовывал такое...вроде так... только у ListBox ставь Style lbOwnerDrawFixed

procedure TForm1.ListBox1DrawItem

(Control: TWinControl; Index: Integer;

Rect: TRect; State: TOwnerDrawState);

var

   myBrush: TBrush;      

begin

myBrush := TBrush.Create;  

with (Control as TListBox).Canvas do

begin

   if ListBox1.Items.Item[Index] = 'test' then

     Font.Color := clRed;

   else

     Font.Color := clGreen;


   Windows.FillRect(handle, Rect, myBrush.Handle); 

   Brush.Style := bsClear;  

   TextOut(Rect.Left, Rect.Top, 

           (Control as TListBox).Items[Index]);  

   MyBrush.Free;

end;

end;

мб и не красиво выглядит,но я взял пример с DRKB и немного подредактил .С остальным кодом разбираться не стал ))