HyperZen

Пользователи
  • Публикации

    147
  • Зарегистрирован

  • Посещение

  • Days Won

    1

Все публикации пользователя HyperZen

  1. Добрый день! Создал свой стиль компонента TListView, как учил на вебинаре Евгений Крюков (Edit Custom Style). Стиль простой - цвет фона - черный, цвет букв Item'а - светло серый, разделительная черта - светло серая. В приложении хочу использовать что-то наподобие режимов дня и ночи. Данный стиль является "ночным". Дефолтный стиль TListView использую как "дневной". Вопрос в следующем: при переключении данных стилей в рантайме, наблюдается неправильная работа: цвет фона меняется корректно на всю высоту компонента, а вот цвет букв в видимой области не меняется, но стоит прокрутить TListView ниже видимой области - там цвет шрифта изменился, и так до конца списка можно создать такую вот непонятную "зебру". Меняю стили при помощи свойства StyleLookup компонента TListView. В чем может быть проблема?
  2. Не в новых проектах, а в текущем проекте все тулбары будут иметь одинаковый вид.
  3. Default Style - при размещении компонентов на форме все, например TButton, будут иметь одинаковый стиль. Custom Style - только те компоненты, например TButton, у которых указан текущий созданный стиль в соответствующем свойстве, будут иметь созданный Вами стиль.
  4. Имеется 5 книг по Delphi + Android, но сомневаюсь, что их можно тут выложить, напишите как вы их хотите забрать (Android_4_Programmirovanie_prilozheniy_dlya_plan.djvu Android_dlya_programmistov_Sozdaem_prilozhenia.pdf Komatineni_S__Maklin_D_-_Android_4_dlya_profes.pdf Всеволод Леонов - Обучение мобильной разработке на Delphi (2015).pdf Д. Л. Осипов. - Delphi. Программирование для Windows, OS X, iOS и Android (Профессиональное программирование) - 2014.pdf)
  5. Добрый день! Вот пример простенького приложения - генератор паролей с простейшим алгоритмом неповторяющихся символов. Под Windows работает все корректно, вообще без каких-либо нареканий. Но вот под Андроид: генерируется любое количество символов (иногда и нужное количество, заданное трэкбаром), появляются артефакты, иногда выдает вообще пустое окно. Посмотрите, пожалуйста, в чем дело, ничего не пойму Некорректная работа наблюдается как на реальном устройстве, так и на эмуляторе. (Windows 10 64 bit, Berlin Update 2). PassGen.rar
  6. ZuBy, в Вашем решении: SetLength(Result, TempLenghtPassw + 1); + 1 же не нужен?
  7. Одновременно с ZuBy получилось
  8. Огромное всем спасибо, решил проблему.
  9. if (LengthPassword > Length(Symb)) then TempLengthPassw := Length(Symb) else TempLengthPassw := LengthPassword; // ShowMessage('LenghtPassword: ' + LenghtPassword.ToString + ', Length(Symb): ' + Length(Symb).ToString + ' ' + Symb[0]); SetLength(Result, TempLengthPassw); // устанавливаем длину конечной строки LengthSymb := Length(Symb); // Длина Таблицы для внутреннего цикла N := 0; while N < TempLengthPassw do begin TempLetter := Random(LengthSymb); // проверяем присутствие этого символа в конечной строке if (Pos(Symb[TempLetter], Result) = 0) then begin Result[N] := Symb[TempLetter]; // теперь его сохраняем Inc(N); // символ не найден end; end;
  10. Не забыли? (Использую Berlin update 2, никаких изменений в весе приложений нет).
  11. FGX

    Сделайте скриншот окна настроек SDK, сделайте скриншот окна SDK Manager'а...
  12. Выкладывайте код, или пример, так быстрее помогут...
  13. Вообще никаких проблем не возникает: ни с компиляцией приложения под все операционные системы, ни во время работы студии. Windows 10 64bit, Berlin update 1
  14. Изучите эту тему: http://fire-monkey.ru/topic/3307-tlistview-как-отловить-нажатие-на-картинку-в-tlistview/ Там с примером.
  15. Нужно Так в старом модуле такого не было!
  16. Добрый день! Использую данный модуль в своей программе для определения подключения к интернету и типа используемого подключения. Сегодня обновил версию файла (FMX.DeviceInfo), ранее использовал модуль со старым названием uDevice. Программа на реальном устройстве начала вылетать до загрузки главной формы приложения пока не добавил в Permissions - READ_PHONE_STATE. Ранее для моих требований хватало только Access WiFi State, Access network state. Это нормальное поведение приложения? Или появившийся баг?
  17. Прошу Ярослава поправить первый пост в данной ветке, чтобы не вводить пользователей в заблуждение
  18. Добрый день! При билде проекта под андроид получаю гору предупреждений, делаю все по инструкции. Запуск среды от администратора. Windows 10 64bit, Berlin Update 1. Устанавливаю на чистую среду, без переустановки компонентов. И, соответственно при инсталляции получаю следующее:
  19. Как правильно передать полученные значения в потоке (например строку, очень длинную строку) в главную форму приложения? Использовать глобальные переменные? Или есть другой способ? Использую пример Ярослава: http://fire-monkey.ru/topic/30-фоновое-выполнение-операции-без-замораживания-отрисовки/?controller=topic Вместо Sleep использую обычное скачивание страницы с интернета при помощи IdHTTP1.Get, записываю результат в какую-то переменную, затем пытаюсь использовать ее в главной форме приложения... Как все-таки правильно?
  20. Спасибо! Не хотелось мне всю процедуру заносить в синхронизацию, видимо, без этого никуда )
  21. Добрый день! Как отловить нажатие на картинку в компоненте TListView (режим - DynamicAppearance) и получить доступ (например вывести в виде сообщения) к тексту текущего Item'а? (Berlin upd 1) Test.rar
  22. procedure Parsing(URLToPars: string; aListView: TListView); var TempText : string; HeadMatches, MsgMatches: TMatchCollection; CountPagesMatch: TMatch; i: Integer; HeadRegularExprString : string; MsgRegularExprString : string; begin try // вот это место, которое хотелось бы видеть с в потоке и с индикатором: HTMLText := IdHTTP1.Get(URLToPars); // выполняем загрузку файла из интернета; // вот это место, которое хотелось бы видеть с индикатором aListView.Items.Clear; CountPagesMatch := TRegEx.Match(HTMLText, 'max="(.*?)".*value="(.*?)"'); HeadRegularExprString := 'class="date">(.*?)<.*?class="id">(.*?)<'; MsgRegularExprString := 'class="text">(.*?)<\/div>'; HeadMatches := TRegEx.Matches(HTMLText, HeadRegularExprString, [roIgnoreCase, roMultiLine]); MsgMatches := TRegEx.Matches(HTMLText, MsgRegularExprString, [roIgnoreCase, roMultiLine]); if HeadMatches.Count = MsgMatches.Count then begin for i := 0 to HeadMatches.Count - 1 do begin TempText := HTMLClear(MsgMatches.Item.Groups[1].Value); with aListView.Items.Add do begin Data['DateText'] := HeadMatches.Item.Groups[1].Value; Data['CitateText'] := HeadMatches.Item.Groups[2].Value; Data['MainText'] := TempText; Data['imgCopy'] := il1.Bitmap(TSizeF.Create(36, 36),0); Data['imgSend'] := il1.Bitmap(TSizeF.Create(36, 36),1); end; end; end else ShowMessage('Ошибка загрузки данных!'); except On E: Exception do ShowMessage('Ошибка: ' + E.Message); end; end;
  23. Вот проект, все работает корректно, пока нет события onUpdateObjects (в проекте с ним, если удалить - то все начинает работать как надо) 111.rar