Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Контакт лист, аля ICQ Miranda и т.п. 
:(
    Опции темы
Zlo
  Дата 2.6.2009, 18:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 1
Подскажите как сделать форму с контактами как в аське, типа Лист бокс но многострочный и что бы можно было пихать иконки? 
Может кто знает уже готовый компонент? 
Или придется самому доводить напильником? 
Может посоветуете тогда хорошие статьи на эту тему?
PM MAIL   Вверх
~FoX~
Дата 2.6.2009, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
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;


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


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Bose
Дата 2.6.2009, 22:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51
Готовый компонент есть в TMS Smooth controls.


--------------------
Лучшее о Delphi за 2013 год. Подборка ссылок.
PM MAIL WWW Skype   Вверх
pegorov
Дата 29.6.2009, 00:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Zlo, поищите статью "Кодим правильный mail.agent", там, в частности, показано как контакт-лист можно сделать.
PM MAIL   Вверх
morpheyushka
Дата 29.6.2009, 15:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 3
Всего: 8
а еще есть такой компонент, как VirtualTreeView. На сайте есть статья про него


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
Rennigth
Дата 30.6.2009, 08:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Цитата

VirtualTreeView

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


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Guedda
Дата 30.6.2009, 08:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Цитата(Rennigth @  30.6.2009,  09:06 Найти цитируемый пост)
Кстати qip на нем и сделан smile 

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


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
JSinx
Дата 30.6.2009, 09:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Почему тогда исходников qip нет? VirtualTree вроде как по GNU и MPL лицензиям распространяется smile
PM MAIL   Вверх
Rennigth
Дата 30.6.2009, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Цитата(Guedda @  30.6.2009,  08:50 Найти цитируемый пост)
Квип на дельфи написан? Не думал не гадал...

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

Цитата(JSinx @  30.6.2009,  09:32 Найти цитируемый пост)
Почему тогда исходников qip нет? VirtualTree вроде как по GNU и MPL лицензиям распространяется 

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



--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Sharkfire
Дата 4.5.2010, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 2
Цитата(Rennigth @ 30.6.2009,  13:19)
Цитата(JSinx @  30.6.2009,  09:32 Найти цитируемый пост)
Почему тогда исходников qip нет? VirtualTree вроде как по GNU и MPL лицензиям распространяется 

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


в блоге автор указал что не будет выкладывать исходники никогда
PM MAIL ICQ   Вверх
~FoX~
Дата 4.5.2010, 18:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Цитата(JSinx @  30.6.2009,  10:32 Найти цитируемый пост)
Почему тогда исходников qip нет? 

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


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Akella
Дата 6.5.2010, 09:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Теме почти год  smile 
PM MAIL   Вверх
c1ber
Дата 6.5.2010, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
qip На dhtml написан вроде как
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0623 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.