c0d3r

Appreciated.

I'm leaning toward using SVG, but how to convert current PNGs to SVGs is a challenging.

No. We don't use any 'style' or 'skin'. We don't like styles and skins, and totally against using them. Our clients don't care about how fancy the software looks like, but they DO like a stable, reliable, easy to use and bug free system.

Just tried 'Style', and pick Windows 10 as example, and NO its not the right way to have app DPI awared. The screen looks horribly blur, using sort of bitmap stretching way, looked exactly the same as you set 'Unaware' to the DPI awareness option.

Thanks. but what exactly does this 'Style' do with my TPngImageLists that used by toolbars, which aren't scaled to the proper High DPI? I'm totally confused.

We are not using any "Style", there was no "Style" during Delphi 2007 era. We just recently moved to Delphi 10.4, and making our production to be DPI aware.

I knew SVG, its great. But we were using PNGs all over the places in our major production, and no way you could find all these images in SVG.

Sometimes when I ctrl+enter on some units in uses clause, I was keeping get: [MSBuild Warning] There is a circular reference involving the import of file "c:\program files (x86)\embarcadero\studio\21.0\Bin\CodeGear.Delphi.Targets". This file may have been imported more than once, or you may have attempted to import the main project file. All except the first instance of this file will be ignored. What is it about, any idea how to get rid of it? some of these unit are used by the project only.

Good catch!. Removing the one without condition seems made it working. Thanks.

Hi, All I got very confused for the following code which is working in our 32 bit application but not in 64 bit application (using Delphi 10.4.1): function TMyService.Init(const ClientIdent: TkbmMWClientIdentity; const Args: array of Variant): Variant; var ds: TDataset begin Result := ''; <---- raising "Invalid variant type" in 64 bit application ... end; Any idea? Thanks.

Yes. That was it. Thanks much!

These 2 lines codes aren't related to kbmMW, they are delphi RTTL related codes, that you can call all the published methods in a class. @ServiceMethod := MethodAddress(Func) ServiceMethod(Self, ClientIdent, Args)

I'm looking into: @ServiceMethod := MethodAddress(Func) and ServiceMethod(Self, ClientIdent, Args) wondering if it works for 64 bit or not. when I trace to the actual method code, all the properties in that "Self" is all reset, which tells me the 'Self' isn't the one. Edit: WOW, something is wrong for sure, in that TMyService.Init method, calling a class function got 'c0000005 ACCESS_VIOLIATION' error: class function TMyService.GetPrefServceName: string begin Result := 'ABC'; end; function TMyService.Init(const ClientIdent: TkbmMWClientIdentity; const Args: array of Variant): Variant; var ds: TDataset S: string; begin s := GetPrefServiceName; <---- raising "c0000005 ACCESS_VIOLATION" in 64 bit application ... end;

Odd, the initial Result.VType = 48088, variant array of unknown, What was that?!

Just want to make it clear. This is a Windows service project, includes several Micro services that serve client requests. Here are what we have in codes: Type TServerServiceMethod = function(Sender: TObject; const ClientIdent: TkbmMWClientIdentity; const Args:array of Variant): variant; Function to process client request, the result will be send back to client: function TMybaseService.ProcessRequest(const Func: string; const ClientIdent: TkbmMWClientIdentity; const Args: array of Variant): Variant; var ServiceMethod: TServerServiceMethod; begin @ServiceMethod := MethodAddress(Func); if Assigned(ServiceMethod) then Result := ServiceMethod(Self, ClientIdent, Args) else Result := inherited ProcessRequest(Func, ClientIdent, Args); end; The problem code is one of the micro service method defined in the service's Published section: function TMyService.Init(const ClientIdent: TkbmMWClientIdentity; const Args: array of Variant): Variant; var ds: TDataset begin Result := ''; <---- raising "Invalid variant type" in 64 bit application ... end; The codes were working in 32 bit application, so I was wondering if there is something missing in the above ProcessRequest in 64 bit, but don't know what I'm missing.

Ah, OK. Sorry about that. I don't use FireDAC, I'm always using UIB to work with Firebird databases with UTF8/Unicode, I got the same error when I was using UTF8 to connect to a NONE set of Firebird database.

I think you were using UTF8 character set while connecting a Firebird database which created with NONE/ANSI/... character set, which caused Firebird raised this exception. Its NOT a FireDAC issue. In order to make it works, either you use NONE character set while connecting to your database, or convert your Firebird database to UTF8.

One thing I don't like Hyper-V was that its always using host's DPI settings (e.g. under Full Screen mode), if the host DPI is set to 125%, you can't change Hyper-V to use other DPI settings. so I switched back to VMware.

You have CnWizard installed, could be where the issues came from: 13B1230C]{CnWizards_D104S.DLL} CnWizNotifier.TCnWizNotifierServices.DoMsgHook$qqrp20System.Classes.TListt1p6HWND__rx24Winapi.Messages.TMessage (Line 1948, "CnWizNotifier.pas" + 1) + $19 [13B123BF]{CnWizards_D104S.DLL} CnWizNotifier.TCnWizNotifierServices.DoMsgHook$qqrp20System.Classes.TListt1p6HWND__rx24Winapi.Messages.TMessage (Line 1959, "CnWizNotifier.pas" + 12) + $15

Any one know if IIF function works in FireDAC SQLite local SQL or not, I can't make it work: select iif(xx>0, 10, -1) as field1, .... from.. select iif(xx>0, 'Yes', 'No') as field1, ... from... select sum(iif(xx>0, 0, 1)) as field1, ... from ... field1 always returned blank/empty.

Our production back end database is Firebird, we just want to run some queries against in memory datasets at client side applications for reporting purpose, I was told FireDAC Local SQL was based on embedded SQLite3 (?) and doesn't need any other libraries since the entire engine codes are embedded directly into applications(?) Please let me know how to try another SQLite3 library?? Anyway, I'm working and testing with kbmMWMemSQL at the moment, so far its good although lack of some features, missing some standard SQL syntax like HAVING, .., etc.

Yeah, query is OK: "select clientid, sum(iif(price > 0, amount, 0)) as total_amount from sales group by clientid", ran the query with TxQuery, got right result, ran the query with Firebird iSQL, got right result too. Using SQLite Local SQL, it listed all the ClientIDs but the Total_Amount fields were all blank. In order to test "iif" works or not, I then tried FireDAC local sql demo program (the sample installed by Delphi 10.4.1) connected to demo db, 'select clientid, freight from qOrders' was working, but: "select clientid, iif(freight > 0, 10, -10) as test from qOrders" wasn't working, it listed all the ClientIDs but the "Test" fields were all blank.

The SQL statement works with TxQuery, works with Firebird, ..., pretty much all the modern SQL engines supported IIF function nowadays.

No, I didn't use SQLite3 explorer, I had few memory datasets (mostly from Reports), try finding a local sql engine to run queries against them. so far I found only TxQuery is working. However, if Delphi 10.4.1's Compiling Optimization is turned on (Release mode), it seriously screwed TxQuery engine codes and causing AVs, so I'm looking for an alternative, try FireDAC SQLite Local SQL, it doesn't work as long as using IIF function, try FireDAC samples/Local SQL demo, it doesn't work with IIF either.

Try deleting one component on an ancient form, causing all sorts of AVs on inherited forms. Turns out you have to open each inherited forms at design time after the deletion, to answer a dump question "if the reference is deleted or renamed"..., then save them. What were these $&&*%$$ EMBR guys thinking? The worse part was that some of inherited forms were OK no AVs and some of inherited forms weren't OK and AVs. Imagine if you have hundreds inherited forms....