Jump to content

mausmb

Members
  • Content Count

    34
  • Joined

  • Last visited

Community Reputation

9 Neutral

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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
  2. mausmb

    TStringGrig formatting date

    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
  3. mausmb

    Programmatically Change Properties of a Custom style

    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
  4. mausmb

    How to Code SQL IN Statement correctly

    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
  5. Hi, Fmx.VirtualKeyboard works fine with Android, but with Windows is unstable and slow .... Did Anybody made custom FMX keyboard for Windows ? Regards, marjan
  6. 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
  7. mausmb

    Android in VMWare

    Hi, VMware, delphi standard instalation with Android SDK/NDK... debugging working just fine (since Delphi Berlin). Regards, M
  8. Hi, from July 23 - to August 1. br,
  9. mausmb

    Install Android SDK manually?

    Hi, https://docs.unity3d.com/560/Documentation/Manual/android-sdksetup.html or install Android studio ... then edit path's regards, mm
  10. 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!
  11. mausmb

    DBNavigator Losing Colours

    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
  12. 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
  13. mausmb

    Generating one-to-many on the fly with Live Bindings

    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
  14. mausmb

    RIO - FDMemTable fielddefs design time bug ?

    Yes .and on many other properties (FMX)
  15. mausmb

    Problems with Listview fmx 10.3 ,close application

    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
×