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

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

Модераторы
  • Постов

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

  • Посещение

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

    265

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

  1. такой возможности нету
  2. видимо ParamStr(1/2); VCL'ьный вариант есть в FMX?
  3. какая-то лажа, я бы таким не доверял
  4. этой папки нету, это символическая ссылка. находится она /data/data/<имя пакета>/files для просмотра нужен root
  5. если нет своего веб-сервера, то это выход
  6. приложите демо-проект, быстрей поможем
  7. стоит наверное при OnUpdateObjects проверять состояние ваших данных и красить снова
  8. когда он стал стандартным модулем?
  9. А разве TListItem хранит Objects? Сейчас нет Делфи проверить
  10. не знаю как такое делается на C++, но в Delphi так ShowMessage(AItem.Text + ' ' + TListViewItem(AItem).ButtonText + ' is clicked');
  11. Покажите код, как вы делаете? Через Canvas, можно отрисовки только нужный участок
  12. 1) скрываем все контролы 2) меняем align при показе layName.Visible := true; layName.Align := TAlignLayout.Bottom; layName.Position.Y := layName.Position.Y + 1; layName.Align := TAlignLayout.Top; layName.RecalcSize; позиции сохраняются если всегда скрывать контролы с конца
  13. так делать нельзя, для каждого потока собственный "канал связи" с сервером должен быть. Иначе получится что IdHttp отослал запрос и ждёт ответа, а в этот момент ему снова другой поток говорит что нужно отправить данные
  14. что вы имеет ввиду? два варианта цвета, что за цвета?
  15. procedure TForm1.Button1Click(Sender: TObject); var aBitmap: TBitmap; aRectF: TRectF; begin aBitmap := TBitmap.Create; aBitmap.SetSize(trunc(Image1.Width), trunc(Image1.Height)); aBitmap.Assign(Image1.Bitmap); aBitmap.Canvas.BeginScene; aRectF := RectF(aBitmap.Width - 100, aBitmap.Height - 25, aBitmap.Width, aBitmap.Height); aBitmap.Canvas.Fill.Color := $B4FFFFE5; aBitmap.Canvas.FillRect(aRectF, 0, 0, AllCorners, 1); aBitmap.Canvas.Font.Size := 18; aBitmap.Canvas.Fill.Color := TAlphaColorRec.Black; aBitmap.Canvas.FillText(aRectF, DateToStr(Date), false, 1, [], TTextAlign.Center, TTextAlign.Center); aBitmap.Canvas.EndScene; Image1.Bitmap.Assign(aBitmap); aBitmap.Free; end;
  16. procedure TForm1.Button1Click(Sender: TObject); var aBitmap: TBitmap; begin aBitmap := TBitmap.Create; aBitmap.SetSize(trunc(Image1.Width), trunc(Image1.Height)); aBitmap.Canvas.BeginScene; aBitmap.Canvas.Fill.Color := TAlphaColorRec.Black; aBitmap.Canvas.Font.Size := 18; aBitmap.Canvas.FillText(RectF(0, 0, 100, 100), DateToStr(Date), false, 1, [], TTextAlign.Center, TTextAlign.Center); aBitmap.Canvas.Stroke.Color := TAlphaColorRec.Red; aBitmap.Canvas.DrawRect(RectF(0, 0, 100, 100), 0, 1, AllCorners, 1); aBitmap.Canvas.EndScene; Image1.Bitmap.Assign(aBitmap); aBitmap.Free; end;
  17. да конечно можно, вы просто не указали цвет нужно запомнить если метод начинается на Fill..., значит нужно менять цвет через Image.Bitmap.Canvas.Fill.Color := TAlphaColorRec.Black; если на Draw..., то Image.Bitmap.Canvas.Stroke.Color := TAlphaColorRec.Black;
  18. Используйте код из хелпера, только все методы нужно перенести в сам FMX.ListView.pas для Берлина
  19. как-то так Image.Bitmap.Canvas.BeginScene; Image.Bitmap.Canvas.FillText(RectF(0,0,100,100), 'Date', false, 1, [], TTextAlign.Center, TTextAlign.Center); Image.Bitmap.Canvas.EndScene;
  20. Так нужно помнить что в fmx нет нативных компонентов для андроида. Ну кроме Карт и браузера и еще парочки. Такие компоненты имитируют поведение для платформы
  21. дело было не в этой "конструкции", а в размере получаемых данных
  22. 1) берем новый проект 2) создаем нужный стиль 3) сохраняем в файлик *.style 4) открываем файл в редакторе копируем и переименовываем стиль 5) открываем свой стиль (*.style) если есть и вставляем в него, если нет то просто кидаем на форму StyleBook и грузим в него 6) присваиваем стиль нужным контролам
  23. это не обязательно, такое нужно только если работаешь с нативными компонентами.
  24. дайте ссылку того что вы получаете, если что можно в личку
×
×
  • Создать...