Не помещается текст в ListBox

@Alexandr_7 · Регистрация: 29.12.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Подскажите как быть если не помещается текст в строку listbox. Сделать ListBox длиннее не вариант. Все равно ширина не может быть длиннее размера монитора а строка может быть и длинее.

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

@Alexandr_7 · 15.10.2018, 15:18 **[ТС]**

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

То есть, ты не понимаешь, что этот код делать должен и почему? Я угадал?

Понимаю но про override; я забыл признаю.

Verevkin · 15.10.2018, 15:21

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

Понимаю но про override; я забыл признаю.

@Alexandr_7 · 15.10.2018, 15:28 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
unit AL7ListBox;
 
interface
 
uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls, Winapi.Windows;
 
type
  TAL7ListBox = class(TListBox)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('AL7_Components', [TAL7ListBox]);
end;
 
{ TAL7ListBox }
 
procedure TAL7ListBox.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or WS_HSCROLL;
end;
 
end.

А почему теперь не работает хотя если этот код добавляет только ScrollWidth тогда работает но тогда мне нужно знать длинну текста

Добавлено через 2 минуты
Хотя ScrollWidth есть и в оригинале.

Verevkin · 15.10.2018, 15:31

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

А почему теперь не работает хотя если этот код добавляет только ScrollWidth тогда работает но тогда мне нужно знать длинну текста

Да ёмаё!!!

Возьми готовый компонент, мне работать надо!!

@Alexandr_7 · 15.10.2018, 15:37 **[ТС]**

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

Да ёмаё!!!

Не нашел я там этого компонента к томуже в архиве вирус.

Verevkin · 15.10.2018, 15:37

Вот возьми этот пакет (JVCL).

@Alexandr_7 · 15.10.2018, 15:41 **[ТС]**

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

Не нашел я там этого компонента к томуже в архиве вирус.

Нашел код.

Verevkin · 15.10.2018, 15:42

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

Не нашел я там этого компонента к томуже в архиве вирус.

http://code.dennis07.de/LinaCo... Types.html
Смотри

В любом архиве в интернетах может быть какая-нить хрень. Ты не извлекай вирусы из него, вытащи только исходники.

@Alexandr_7 · 15.10.2018, 15:45 **[ТС]**

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

Вот возьми этот пакет (JVCL).

А там стандартная рисовка или своя собственная. Мне просто необходимо чтобы встроенные стили RAD Studio смогли изменить стиль ListBox

Добавлено через 1 минуту

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

В любом архиве в интернетах может быть какая-нить хрень. Ты не извлекай вирусы из него, вытащи только исходники.

Ну так вирус и так был заблокирован.

Verevkin · 15.10.2018, 15:48

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

А там стандартная рисовка или своя собственная.

Да, стили RAD на них действуют. Я JVCL использую ВЕЗДЕ. Они очень сильно экономят время. Рекомендую.

@Alexandr_7 · 15.10.2018, 15:56 **[ТС]**

JVCL. Можно нормальную ссылку. Я скачал из одного ресурса так установить не могу. Толи версия Delphi не подходит толи компоненты не все.

Verevkin · 15.10.2018, 16:00

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

Можно нормальную ссылку.

https://sourceforge.net/projects/jvcl/

@Alexandr_7 · 21.10.2018, 01:08 **[ТС]**

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

https://sourceforge.net/projects/jvcl/

По этой ссылке только патч качается. Я качал с гитхаба версию 3.0 вроде но честно уже забыл где качал. Я снес студию и расковыряв инсталятор ставлю ее уже на диск D.

Verevkin · 21.10.2018, 01:32

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

По этой ссылке только патч качается.

Ну я хз, щас зашёл посмотреть...

Могу, конечно, придавить архиватором и поделиться с тобой тем, что установлено и гарантированно работает. Но оно мне надо?

@Alexandr_7 · 21.10.2018, 15:59 **[ТС]**

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

https://sourceforge.net/projects/jvcl/

Не по теме:

Я скачал из архива последнюю версию но инсталятор jcl - install.bat не видит RAD Studio
Версия Delphi 10.2 Version 25.0.31059.3231

Verevkin · 21.10.2018, 16:05

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

Я скачал из архива последнюю версию но инсталятор jcl - install.bat не видит RAD Studio

Почему у меня видит? Чо я делаю не так?

@Alexandr_7 · 21.10.2018, 16:09 **[ТС]**

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

Почему у меня видит? Чо я делаю не так?

Не по теме:

Ну правильно. У тебя версия 2.8. Но со скриншота jcl версия 2.7
Кстати если качать с git hub то там уже версия 2.8 и видит delphi
я простио не пойму как ты скачал версию 2.8 с официального сайта если там 2.7

Verevkin · 21.10.2018, 16:13

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

я простио не пойму как ты скачал версию 2.8 с официального сайта если там 2.7

Магия!

@Alexandr_7 · 21.10.2018, 16:18 **[ТС]**

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

Магия!

Еще коечто. Не знаю почему но папка:

Code
1
C:\Users\Public\Documents\Embarcadero\Studio\19.0\Bpl\Win64

Пустая.

Verevkin · 21.10.2018, 16:22

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

Еще коечто. Не знаю почему но папка:

Code
1
C:\Users\Public\Documents\Embarcadero\Studio\19.0\Bpl\Win64

Пустая.

А у меня - полная. Что я опять не так делаю??!!1111

Новые блоги и статьи Все статьи Все блоги /
Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .
Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))	Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .	Диалоги с ИИ zorxor 23.05.2026 Насколько я понимаю - Вы - Искусственный Интеллект. Это так? Да, всё верно. Я — искусственный интеллект. Я представляю собой большую языковую модель, созданную для помощи в самых разных задачах. . . .	Модель здравосохранения 14. Собираем всю модель вместе. anaschu 22.05.2026 Модель собрана. В будущих постах на видео я покажу, как она работает. В этом посте запускаем её, проверяем результаты и разбираем что можно с ней делать дальше. Перед запуском проверяем. . .

@Alexandr_7 87 / 22 / 6 Регистрация: 29.12.2015 Сообщений: 1,898

	RAD XE3+ Не помещается текст в ListBox 14.10.2018, 14:58. Показов 6068. Ответов 66 Метки нет (Все метки) Здравствуйте. Подскажите как быть если не помещается текст в строку listbox. Сделать ListBox длиннее не вариант. Все равно ширина не может быть длиннее размера монитора а строка может быть и длинее. Заранее спасибо. 0

Verevkin Злостный нарушитель 10878 / 5817 / 1288 Регистрация: 12.03.2015 Сообщений: 26,855
	15.10.2018, 15:37
	Вот возьми этот пакет (JVCL). 0

@Alexandr_7 87 / 22 / 6 Регистрация: 29.12.2015 Сообщений: 1,898
	15.10.2018, 15:56 [ТС]
	JVCL. Можно нормальную ссылку. Я скачал из одного ресурса так установить не могу. Толи версия Delphi не подходит толи компоненты не все. 0