97mik

Как создать освещение в 3D сцене и сделать блики на объектах?

Project -> Options... -> Application

В Target поставить необходимую платформу и указать пути до изображений.

Как сделать переход при выборе пункта в ListBox?

И можно ли при этом будет вернутся свайпом слева направо?

Как сделать объединённый ToolBar и StatusBar + сделать это немного прозрачным + любого цвета? Также как это организовано в приложении VK.

В системе iOS есть несколько вариантов анимации выдвижных панелей, и вот один из них это когда панель выходит снизу экрана, как это можно сделать?

Пробую нарисовать окружность в заданном регионе на мобильной платформе следующим способом:

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 всё отображается, а на мобильных платформах окружность не отображается. Подскажите, с чем может быть связано такое поведение.

А почему когда пишу так:

Image14.Canvas.Stroke.Color := TAlphaColorRec.Red;
PixelRegion := TRectF.Create(TPointF.Create(100, 100), 20, 20);
Image14.Canvas.DrawEllipse(PixelRegion, 1);

Ага, в общем я как-то починил, но как скрыть его на всё время, а клавиатуры скрывать например при скролинге ListBox'а?

У меня почти всё подчёркивается красным и куда писать код, в OnCreate?

Как убрать тулбар над виртуальной клавиатурой в iOS?

Как добавить на SpeedButton изображение? И чтобы при нажатии оно менялось на другое?

Я пробовал делать так:

1. Создавал SpeedButton (у которого StaysPressed в true ),
2. На него кидал 2 Image,
3. Задавал им HitTest в false
4. В процедуре нажатия менял Visible у этих Image.

Но когда я несколько кнопок поместил на HorzScrollBox, то когда я пытаюсь проскролить, кнопка нажимается и остаётся как бы в нажатом положении, а картинка не меняется.

Не понимаю. Что надо написать для того чтобы например на OS X переместить курсор в позицию 100 100?

Всё простенько.

Как правильно создавать и удалять объекты в 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 опять всё ок, а на симуляторе разрушается, но при попытке снова создать - приложение крашится.

Как программно изменить положение курсора мыши?

Ставлю на 2D форму TViewPort3D, кидаю на него Sphere и Rectangle, у Rectangle ставлю позицию по Z = -4, а у Sphere остаётся 0, а отображается как на рисунке, то есть как будто это 2D объекты у которых координата по оси Z не играет никакой роли, а Rectangle должен быть спереди сферы. В 3D Application все хорошо.