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

97mik

Пользователи
  • Постов

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

  • Посещение

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

    3

Весь контент 97mik

  1. Как создать освещение в 3D сцене и сделать блики на объектах?
  2. Project -> Options... -> Application В Target поставить необходимую платформу и указать пути до изображений.
  3. Как сделать переход при выборе пункта в ListBox? И можно ли при этом будет вернутся свайпом слева направо?
  4. Как сделать объединённый ToolBar и StatusBar + сделать это немного прозрачным + любого цвета? Также как это организовано в приложении VK.
  5. В системе iOS есть несколько вариантов анимации выдвижных панелей, и вот один из них это когда панель выходит снизу экрана, как это можно сделать?
  6. Пробую нарисовать окружность в заданном регионе на мобильной платформе следующим способом: procedure TForm1.Image14Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin Image14.Canvas.Stroke.Color := TAlphaColorRec.Red; PixelRegion := TRectF.Create(TPointF.Create(100, 100), 20, 20); Image14.Canvas.DrawEllipse(PixelRegion, 1); end; В Windows всё отображается, а на мобильных платформах окружность не отображается. Подскажите, с чем может быть связано такое поведение.
  7. А почему когда пишу так: Image14.Canvas.Stroke.Color := TAlphaColorRec.Red; PixelRegion := TRectF.Create(TPointF.Create(100, 100), 20, 20); Image14.Canvas.DrawEllipse(PixelRegion, 1); То в Win всё видно, а на девайсе не видно?
  8. Ага, в общем я как-то починил, но как скрыть его на всё время, а клавиатуры скрывать например при скролинге ListBox'а?
  9. Как добавить на SpeedButton изображение? И чтобы при нажатии оно менялось на другое? Я пробовал делать так: Создавал SpeedButton (у которого StaysPressed в true ), На него кидал 2 Image, Задавал им HitTest в false В процедуре нажатия менял Visible у этих Image. Но когда я несколько кнопок поместил на HorzScrollBox, то когда я пытаюсь проскролить, кнопка нажимается и остаётся как бы в нажатом положении, а картинка не меняется.
  10. Не понимаю. Что надо написать для того чтобы например на OS X переместить курсор в позицию 100 100?
  11. Как правильно создавать и удалять объекты в run time? А то создаю так: c[r] := TCircle.Create(TabItem1); c[r].Position.X := 1; c[r].Position.Y := 1; c[r].Width := 50; c[r].Height := 50; c[r].Parent := TabItem1; И разрушаю так: c[r].Free; То в Win всё ок, а на симуляторе iOS объекты не разрушаются, а просто остаются. Попробовал так: c[r].Destroy; Тогда всё на Win опять всё ок, а на симуляторе разрушается, но при попытке снова создать - приложение крашится.
  12. Как программно изменить положение курсора мыши?
  13. Ставлю на 2D форму TViewPort3D, кидаю на него Sphere и Rectangle, у Rectangle ставлю позицию по Z = -4, а у Sphere остаётся 0, а отображается как на рисунке, то есть как будто это 2D объекты у которых координата по оси Z не играет никакой роли, а Rectangle должен быть спереди сферы. В 3D Application все хорошо.
×
×
  • Создать...