Jump to content

ringli

Members
  • Content Count

    8
  • Joined

  • Last visited

Community Reputation

1 Neutral

Technical Information

  • Delphi-Version
    Delphi 11 Alexandria

Recent Profile Visitors

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

  1. ringli

    AE BDSLauncher

    That is strange. I am also using Delphi 11.2 here. I have tested it a few more times now and currently the phenomenon is not traceable. If it occurs again I will try to narrow down the problem further.
  2. ringli

    AE BDSLauncher

    I have made some changes to the BDSLauncher that may be useful to the general public. I had the problem that the rule "*\My Projects\Project Name\*.dproj" was not recognized as true by the used function "System.Masks.MatchesMask". Therefore I made the following changes in the unit "uBDSLauncherMainForm": Unit uBDSLauncherMainForm; Interface Uses ... Type ... // // Replacement for MatchesMask from Unit System.Masks // function PathMatchSpecEx(pszFile, pszSpec : LPCWSTR; dwFlags : DWORD) : HRESULT; stdcall; .... Implementation Uses ... // // Replacement for MatchesMask from Unit System.Masks // function PathMatchSpecEx; external 'shlwapi.dll' name 'PathMatchSpecExW'; function BDSMatchesMask(const pszFile, pszSpec : String) : Boolean; const PMSF_NORMAL = $000000; PMSF_MULTIPLE = $00000001; begin Result := PathMatchSpecEx(PChar(pszFile), PChar(pszSpec), PMSF_NORMAL or PMSF_MULTIPLE) = S_OK; end; .... Function TBDSLauncherMainForm.OpenWithRules(Const inFileName, inDetectedVersion: String): Boolean; Var ... Begin ... For mask In rule.FileMasks.Split([sLineBreak]) Do //anymatch := anymatch Or MatchesMask(inFileName, mask); anymatch := anymatch Or BDSMatchesMask(inFileName, mask); ... Another change I have made in the unit "AE.IDE.DelphiVersions". Reason was here that there is with me in the Registry the path "HKCU\SOFTWARE\Embarcadero\BDS\_22.0". The underscore then led to the error "'_22' is not a valid integer value for type 'Integer'". Unit AE.IDE.DelphiVersions; Interface Uses ... Type ... Implementation Uses ... .... Procedure TAEDelphiVersions.DiscoverVersions(Const inRegistry: TRegistry; Const inDelphiVersionClass: TAEDelphiVersionClass); Var ... Begin ... //Self.AddVersion(inDelphiVersionClass.Create(Self, inRegistry.ReadString('App'), Integer.Parse(s.Substring(0, s.IndexOf('.'))))); var arr : TArray<string> := s.Split(['.']); var ver : Integer := StrToIntDef(arr[0], 0); if ver > 0 then begin Self.AddVersion(inDelphiVersionClass.Create(Self, inRegistry.ReadString('App'), ver)); end; Finally ...
  3. ringli

    ANN: Open Source Event Bus NX Horizon

    Thanks for your explanation and your efforts. In one of my projects I am reading in a folder with more subfolders and outputting the search results in a ListView. The whole thing is already running in a simple thread, but sometimes it seems to hang a bit. Therefore I wanted to test if there is a better or simpler solution. I always tend to solve everything too complicated.
  4. ringli

    ANN: Open Source Event Bus NX Horizon

    The project seems to be very interesting. So far I have no experience with an event bus to be able to estimate whether I can use the library in my small hobby projects. For me (and I'm sure for others) a few small practical examples would be very instructive. It would be great if you could upload some examples to the github repository.
  5. ringli

    ANN: Better Translation Manager released

    Sorry for the late answer. Exporting the settings every time I quit and restoring them the next time I start up I don't think so much. A backup / restore function would certainly be helpful, with which you can save the complete settings if a purely portable version is not or only with difficulty possible.
  6. ringli

    ANN: Better Translation Manager released

    Thanks for this great tool. It would be nice if it could be used optionally portable. For example via a file PORTABLE in the program directory. I don't own the DevExpress components, so I can't make the changes myself.
  7. No answwer about that?
  8. The tool seems interesting. How about an introductory offer for RAD Studio users or DelphiPraxis members?
×