gioma

I was about to write the same thing, I just discovered it.

Hi, I open a report to request App Store support. https://quality.embarcadero.com/browse/RSP-26465 In this way is very difficult continue to develop app with Delphi, they have to speed up!

Solved, thanks. The problem was that I didn't put the font file in the project folder. I had put it in a subfolder! Bha

Yes, I know that the SetStatusBar function is obsolete and now there is no other function to do it. I found a solution, to open the module that I would like to show only in Landscape, I show a message to the user to inform him that he must rotate the phone to open it. Then, when the user rotates the phone, the "onResize" event is activated. In this event the orientation is set only to Landscape and then the form is opened.

I created a component and used it on a project that works great with Delphi Tokio (10.2.3). When I opened the same project with Delphi Rio (10.3.2) instead I found a very strange problem. The class that I have created derives from a TCustomScrollBox and has a TPanel a TRectangle, and a TTimer between the private objects which are then created at runtime in the create function of the class. The problem is that when I open the project the form containing an object of that class immediately creates at designtime one objects ( TTimer) without a name. If I switch to displaying the form as textand then going back to the display as a form it creates TTimer again and it creates other two unnamed objects (TPanel and TRectangle) (so each time it adds three unnamed objects). code: interface TCustomClass = class(TCustomScrollBox) private BitmapPanel: TPanel; CursorPanel: TRectangle; DragClickTimer: TTimer; .. public constructor Create(AOwner: TComponent); override; ... implementation constructor TCustomClass.Create(AOwner: TComponent); var k: TScrollCalculations; begin inherited; ... BitmapPanel := TPanel.Create(self); BitmapPanel.Parent := self; BitmapPanel.OnPaint := BitmapPanelPaint; BitmapPanel.ClipParent := True; BitmapPanel.Enabled:=false; CursorPanel:= TRectangle.Create(self); CursorPanel.Parent := Self; CursorPanel.ClipParent:=True; CursorPanel.Fill.Kind:=TBrushKind.None; CursorPanel.Stroke.Kind:=TBrushKind.None; CursorPanel.OnPaint:=CursorPanelPanelPaint; CursorPanel.Enabled:=false; DragClickTimer := TTimer.Create(TFmxObject(AOwner)); DragClickTimer.enabled := False; DragClickTimer.interval := 700; DragClickTimer.OnTimer := DragClickTimerTimer; end; This happens when I open the form containing an object of that class: This is the code that generates when I switch to displaying the form as text: object mView: TRtcMobileDesktopViewer Touch.InteractiveGestures = [Zoom, Pan, TwoFingerTap, LongTap, DoubleTap] OnTap = mViewTap Anchors = [akLeft, akTop, akRight, akBottom] Position.X = 24.000000000000000000 Size.Width = 647.000000000000000000 Size.Height = 329.000000000000000000 Size.PlatformDefault = False Viewport.Width = 647.000000000000000000 Viewport.Height = 329.000000000000000000 object TPanel ClipParent = True Enabled = False Size.Width = 647.000000000000000000 Size.Height = 329.000000000000000000 Size.PlatformDefault = False TabOrder = 0 end object TRectangle ClipParent = True Enabled = False Fill.Kind = None Size.Width = 647.000000000000000000 Size.Height = 329.000000000000000000 Size.PlatformDefault = False Stroke.Kind = None end end object TTimer Enabled = False Interval = 700 end

nothing, it works like a charm!

You saved me. Now it works like a charm! Thank you very much!

is there something wrong with my code?