Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Контакт лист

Автор: Zlo 2.6.2009, 18:16

Подскажите как сделать форму с контактами как в аське, типа Лист бокс но многострочный и что бы можно было пихать иконки?
Может кто знает уже готовый компонент?
Или придется самому доводить напильником?
Может посоветуете тогда хорошие статьи на эту тему?

Автор: ~FoX~ 2.6.2009, 21:12

Zlo, Эгм, а листбокс что не многострочный?
Иконки рисуются например так:

Код


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  Bitmap: TBitmap;
  Offset: Integer;
  BMPRect: TRect;
begin
  with (Control as TListBox).Canvas do begin
    FillRect(Rect);
    Bitmap := TBitmap.Create;
    ImageList1.GetBitmap(4, Bitmap);
    Offset := 0;
    if Bitmap <> nil then begin
      BMPRect := Bounds(Rect.Left+2, Rect.Top+2, (Rect.Bottom-Rect.Top-2), Rect.Bottom-Rect.Top-2);
      BrushCopy(BMPRect,Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height),
      Bitmap.Canvas.Pixels[0, Bitmap.Height-1]);
      Offset := (Rect.Bottom-Rect.Top+1)+3;
    end;
    TextOut(Rect.Left+Offset, Rect.Top+2, ListBox1.Items[index]);
    Bitmap.Free;
  end;
end;

В ДРКБ, полно статей, на эту тему...Да и на форуме поднимались вопросы не раз...

Автор: Bose 2.6.2009, 22:04

Готовый компонент есть в TMS Smooth controls.

Автор: pegorov 29.6.2009, 00:02

Zlo, поищите статью "Кодим правильный mail.agent", там, в частности, показано как контакт-лист можно сделать.

Автор: morpheyushka 29.6.2009, 15:03

а еще есть такой компонент, как VirtualTreeView. На сайте есть статья про него

Автор: Rennigth 30.6.2009, 08:06

Цитата

VirtualTreeView

Кстати qip на нем и сделан smile

Автор: Guedda 30.6.2009, 08:50

Цитата(Rennigth @ 30.6.2009, 09:06

)

Кстати qip на нем и сделан smile

Квип на дельфи написан? Не думал не гадал...

Автор: JSinx 30.6.2009, 09:32

Почему тогда исходников qip нет? VirtualTree вроде как по GNU и MPL лицензиям распространяется smile

Автор: Rennigth 30.6.2009, 13:19

Цитата(Guedda @ 30.6.2009, 08:50

)

Квип на дельфи написан? Не думал не гадал...

Покрайней мере SpyX сказал что класс окна списка контактов имеет тип TVirtualTreeView(или Draw, уже не помню, сейчас нет его под рукой).

Цитата(JSinx @ 30.6.2009, 09:32

)

Почему тогда исходников qip нет? VirtualTree вроде как по GNU и MPL лицензиям распространяется

а шут его знает...

Автор: Sharkfire 4.5.2010, 17:49

Цитата(Rennigth @ 30.6.2009, 13:19)

Цитата(JSinx @ 30.6.2009, 09:32

)

Почему тогда исходников qip нет? VirtualTree вроде как по GNU и MPL лицензиям распространяется

а шут его знает...

в блоге автор указал что не будет выкладывать исходники никогда

Автор: ~FoX~ 4.5.2010, 18:44

Цитата(JSinx @ 30.6.2009, 10:32

)

Почему тогда исходников qip нет?

Потому что в коде присутствуют платные компоненты....

Автор: Akella 6.5.2010, 09:00

Теме почти год smile

Автор: c1ber 6.5.2010, 09:46

qip На dhtml написан вроде как