-
Похожий контент
-
От Леонид Кудацкий
Процедура Process заполняет Listbox:
procedure TForm1.Process;
Const
N=100;
var
I,Index:Integer;
Item:TListBoxItem;
begin
for I := 1 to N do
begin
Item:=TListBoxItem.Create(ListBox1);
Item.Text:=IntToStr(I);
ListBox1.AddObject(Item);
end;
ListBox1.ScrollToItem(Item);
end;
Нужно, чтобы после заполнения Listbox скролировал в конец.
Если процедура запускается нажатием кнопки, то всё нормально.
А если из события формы FormCreate, то Listbox заполняется,
а скролирование не происходит.
Где тут собака порылась ?
-
От Sergiy_83
Всем привет.
Иногда, особенно когда есть прокрутка списка можно случайно выделить несколько элементов ListBox-а. Ощущение, что чем больше загрузка приложения, тем чаще проявляет себя эта проблема. Бывает редко но жутко раздражает. Работоспособность программы не нарушается.
Что делать? Может "костыли" какие возможно придумать?
Android.
-
От YurMak
Здравствуйте, уважаемые!
Пробую писать некое подобие файлового менеджера.
Для вывода папок и файлов использую ListBox .
Так вот: при обработке события ListBoxItemClick (нажатие на строку) происходит переход по пути, казанному с этой строке, содержимое этой папки отображается, но строки в ней не нажимаютмя, не реагируют на событие нажатия.
Если проще - строки на первой станице ListBox реагируют на нажатие, а на второй - нет.
Что я делаю не так?
{Клик по Item'у, вперёд} procedure TForm1.FoldersListBoxItemClick(const Sender: TCustomListBox; const Item: TListBoxItem); var ExtFile: string; begin // Сохраняем выбранный путь CurrentPath := CurrentPath+Item.ItemData.Text; //Текущая директория if Item.TagString = 'folder' then //Проверяем, если это папка begin if TDirectory.Exists(CurrentPath) then //Проверяем, если папка существует begin Label1.Text:= 'Нажата строка № '+ inttostr(Item.Index); //Контроль!!! FillFolderListBox(CurrentPath, True); //Процедура заполнения ListBox`а папками и файлами end else if Item.TagString = 'file' then //Иначе - файл begin Label1.Text:='Отправляем файл "'+Item.ItemData.Text+'" на плеер'; //Готовим на исподнение end; end; end; Вот этот код срабатывает один (первый) раз.
Прошу помощи, советов, вариантов.
-
От gresaggr
Добрый день.
IDE: Delphi 10.1 Berlin Update2
OS: Windows 7/64 ->Android (тестировал на 4.4.4)
Вопрос 1:
Пытаюсь загрузить в Listbox файл с русскими словами: ListBox1.Items.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'test1.txt'));
При запуске на устройстве выдает ошибку: No mapping for the Unicode character exists in the target multi-byte code page
Файл пытался сохранить и в UTF-8, и в ANSI, и в Unicode - без разницы (после смены кодировки делал Deployment)
Как можно это победить?
Вопрос 2:
Вставил напрямую в дизайн-моде список этих же слов (из файла вопрос1) в Listbox - при старте программа очень долго думает. Слов порядка 10000. Как-то можно это ускорить?
-
От M1shQa
Есть один листбокс..) В общем парился я парился, так и не понял как запилить стиль по человечески для итемов в боксе и нашел кнопку Edit default Style. Нашел куда впилить TimageViewer и поставил ему свойство client. Все бы ничего, да вот размер итемов не статичен, а картинка не растягивается, к тому же pngшная картинка не отделяется от фона. Подскажите, как картинку растягивать в зависимости от длины и ширины итемов листбокса и как правильно юзать pngшные картинки (что бы они сохраняли прозрачность). Может я вообще не туда рою и нужно другими способами вставлять картинки под каждый item? Видел много гайдов под listview, но к сожалению мне нужно именно для бокса..
----
п.с. что бы было проще: как нарисовать ровную плашку позади каждого элемента листбокс?
-
От chaplin.u@gmail.com
У Мемо есть фича когда нажимаешь (тап по экрану) вылезает клавиатура для редактирования текста.
Можно ли сделать такое-же с ListBox ? Тапаешь по итему и клавой исправляешь текст.
-
От M1shQa
Всем утречка! Интересует вопрос кастмизации listbox в плане дизайна. Хотелось бы что бы плашки имели какой то другой цвет, рамку с обводкой и все на андроиде: в какую сторону рыть? Пилить стиль самому?
Хотелось бы, что бы элементы в листбоксе были темно подсвечены и имели рамочку.. Стили ставил, а вот как поправить что-то в стиле пока не понял.
-
От Просто Проги
Суть такова копаюсь в стилях, но не могу понять откуда идет наследования есть контейнер content в нем есть selection т,е выделенный элемент лист бокса , возможно ли создать стиль просто для итемов в листбоксе или это не делается через стиль?
-
От Dinkin
Добрый день.
Как по правому клики мыши.выделить итем в ListBox?. Проблема в том, что если у ListBox есть PoupMenu, оно перекрывает все события.
-
От Просто Проги
Собственно вопрос всё ещё копаю в сторону listbox сделал такой listbox
var
listitem:Tlistboxitem;
listimg1:Timage;
listlabel1:Tlabel;
listLayout:Tlayout;
progres:TProgressBar;
but:TSpeedButton;
begin
listitem:=TListBoxItem.Create(ListBox1);
listitem.Parent:=ListBox1;
listitem.Height:=50;
listimg1:=TImage.Create(listitem);
listimg1.Parent:=listitem;
listimg1.Width:=50;
listimg1.Height:=50;
listimg1.Align:=TAlignLayout.Left;
listimg1.Bitmap:=Image1.Bitmap;
//
but:=TSpeedButton.Create(listitem);
but.Parent:=listitem;
but.StyleLookup:='myControl';
but.Align:=TAlignLayout.Right;
listLayout:=TLayout.Create(listitem);
listLayout.Parent:=listitem;
listLayout.Align:=TAlignLayout.Client;
listlabel1:=TLabel.Create(listLayout);
listlabel1.Parent:=listLayout;
listlabel1.Align:=TAlignLayout.Top;
listlabel1.Height:=25;
listlabel1.StyledSettings:=[TStyledSetting.Family,TStyledSetting.Style];
listlabel1.TextSettings.Font.Size:=12;
listlabel1.TextSettings.FontColor:=TAlphaColorRec.White;
listlabel1.Text:='event';
end;
finally
ListBox1.EndUpdate;
как получить доступ к кнопке в созданном listbox ? или хотя бы как получить текст в listlabel1 в выбранном item.
поидее должно работать item.selected но что то опять не работает или я туплю)
-
-
Последние посетители 0 пользователей онлайн
Ни одного зарегистрированного пользователя не просматривает данную страницу