Jump to content

Steve Maughan

Members
 View Profile  See their activity

  • Content Count

    135

  • Joined

  • Last visited

Posts posted by Steve Maughan

  1. Posted

    1 minute ago, Remy Lebeau said:

    Which version of Delphi are you using?  TControl.ClientToScreen() does not take 2 integers as input, it takes either a TPoint or a TRect.

     

    But, fixing that, the rest of the code shown works fine for me on my 2-monitor system.  So, unless there is a bug in your Delphi's VCL, this should work just fine, since ClientToScreen() returns screen coordinates, and Popup() takes screen coordinates.  Screen coordinates are within the Virtual Screen, not any particular monitor.

    Thanks Remy, I am actually passing a TPoint (my error when creating the code example). The user is reporting that the application crashes when they right click, and it's corrected when they only have one monitor. Does ClientToScreen work in all cases when the extra monitor is above, below, left and right of the main screen?

     

    Steve

  3. Posted

    I have a popup menu on a TPaintBox. Up to now I've used the simple code: 

    PopupPoint := PaintBox.ClientToScreen(X, Y);
RadialMenu.Popup(PopupPoint.X, PopupPoint.Y);

    It seem this doesn't work on multi-monitor systems — the Radial Menu isn't visible after the popup and the user thinks the application has crashed. 

     

    How do I adjust this so it works with multiple monitors? Thanks!

     

    Steve

  4. Posted

    Hi Felix,

     

    For those unaware of the subject area, I assume you're talking about the chess engine Stockfish.

     

    You're going to need to run a console app (stockfish) and then capture the output. For VCL apps you can use DOS Command. It's in GetIt. I'm not sure of this is available for Firemonkey.  

     

    I hope this helps.

     

    Steve

    • Thanks 1

  8. Posted

    I've added a TNotification to my application. After it completes a relatively computationally intensive task it creates and displays the notification using the following code: 

      	//-- Create it
    xNotification := NotificationCenter.CreateNotification;

    try

      //-- Process if assigned
      if assigned(xNotification) then
      begin
        xNotification.Name := 'Optimizer';
        xNotification.Title := 'AlignMix AI Optimizer';
        xNotification.AlertBody := IntToStr(OptScope.TerritoryCount) + ' '
          + Project.Alignment.Territory.TerritoryNamePlural
        	+ ' created in ' + FormatFloat('#,##0.0', StopWatch.ElapsedMilliseconds / 1000) + ' seconds';
        NotificationCenter.PresentNotification(xNotification);
      end;

    finally
      xNotification.Free;
    end;

    However, when the EXE is run for the first time outside the IDE the notification has a rather odd caption "Embarcadero.DesktopToasts.02911170" (see image attached). On subsequent runs it has the executable name, minus the ".exe" extension (see image attached).

     

    How can I customize the notification caption? I'd like it to simply say "AlignMix"

     

    Thanks,

     

    Steve 

    n1.png

    n2.png

  9. Posted

    1 minute ago, David Schwartz said:

    I did not use the Migration Tool for either 10.4.x upgrade and everything worked as expected, except this one deleted but did not re-install the GetIt libs. (My TMS libs remained intact.)

    Hi David,

     

    Does your app target Win64 or just Win32? My Win32 component path was fine, it was my Win64 component path that was scrubbed.

     

    Steve

  12. Posted

    I have a confession: I'm terrible at ensuring there are no Hints or Warnings in my code. That's all got to stop now that I have switched to 10.4.2 — the IDE now scream at me to fix these Hint and Warning (that's a good thing)!

     

    One hint that crops up a lot in my code is H2443 Inline function. Typically it says something like: 

    H2443 Inline function: TOptimizer.Execute has been expanded because unit 'TAnneal' is not included in the USES list

    What is this all about? Clearly the code runs without TAneal in the USES list and I like to minimize the number of units in the USES list. The hint goes away if I add TAnneal to the USES list but what's the advantage of including it — my code is cleaner and runs just fine if I don't include it.

     

    Also, does anyone have a tutorial on getting rid of Delphi Hints and Warnings? Some are obvious, others (like this one) are not so obvious.

     

    Thanks,

     

    Steve

  13. Posted

    As I posted elsewhere, the new install scrubbed my Win64 library path. That was the only problem I encountered. Overall it seems like an excellent, quality orientated upgrade. I ran my mapping application through some speed tests and it definitely seems to be running faster when compiled with the latest version — about +4% faster.

     

    Steve

    • Thanks 1

  15. Posted

    1 hour ago, Rollo62 said:

    I believe so too, but DeepBlue is worth mentioning, isn't it ?

    Isn't this evolving too, with never versions, or is it a complete dead project now ?

    At least it was the first beating the human chess wolrd champion, should be a little honoured IMHO.

    Deep Blue was IBM’s pet project from the late 90’s and has never been available for public scrutiny. It’s estimated strength is about 2800 ELO. To put this in context, if the latest Stockfish, running on a iPhone, played 100 games against Deep Blue it would win at least 95. 

    • Like 1

  16. Posted

    I'm reasonably well know in the field of computer chess and competed in the 2015 World Computer Chess Championships. Although Delphi is my first language, my engine was written in plain old "C". However, there are a number of strong open source chess programs written in Delphi. Here are a few:

     

    Booot:

    booot6_4_release.rar (dropbox.com)

     

    Open-Critter:

    GitHub - rchastain/open-critter: UCI chess engine written in Pascal by Richard Vida

     

    Durandal:

    GitHub - rchastain/durandal: UCI chess engine written in Pascal

     

    Steve

    • Like 2

  22. Posted

    If I run my application in debug mode and then exit the application, I get a small dialog informing me "Debug process not initialized" — see screenshot. I then have two buttons: "OK" and "Details". When I click "Details" I can see the MadExcept error report. I can't see anything obviously wrong. 

     

    Does anyone know how to fix this? All help appreciated!

     

    I'm using Delphi DX 10.4.1  

     

    Steve

    bugreport.txt

    Debug_Not_Initialized.png

  23. Posted

    18 hours ago, David Heffernan said:

    I can't understand why you would. Aren't you likely just to end up changing your code for no reason, given that the defect is almost certainly not in your compression library?

    I won't change my library but I'd still like to be aware of any newer, and maybe better, libraries. Having had a quick look it seems to be third party. I had thought it was shipped with Delphi since it was System.Zip2. I try to minimize the use of third party components so definitely won't switch, or even look any further.

  25. Posted

    17 hours ago, David Heffernan said:

    They are. 

     

    That's the a very plausible explanation. File corruption is something that does happen. 

     

    You'll want to reproduce the issue before trying to solve the problem. And if it is file corruption then the solution is somebody else's problem.  

    Thanks David — all good advice. I was really looking to see if there were a list of known bugs with the ZCompressStream. It seems file corruption post saving is probably the most likely explanation.

×