Jump to content

gioma

Members
  • Content Count

    115
  • Joined

  • Last visited

Everything posted by gioma

  1. gioma

    Delphi Rio 10.3.2 : iOS Display Name

    No, I didn't explain myself well, I wanted to change the name that is displayed once the app is installed. On Android it works by changing the "Label" key, while on iOS it should work by changing the "CFBundleDisplayName" key but it doesn't work! https://community.embarcadero.com/article/technical-articles/145-ui/973-how-can-i-change-name-of-firemonkey-mobile-application-to-contain-spaces
  2. gioma

    Application Loader no longer included in Xcode11

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

    Application Loader no longer included in Xcode11

    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!
  4. gioma

    Delphi Rio 10.3.2 : iOS Custom Font

    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
  5. 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.
  6. 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
  7. You saved me. Now it works like a charm! Thank you very much!
×