Jump to content

shineworld

Members
  • Content Count

    317
  • Joined

  • Last visited

  • Days Won

    3

shineworld last won the day on November 1 2022

shineworld had the most liked content!

Community Reputation

73 Excellent

About shineworld

  • Birthday 05/09/1970

Technical Information

  • Delphi-Version
    Delphi 12 Athens

Recent Profile Visitors

4256 profile views
  1. shineworld

    Modify bitmap of FMX Image object

    Seems that Canvas object is not usable in DelphiFMX. c.BeginScene() does not works also passing (None, 0) or any other combination: import delphifmx as fmx img = fmx.Image(None) bmp = img.Bitmap print(f'Initial Image Width : {img.Width}') print(f'Initial Image Height : {img.Height}') print(f'Initial Image.Bitmap Width : {img.Bitmap.Width}') print(f'Initial Image.Bitmap Height : {img.Bitmap.Height}') bmp.Width = 200 bmp.Height = 200 img.Width = bmp.Width img.Height = bmp.Height print(f'Actual Image Width : {img.Width}') print(f'Actual Image Height : {img.Height}') print(f'Actual Image.Bitmap Width : {img.Bitmap.Width}') print(f'Actual Image.Bitmap Height : {img.Bitmap.Height}') c = bmp.Canvas print(f'Canvas Width : {c.Width}') print(f'Canvas Height : {c.Height}') r = fmx.RectF(0.0, 0.0, 100.0, 100.0) c.BeginScene(None, 0) try: pass #c.FillText(r, 'hello', True, 1, [], 'Center', 'Center') finally: c.EndScene() *** Remote Interpreter Reinitialized *** Initial Image Width : 50.0 Initial Image Height : 50.0 Initial Image.Bitmap Width : 0 Initial Image.Bitmap Height : 0 Actual Image Width : 200.0 Actual Image Height : 200.0 Actual Image.Bitmap Width : 200 Actual Image.Bitmap Height : 200 Canvas Width : 200 Canvas Height : 200 Traceback (most recent call last): File "D:\x\develop\qem\cnc_api_client_core_1\python\api_client_fmx_demo\test-001.py", line 30, in <module> c.BeginScene(None, 0) TypeError: "BeginScene" called with invalid arguments. Error: Expected and actual arguments are incompatible >>>
  2. So far, when I wanted to add a new UI component to DelphiVCL, I always started from DelphiVCL source, added the new unit with classes and types, and created a “clone” of the package with the new functionality using that instead of DelphiVCL. It works but I would like to “not touch” the original version of DelphiVCL installed by PyPi but only create an extensive module (pyd) with only the new UI controls. At this point I don't know if this can be done. I still understand little about P4D but it seems to me that each new module requires a PyEngine which loads the python DLL and this is already instantiated by DelphiVCL and if I create a new package with my new module and controls I assume there will be conflicts. Is this a viable way ? Is there any way to reuse the egine already created by original DelphiVCL to use it in my custom PYD ? I thank in advance those who will help me to dispel these doubts. Best regards Silverio
  3. shineworld

    Python DelphiFMX application icon

    Hi all, I'm trying to convert an old DelphiVCL (python) application to DelphiFMX and I was not able to define the form title icon image. In Project Options I've set Icon resource, as I made with DelphiVCL version: But during the python run the icon is not visible: I've searched for Icon property in TForm and TApplication but not available. There is a way ? Thank you in advance for any suggestion. Best regards.
  4. shineworld

    Continuity solution of the Default font Sydnye vs. Athens

    Woe is me, I had modified the global DefaultFont var but not the Application.DefaultFont.Name var. Thanks for help !!!
  5. shineworld

    Continuity solution of the Default font Sydnye vs. Athens

    Our applications run on embedded panel pc which have fixed inches size and are all FullHD, so HDPI is not used. I've tried also to change DefaultFont.Name := 'Tahoma' of VCL.Graphics in first steps of DPR but nothing changed.
  6. Hello everyone, after years I decided to migrate a big project from Sydney 10.4.2 to Athens 12.2 latest version. Most things went smoothly, others required some work in the code but it works fine. I am left with one problem and one solution to find. In Sydney the default font used was “Tahoma 8” and the entire software was reliant on it and its features, which must often take advantage of every available pixel in the screen. Now when I create a new form or frame or add an object, I always end up with “Segoe UI 9” as the default font which returns text that is wider in width and breaks the continuity of the existing form/frame hundreds for me. How can I make sure that the old “Tahoma 8” is used as the default font during development and execution ? Many controls have multiple fonts and it is nerve-wracking to have to go searching for each “Font” property within them to change them by hand each time. Thank you.
  7. shineworld

    migrating projects to RAD Studio 12

    Try to check the stack of called methods, someone try to use a wrong pointer value or object reference.
  8. shineworld

    Delphi 12.2 Patch 1

    My 2 cents. I have been working with Delphi since the first version, that is, forever. It is my main development tool and one thing I have learned over the years. Whatever version I patch or whatever it is, I first install it on a VM. I never use third-party packages that don't start from source (no pre-compiled BPLs). I install all packages from source (with obvious modifications if they give problems). When everything works and I can work a few hours on the VM without any hiccups, then I uninstall the package from the working PC, clean up all directories and files from the previous installation that were not removed during uninstall, and repeat the operations done on the VM. It's a lot of work but I don't immediately switch to a new version when it appears. I wait for the inevitable patched versions to come out so I don't waste hours and hours of work. With these operations the bugs and snags are kept to a minimum and you can work.
  9. shineworld

    SynEdit now has annotated Scrollbars.

    The best Editor component, better than native Delphi IDE editor (IMO).
  10. shineworld

    Delphi 12.2 available for download

    I have been using Delphi for our software since version 1.0 and the latest project exceeds 22 million lines of code, but I have never felt the need to have the Enterprise or Architect version. Software products are tied to hardware equipment and 99% of the time they are free so keeping a subscription alive for Enterprise/Architect would become too costly for a small company. A missed opportunity in my case, I am continuing with the Pro version. In any case, Delphi remains and will remain my favorite development tool.
  11. shineworld

    3D render engine that works with Delphi

    I don't know if it is a false positive, the fact is that I was unable in any way to download the file because of our server antivirus actions.
  12. shineworld

    3D render engine that works with Delphi

    Something goes wrong with either links. Virustotal notice a malware in the home page: https://www.virustotal.com/gui/url/ed9d2c0aac2e802dc498bc8fc7e8eb6102005a3f87606340d6837a7969846413?nocache=1 When I try to download the file, as in your previous image, Free Download manager refuse to start, then automatically begin the normal chrome download but a 99% downloading stops with message "file not available on the net". Changing https:// to http:// in https://asphyre.net/files/Afterwarp-SDK-v300.7z with Download manager the download start but close to end of the download the HTTP 403 error appears. At this point I've asked to VirusTotal to refresh the virus check of Afterwarp-SDK-v3007.7z submitting the download link and it notice two positive for "asphyre.net/files/Afterwarp-SDK-v300.7z contiene malware of type Cloud Virus": https://www.virustotal.com/gui/url/7e3fa21609ded7e62223028b875f7eb8a497e08550d574c49430cd53896bd222?nocache=1
  13. shineworld

    3D render engine that works with Delphi

    My antivirus (Bitdefender) notice a malware in the link:
  14. shineworld

    What is the best AI at Delphi

    You can "teach" chatgpt with tags to avoid to repeat same things, eg: to chatgpt > When I use tag #DCODE you have to create a clean Delphi code as in followed text description adding short comments which does not use capital letter, eg: // sort the list, etc etc etc. So you can ask: > #DCODE create an alphabetical acending and descending sort of a TList<string> object.
  15. shineworld

    union with bitfields

    PERFECT is just what I need....
×