Форум программистов, компьютерный форум, киберфорум
C++ Builder: FireMonkey
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 2
Регистрация: 14.10.2015
Сообщений: 47

Динамические label (меняется стиль при скролле, удаление их и т.д.)

29.04.2018, 08:24. Показов 2023. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребята, у меня имеется некая база данных откуда выгружается каждое поле в созданный динамически лейбл. Лейблы создаются в VertScrollBox1.
Собственно сам вопрос. После того как все создалось и выгрузилось, при скроле VertScrollBox1 лейблы меняют стиль и начинают отображаться некорректно, как решить?
C++
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
for (int i = FDQuery1->FieldCount-1; i >= 2; i--)
    {
    if (FDQuery1->Fields->Fields[i]->AsString != NULL) {
    TLabel *lbl = new TLabel(VertScrollBox1);
    lbl->Name = "lbl"+String(i);
    lbl->Parent = VertScrollBox1;
    lbl->Align = Fmx::Types::TAlignLayout::Top;
    lbl->AutoSize = true;
    lbl->WordWrap = true;
    lbl->Text = FDQuery1->Fields->Fields[i]->AsString;
        if (i == 9 || i == 12 || i == 15) {    //example
           lbl->TextSettings->HorzAlign = TTextAlign::Center;
           if (lbl->GetInterface(Settings))
            {
            Settings->TextSettings->Font->Size = 14;
            Settings->StyledSettings = Settings->StyledSettings >> TStyledSetting::ssSize;
            Settings->TextSettings->FontColor = claCrimson;
            Settings->StyledSettings = Settings->StyledSettings >> TStyledSetting::ssFontColor;
            }
        } else if (i == 2) {
                lbl->TextSettings->HorzAlign = TTextAlign::Center;
                if (lbl->GetInterface(Settings))
                    {
                    Settings->TextSettings->Font->Size = 16;
                    Settings->StyledSettings = Settings->StyledSettings >> TStyledSetting::ssSize;
                    Settings->TextSettings->Font->Style = TFontStyles() << fsBold;
                    Settings->StyledSettings = Settings->StyledSettings >> TStyledSetting::ssStyle;
                    Settings->TextSettings->FontColor = claBlack;
                    Settings->StyledSettings = Settings->StyledSettings >> TStyledSetting::ssFontColor;
                    }
        }
    }
    }
а другая проблема: я не могу понять, как можно после отчистить VertScrollBox1 от этих лейблов, чтобы повторно их создать и выгрузить уже другие данные

Добавлено через 9 часов 50 минут
Стили лейблов меняются при прокрутке скрола, то есть когда лейбл уходит вверх, за поле видимого, он тут же меняет стиль и этот стиль переходит к другому лейблу.. могли бы сказать почему? Что я не так делаю.. под стилем я подразумеваю size , tfontstyle, fontcolor
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
29.04.2018, 08:24
Ответы с готовыми решениями:

Меняется стиль при изменении класса
Как же весело находить различные баги в своем коде... У нас есть HTML footer`а вместе с bootstrap сеткой: &lt;footer&gt; &lt;div...

При загрузке сайта на хостинг, меняется стиль
При загрузке сайта на хостинг, меняется стиль. с диска с открывается отображается как надо(рис1) после заливки на хост(рис2)проверял файлы...

Не меняется label при выборе колонны
Добрый вечер, форумчане! Наверное я слишком заработался, но у меня достаточно глупый вопрос. Прикрепляю полный код: using...

6
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
29.04.2018, 12:15
Цитата Сообщение от BillyM Посмотреть сообщение
я не могу понять, как можно после отчистить VertScrollBox1 от этих лейблов, чтобы повторно их создать и выгрузить уже другие данные
C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall ClearVertScrollBox(TVertScrollBox *sb)
{
    for (int i = 0; i < sb->ComponentCount; i++)
 {
        if (sb->Components[i]->ClassNameIs("TLabel"))
         {
             delete sb->Components[i];
             i--;
         }
 }
}
1
0 / 0 / 2
Регистрация: 14.10.2015
Сообщений: 47
29.04.2018, 12:34  [ТС]
Кстати, проблема решилась тем, что в Tokyo 10.2 баги с лейблами

Добавлено через 2 минуты
а если не будет лейбла под номером 0? ошибку не выдаст?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33404 / 21514 / 8236
Регистрация: 22.10.2011
Сообщений: 36,914
Записей в блоге: 12
29.04.2018, 12:38
А при чем тут номер лейбла? Тут важно, под каким номером этот лейбл с массиве компонентов. А нулевой номер в массиве есть в любом случае.

Добавлено через 1 минуту
Кстати, я бы написал обратным проходом:
C++
1
2
3
4
5
6
7
void __fastcall ClearVertScrollBox(TVertScrollBox *sb)
{
    for (int i = sb->ComponentCount - 1; i >= 0; i--)
    {
        if (sb->Components[i]->ClassNameIs("TLabel")) delete sb->Components[i];
    }
}
, уже не нужно ничего мухлевать со значением i.
0
0 / 0 / 2
Регистрация: 14.10.2015
Сообщений: 47
29.04.2018, 12:56  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
Кстати, я бы написал обратным проходом:
ничего не происходит:/ я пишу для андроида, может как то по-другому можно?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33404 / 21514 / 8236
Регистрация: 22.10.2011
Сообщений: 36,914
Записей в блоге: 12
29.04.2018, 12:57
Может, уже можно начать создавать темы в правильном разделе? Для Андроида - значит, FMX, раздел тут: https://www.cyberforum.ru/cpp-builder-firemonkey/

А вообще, для Андроида лучше всего писать на Java, а не на сторонних кривых костылях.
0
0 / 0 / 2
Регистрация: 14.10.2015
Сообщений: 47
29.04.2018, 19:41  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
Может, уже можно начать создавать темы в правильном разделе
там толком никто не отвечает и не заходит)

Добавлено через 6 часов 42 минуты
Андроида лучше всего писать на Java,
Я по двум причинам не пишу там
Первая, очень слабый ноут для андроид студио (все виснет нереально и долго собирается)
Вторая, лень учить Java, ну и желание пока что не проявляю, так как нет среды)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
29.04.2018, 19:41
Помогаю со студенческими работами здесь

При присвоении строки в Label меняется ее кодировка
Есть this.applicationNameLabel.Text это обычный System.Windows.Forms.Label Когда я в него пытаюсь засунуть обычную строку, у нее меняется...

При изменении системной даты не меняется дата в label
в label выведена дата вида: Label7.Text = Format(Now, (&quot;yyyyMMdd&quot;)) теперь при смене даты на компьютере дата в label не...

Как перемещать динамические Image и динамические Label одновременно?
Как перемещать динамические Image и динамические Label одновременно? То есть, в программе на ПКМ динамически создается один Image и один...

Динамические компоненты, удаление при закрытии формы
У меня при нажатии на кнопку открывается вторая форма, на ней создаётся панель, на панеле создаются кнопка и label, надо, что б при...

Меняется текст Label'a в первом окне при изменении пункта comboBox во втором окне
Добрый день. Никак не могу пофиксить баг (или не баг, а глупость). Есть главное окно StartWindow, с которого открывается окно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru