Перейти к содержанию
Fire Monkey от А до Я

Равиль Зарипов (ZuBy)

Модераторы
 Профиль  Обзор контента

  • Постов

    2 517

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

  • Посещение

  • Победитель дней

    265

 Тип контента 

Весь контент Равиль Зарипов (ZuBy)

  1. Равиль Зарипов (ZuBy)
    действительно не работает
  2. Равиль Зарипов (ZuBy)
    у меня 6.0.1, все работает. скиньте или на форум или в личку ваш файлик (apk). я проверю
  3. Равиль Зарипов (ZuBy)
    он извлекает из деплоймента файлы
  4. Равиль Зарипов (ZuBy)
    procedure TForm2.SpinBox1ChangeTracking(Sender: TObject); begin SpinBox1.Value := SpinBox1.Text.ToExtended; end;
  5. Равиль Зарипов (ZuBy)
  6. Равиль Зарипов (ZuBy)
    ага
  7. Равиль Зарипов (ZuBy)
    положить все контролы в TPresentedScrollBox
  8. Равиль Зарипов (ZuBy)
    как понять?
  9. Равиль Зарипов (ZuBy)
    а перед этим билд делали?
  10. Равиль Зарипов (ZuBy)
    вы представляете удивление пользователя который увидит Combobox с вопросом: У Вас Intel Atom или Arm v7?
  11. Равиль Зарипов (ZuBy)
    увы и ах, x86 запускается в виртуалке и показывается как arm только два приложения делать
  12. Равиль Зарипов (ZuBy)
    читайте внимательно код, это относится ко всем контролам ALabel := TLabel.Create(AItem); // все контролы должны принадлежать AItem ALabel.Parent := AItem; // а parent может быть другим
  13. Равиль Зарипов (ZuBy)
    procedure TForm1.Button1Click(Sender: TObject); var AItem: TListBoxItem; ALabel: TLabel; i: integer; begin ListBox1.BeginUpdate; for i := 0 to 100 do begin AItem := TListBoxItem.Create(ListBox1); AItem.Parent := ListBox1; AItem.Height := 80; ALabel := TLabel.Create(AItem); // все контролы должны принадлежать AItem ALabel.Parent := AItem; // а parent может быть другим ALabel.Align := TAlignLayout.Top; ALabel.Height := 25; ALabel.Name := 'ALabelName' + Inttostr(i); ALabel.StyledSettings := [TStyledSetting.Family, TStyledSetting.Style]; ALabel.TextSettings.Font.Size := 20; ALabel.TextSettings.FontColor := TAlphaColorRec.Black; ALabel.Text := Inttostr(Random(100)); end; ListBox1.EndUpdate; end; procedure TForm1.ListBox1ItemClick(const Sender: TCustomListBox; const Item: TListBoxItem); begin if (Item.FindComponent('ALabelName' + Inttostr(Item.Index)) is TLabel) then Caption := (Item.FindComponent('ALabelName' + Inttostr(Item.Index)) as TLabel).Text; end;
  14. Равиль Зарипов (ZuBy)
    и в FindComponent писали control1?
  15. Равиль Зарипов (ZuBy)
    еще раз
  16. Равиль Зарипов (ZuBy)
    на коленке это выглядит так: if (ListBox1.Selected.FindComponent('Label_name') is TLabel) then (ListBox1.Selected.FindComponent('Label_name') as TLabel).Text := 'новый текст';
  17. Равиль Зарипов (ZuBy)
    ListBox1.Selected.FindComponent('имя контрола созданного внутри TListBoxItem') Важно: всем контролам присвоить уникальное имя
  18. Равиль Зарипов (ZuBy)
    оффтоп: в чем смысл, на форуме не по инвайту регистрируются. сделаю тест-акк и заберу бесплатно... будут проблемы в реалиации пишите, возможно решим их вместе
  19. Равиль Зарипов (ZuBy)
    а слабо бесплатно?
  20. Равиль Зарипов (ZuBy)
    http://docwiki.embarcadero.com/Libraries/Seattle/en/System.AnsiString Note: AnsiString is used by the Delphi desktop compilers, but is not supported by the Delphi mobile compilers.
  21. Равиль Зарипов (ZuBy)
    нужно дописать такой функционал, делается это в NotificationCompat.Builder addAction документация
  22. Равиль Зарипов (ZuBy)
    такое можно только TListBox
  23. Равиль Зарипов (ZuBy)
    случаем на OnScrollViewChange нет кода? у меня подобное было, только наоборот не доходило до конца. причина использование цикла который пробегал по LV
  24. Равиль Зарипов (ZuBy)
    это стандартное поведение
  25. Равиль Зарипов (ZuBy)
    ну как-бы кнопка назад (vkHardwareBack) выполняет закрытие клавиатуры, нужно всего лишь обработать OnKeyUp и не нужно ничего городить
×
×
  • Создать...