Jump to content

Keesver

Members
  • Content Count

    79
  • Joined

  • Last visited

  • Days Won

    2

Keesver last won the day on February 10

Keesver had the most liked content!

Community Reputation

20 Excellent

Recent Profile Visitors

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

  1. Fixed it by adding dw-kastri-base-3.0.0.jar to the project.
  2. Keesver

    Java type not registered

    I'm not using the demo app, I started a new project. I missed this step however, thanks for your info.
  3. Keesver

    Java type not registered

    Hello, I'm using class TLocalReceiver from a Kastri sample application. When I create a new instance from this class I run into an exception: Project BroadCast.apk raised exception class EJNIFatal with message 'Java type com/delphiworlds/kastri/DWMultiBroadcastReceiverDelegate could not be found'. In the source code I find this: [JavaSignature('com/delphiworlds/kastri/DWMultiBroadcastReceiverDelegate')] JDWMultiBroadcastReceiverDelegate = interface(IJavaInstance) ['{1AD78992-D81F-48A4-B341-F82B43094B67}'] procedure onReceive(context: JContext; intent: JIntent); cdecl; end; which tells me the type should have been be registered (I have this file included in the uses of my test application). What am I missing here, do I have to add code to my application to register this class?
  4. Hello, I'm trying to get the Foreground service demo application to work in Delphi 12. Therefore I copied the files to a new project, checked the manifest files and I got everything set as it should. However when I start the service, an exception is raised inside the service create method: constructor TServiceModule.Create(AOwner: TComponent); begin inherited; TOSLog.d('TServiceModule.Create - 1'); FLocalReceiver := TLocalReceiver.Create(Self); <-- java.lang.IllegalArgumentException: Receiver not registered: null TOSLog.d('TServiceModule.Create - 2'); FService := TJService.Wrap(System.JavaContext); TOSLog.d('TServiceModule.Create - 3'); CreateNotificationChannel; TOSLog.d('TServiceModule.Create - 4'); end; I think I'm missing something, what should be done to 'Register' a receiver? Thanks
  5. Keesver

    New desktop FMX app - third party controls?

    ## Free version A free version is available which is actually quite capable. The free version is named FMX-GRID. This version can be used by any number of developers and offers royalty free distribution of applications. The free version is published under the MIT license ## Commercial version FMX-GRID-MODEL is a commercial product. It adds model support and property binding for easy creation of user interfaces. A license is required per developer. Licenses are valid for 12 months, a subscription is required to keep licenses valid. Subscriptons must be renewed after the end date. If you are renewing your license before (or up to 30 days after) the current expiration date, the new expiration date will be calculated based on the original order date. Updates are only available to users with a valid license.
  6. Keesver

    New desktop FMX app - third party controls?

    We are in a similar situation and support a desktop, mobile, web and MacOs application from a single code base. We use a grid control written by our company which is also publicly available at Git-hub (GitHub - a-dato/FMX-GRID). This is more than just a grid control, as it supports light weight data binding and custom collections, sorting and more. You are welcome to check it out.
  7. What is the current state of this project? I'm looking for something like this. Looks like it made it into Kastri. Will check there first....
  8. Delphi 12 Version 29.0.50491.5718: I just did a small test on a fast MSSql server with a similar query on a very large table and I do not see such a delay. The data is shown quickly. I'm just using FDConnection and FDQuery. Probably your setup is different or your table contains some (big) blob's that are fetched? Also tried ADOConnection/ADOQuery, this was actually a little bit faster. Please provide a sample.
  9. Just to be clear, the application is the same in D11 and in D12? Or are you comparing VCL to FMX?
  10. You can add all objects to the same TLayout and then control the opacity from this TLayout.
  11. Keesver

    FMX-GRID Released

    Some images to show the grid in action:
  12. Keesver

    FMX-GRID Released

    Hello all, We are pleased to anounce the availability of a new Delphi grid control specifically designed for FMX. This control runs on all platforms, is easy on the memory, updatess fast and has smooth scrolling. There is a free version available that includes the following features: Connects to different data sources (Lists, List<T>, TDataset) Smart row caching results in low memory usage Fast scrolling Hierarchical views Extendable property model based on .Net type system (object properties can be modified at runtime) Development backed up by a professional team of FMX developers Components used in professional software (Lynx/Lynx-x) by a large user community We also provide a commercial version, this version adds model support and property binding to visual controls. You can easily bind properties to editors for advanced two way syncing. Please go to https://github.com/a-dato/FMX-GRID.git to download the free version. Community site: https://community.a-dato.com
  13. I can't login into https://quality.embarcadero.com/login.jsp. Is it my account or something else? Thanks for your feedback
  14. ApplyStyleLookup should be called only once when a control is about to be painted. However, when a TDateEdit control is put on a form and the application is moved to a second monitor with a different DPI, ApplyStyleLookup is called every time the drop down of the date editor is opened. The same happens with a TComboBox control. See test application. We will create a bug report for this at Embarcadero, but maybe someone knows a fix or workaround? Thanks ApplyStyleLookup.zip
  15. procedure TFMXPrintForm.btnMakePDFClick(Sender: TObject); var r: TRect; LCanvas: ISkCanvas; LDocument: ISkDocument; LDocumentStream: TStream; LSVGDOM: ISkSVGDOM; LSize: TSizeF; begin LSVGDOM := TSkSVGDOM.MakeFromFile('Delphi.svg'); LSize := TSizeF.Create(300, 300); r.Left := 0; r.Top := 0; r.Width := Round(treeControl.Width); r.Height := Round(treeControl.Height); LSVGDOM.SetContainerSize(LSize); LDocumentStream := TFileStream.Create('Delphi.pdf', fmCreate); try LDocument := TSkDocument.MakePDF(LDocumentStream); try LCanvas := LDocument.BeginPage(r.Width, r.Height); try LSVGDOM.Render(LCanvas); finally LDocument.EndPage; end; finally LDocument.Close; end; finally LDocumentStream.Free; end; end; Also see: Using Skia's PDF Backend | Skia
×