-
Постов
98 -
Зарегистрирован
-
Посещение
-
Победитель дней
3
Весь контент 97mik
-
Как создать освещение в 3D сцене и сделать блики на объектах?
-
Как объединить системный StatusBar и ToolBar в iOS7?
97mik опубликовал вопрос в Системный статус бар
Как сделать объединённый ToolBar и StatusBar + сделать это немного прозрачным + любого цвета? Также как это организовано в приложении VK. -
В системе iOS есть несколько вариантов анимации выдвижных панелей, и вот один из них это когда панель выходит снизу экрана, как это можно сделать?
-
TCanvas Почему на мобильных платформах у меня не рисуется окружность?
97mik опубликовал вопрос в Окружность
Пробую нарисовать окружность в заданном регионе на мобильной платформе следующим способом: 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 всё отображается, а на мобильных платформах окружность не отображается. Подскажите, с чем может быть связано такое поведение.- 1 ответ
-
- DrawEllipse
- Stroke
-
(и ещё 1 )
C тегом:
-
А почему когда пишу так: Image14.Canvas.Stroke.Color := TAlphaColorRec.Red; PixelRegion := TRectF.Create(TPointF.Create(100, 100), 20, 20); Image14.Canvas.DrawEllipse(PixelRegion, 1); То в Win всё видно, а на девайсе не видно?
-
Virtual Keyboard Как убрать тулбар над виртуальной клавиатурой в iOS?
97mik опубликовал вопрос в Виртуальная клавиатура
Как убрать тулбар над виртуальной клавиатурой в iOS? -
TSpeedButton Как добавить изображение на кнопку SpeedButton?
97mik опубликовал вопрос в TSpeedButton
Как добавить на SpeedButton изображение? И чтобы при нажатии оно менялось на другое? Я пробовал делать так: Создавал SpeedButton (у которого StaysPressed в true ), На него кидал 2 Image, Задавал им HitTest в false В процедуре нажатия менял 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 все хорошо.