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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> в ListBox многострочную строку 
:(
    Опции темы
Штабс
Дата 15.2.2005, 12:22 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Собственно говоря название уже все описывает
мне надо в одной строке ListBox переташить мультистроку

как нибудь с наименьшими потерями и кодингом это возможно
  Вверх
z-END
Дата 15.2.2005, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102
OwnerDraw форева


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
Штабс
Дата 15.2.2005, 12:47 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
ОК пробую
  Вверх
Alex
Дата 15.2.2005, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
Код

const
 signat = '\#$D#$A\';

function QD(str: String): String;
// Преобразование строки содержащей переходы на новую строку в одну
// строку Например: "Ошибка^M^Jзагрузки базы" будет
// "Ошибка\#$D#$A\загрузки базы"
begin
 Result:= AnsiReplaceText(str, ^M^J, signat);
end;
// -----------------------------------------------------------------
function DeQD(str: String): String;
// Выполняет действие обратное Qd
begin
 Result:= AnsiReplaceText(str, signat, ^M^J);
end;



--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Ищущий!
Дата 3.6.2005, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Читал, но это не совсем то что мне надо smile Хотя тема и не моя, но прошу помочь...

Как сделать ListBox многосторчным компонентом?.. что бы его многосторочность отображалась сразу, а не по одной строке..

спсибо... думаю я был ясен smile
PM MAIL   Вверх
s-mike
Дата 4.6.2005, 11:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 9
Всего: 16
Цитата
Как сделать ListBox многосторчным компонентом?.. что бы его многосторочность отображалась сразу, а не по одной строке..

Не совсем понятна идея smile


--------------------
Преферанс для Android на базе исходников Марьяжа
PM MAIL WWW   Вверх
Albinos_x
Дата 4.6.2005, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
Цитата
Не совсем понятна идея


аналогично... smile


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Pakshin A. S.
Дата 4.6.2005, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
Кстати, вроде z-END прав..

Для одного пункта хорошо работает:
Код

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do
   begin
    FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, 'asdf');
    TextOut(Rect.Left, Rect.Top+13, 'asdf');
   end;
end;


Но попутно нужно решить проблему с рамочкой...
PM   Вверх
z-END
Дата 4.6.2005, 13:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102
если требуется чтобы каждый элемент выводился на определнном количестве строчек то просто надо установить ItemHeight := ItemHeight*(количество строк в каждом элементе)
если же для каждого элемента нужно различное количество строк, то лучше использовать какой-нить другой контрол.
Добавлено @ 13:05
Цитата(Pakshin @ 4.6.2005, 13:51)
Кстати, вроде z-END прав..

я вроде всегда прав smile


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
Pakshin A. S.
Дата 4.6.2005, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
Тьфу... ItemHeight не заметил... smile

Кому лень писать и думать:
Код

const
 _enter = '|';

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
 s:string;
 c:integer;
begin
 s:=ListBox1.Items[Index];
 with (Control as TListBox).Canvas do
  begin
   FillRect(Rect);
   c:=0;
   while s <> '' do
    begin
     TextOut(Rect.Left, Rect.Top + c*16, Copy(S, 1, Pos(_enter, s)-1));
     if Pos(_enter, s) <> 0
      then
       begin
        TextOut(Rect.Left, Rect.Top + c*16, Copy(S, 1, Pos(_enter, s)-1));
        Delete(s, 1, Pos(_enter, s));
       end
      else
       begin
        TextOut(Rect.Left, Rect.Top + c*16, s);
        s:='';
       end;
     inc(c);
    end;
  end;
 if ListBox1.ItemHeight < c*16
  then
   ListBox1.ItemHeight:=c*16;
end;


А как установить ItemHeight отдельно для каждого элемента... что-то ен пойму... smile
PM   Вверх
Ищущий!
Дата 4.6.2005, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Вобщем как сделать ListBox состоящим не из Tedit (строчек) , а допустим из TMemo (многострочным)... вот...

Думаю, терь всё понятно 6)
PM MAIL   Вверх
z-END
Дата 4.6.2005, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102
как-то ты плохо Ищущий! перечитай тему еще раз! ответ дан



--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
Pakshin A. S.
Дата 4.6.2005, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
smile Наверное ищущему лень коды тестить...

Кстати, можно бы сделать каждый раз при изменении ItemHeight выравнивание всех остальных итемов по центру ячейки...

Вот только не будет все это тормозиться... smile

Но зато может красивше будет...

P. S.
А нафиг вообще так издеваться над ListBox'ом? Случаем не из-за проблемы, что строка не помещается в компоненте (по длинне)? А то жта вещь лучше решается...
PM   Вверх
z-END
Дата 4.6.2005, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102
Цитата(Pakshin @ 4.6.2005, 17:15)
Кстати, можно бы сделать каждый раз при изменении ItemHeight выравнивание всех остальных итемов по центру ячейки...

это как?! этот элемент задает высоту для всех строк сразу.
если ты про центрирование по высоте (например для 3-х строчного итема) то это так делается:
Код

x := Rect.Left;
lcount:=3;
dy:=ListBox1.Canvas.TextHeight('ЖЖЖ');
y := Rect.Top +((ItemHeight div 2) - (dy*lcont div 2));
for i:=0 to lcont-1 do 
 begin
  line:=i*dy;
  TextOut (x, y+line, text);
end;


Это сообщение отредактировал(а) z-END - 4.6.2005, 16:33


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
Pakshin A. S.
Дата 4.6.2005, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61
Вот это я и имел ввиду... вот скорее всего при большом списке работать долго будет... smile Верно?
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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