mausmb

Hi, Obviously "now" on Windows 10 is different .. Maybe you can go via DecodeDateTime(now,myYear,myMonth,myDay, myHour, myMin, mySec, myMilli) and then construct yours datetime formats Regards, m

Hi, TFormatSettings.Create; FormatSettings.ShortDateFormat := 'dd.MM.yyyy'; // FormatSettings.LongDateFormat := 'dd.MM.yyyy'; // FormatSettings.DateSeparator := '.'; FormatSettings.ShortTimeFormat := 'hh:mm:ss'; // FormatSettings.LongTimeFormat := 'hh:mm:ss'; // regards, M

Something in this direction ? procedure ColorLabel(const pColor : TAlphaColor; const pString:String; mylabel:Tlabel); var prect:Trectangle; ptext:TText; begin 1. creation if mylabel.ChildrenCount=1 then begin // creating trrectangle on fly prect:=Trectangle.Create(mylabel); prect.Parent:=mylabel; prect.Align:=TAlignLayout.Client; prect.HitTest:=False; prect.Margins.Left:=-1; prect.Margins.Right:=-1; prect.Margins.Top:=-1; prect.Margins.Bottom:=-1; prect.Sides:=[]; // no borders prect.Fill.Color:=pColor; ptext:=TText.Create(mylabel); ptext.Parent:=prect; ptext.Align:=TAlignLayout.Client; ptext.Text:=pString; ptext.TextSettings:= mylabel.TextSettings; ptext.HitTest:=False; mylabel.Text:=''; end 2. changing color if mylabel.Children[1].ClassName=Trectangle.ClassName then Begin // change color (mylabel.Children[1] as Trectangle).Fill.Color:=pColor; // pCOlor is parameter for custom color if (mylabel.Children[1] as Trectangle).Children[0].classname=TText.classname then Begin // chanhe text ((mylabel.Children[1] as Trectangle).Children[0] as TTExt).Text:=pString; // pString is parameter for TEXT ((mylabel.Children[1] as Trectangle).Children[0] as TTExt).TextSettings.Fontcolor:=mylabel.TextSettings.Fontcolor; End; End; end; br, m

Hi, This code "qQuery.Open( 'SELECT * FROM tTableName WHERE Status IN ( :pS, :pR ) ORDER BY EventDate', [ 'S', 'R' ] );" can't work for a single or more than 2 parameters (just in case) Param1:='( 'S','R' )' Param2:='['S','R']' qQuery.Open( 'SELECT * FROM tTableName WHERE Status IN :Param1 ORDER BY EventDate, :Param2 ); I'm using that approach without Param2 (that part you should test it) regards, M

Hi, Fmx.VirtualKeyboard works fine with Android, but with Windows is unstable and slow .... Did Anybody made custom FMX keyboard for Windows ? Regards, marjan

Closed : bug in 10.3.2 (SugarLoaf is working ) Hi, I have a problem with intercepting SOAP packages. I'm using WSDL importer and THTTPRIO OnBeforeExecute and OnAfterExecute event. OnAfterExecute I get Soap response package without problem, but OnBeforeExecute Tstream (as String) is always empty. What I'm doing wrong ? procedure TDummyBeforeEx.Beforexecute(const MethodName: string; SOAPRequest: TStream); var sl : TStringList; // If I'm ussing Array of byte is the same empty result when encoding to string begin sl := TStringList.Create; SOAPRequest.Position := 0; try sl.LoadFromStream(SOAPRequest); if sl.Text='' then // Always empty ! exit; sl.Text := StringReplace(sl.Text, '<soap:Body>', '<soap:Body>XXX', [rfReplaceAll]); sl.SaveToStream(SOAPRequest); finally sl.Free; end; end; function GetKasaSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): KasaSoap; const defSvc = 'Kasa'; defPrt = 'KasaSoap'; var RIO: THTTPRIO; begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; try rio.OnAfterExecute:=TDummyAfterEx.AfterExecute; // working as aspected rio.OnBeforeExecute:=TDummyBeforeEx.Beforexecute; RIO.Converter.Options:=RIO.Converter.Options+[TSOAPConvertOption.soSendMultiRefObj,TSOAPConvertOption.soSendMultiRefArray]; // RIO.HTTPWebNode.ConnectTimeout:=10; // RIO.HTTPWebNode.SendTimeout :=10; // RIO.HTTPWebNode.ReceiveTimeout:=10; Result := (RIO as KasaSoap); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end; Regards, M

Hi, VMware, delphi standard instalation with Android SDK/NDK... debugging working just fine (since Delphi Berlin). Regards, M

Hi, from July 23 - to August 1. br,

Hi, https://docs.unity3d.com/560/Documentation/Manual/android-sdksetup.html or install Android studio ... then edit path's regards, mm

From Google Play today : Thank you for your patience while we reviewing your request. I'm happy to inform you that your app "*********" has been approved for 64-bit extension. Please note that the extension will only be given until August 1st, 2020. In addition, once your app is compliant with 64-bit, please let me know by replying this email. Thank you for supporting Google Play. Have a nice day!

Hi, property StyleElements: TStyleElements read FStyleElements write SetStyleElements default 7; Specifies the style elements that are used by the control. Use StyleElements to customize the style of the control. If a custom style is enabled, you can enable or disable style elements in the control. StyleElements is a set of values that specify which elements of the current style are to be applied to this control. By default, all the elements of the style are enabled. But for TdbNavigator is not possibile to set styleelements .. partial success with grids... br, M

Hi, Some Android 5.1 (not all!!) and Delphi Rio have some (other/different) issues... I was forced to compile app with Tokyo for Android 5.1. The best solution is upgrade device 5.1. to Android 6.0 or more. However some "no-name" devices don't provide upgrade. br, Marjan

Not going into "demo VS production" app area...Let's say (for the sake of the argument) that statement "but trying to do too much on a single mobile screen at the same time" is true . With Livebindings performance is poor. Without Livebindigs performance is good. So what's your argument again ? 🙂 br, m

Yes .and on many other properties (FMX)

I'm affraid you won't get best UX&performance with livebindigs br, m p.s. If you have more complex ListView you can do it manually 🙂 with TAppearanceListViewItems... LItem.Objects.FindDrawable('name').Width:=LColWidth; // LItem.Objects.FindDrawable('name').Data:=yourdata