Jump to content

softtouch

Members
  • Content Count

    170
  • Joined

  • Last visited

Everything posted by softtouch

  1. I have some to bytecode compiled python scripts. Is there a way to run them via ExecFile or other functions?
  2. I have a python engine on form 1, dropped to the form, which is working fine. Now I create a module in code in another unit: module:=TPythonModule.create(nil); module.Engine:=GetPythonEngine; module.ModuleName:='delphicallback'; module.OnInitialization:=InitPythonModule; module.Initialize; The InitPythonModule event contains just: TPythonModule(Sender).ClearMethods; TPythonModule(Sender).AddDelphiMethod('callback',delphi_callback,'callback(name, value)->value'); This works, I execute a python script which send data back to the module "delphicallback". All is fine so far, I get the data from the python script. When I close the form, I free the module with module.free; Still all is fine. But when I then try to open the form again, I get the error "No python engine was created" when it creates the module. What did I miss?
  3. softtouch

    No python engine was created error

    Thank you, good to know. But I dont create the module in the main unit, where the python component is on the form. I create it instead when another form is created, in the formcreate event and thought I must free it also in the formclose event. So how shall hat work when I dont free the module? It would get always created again when the form is created.
  4. I am trying to debug a small Delphi 11.2 code with Linux target. I can compile, deploy and run just fine, but when I try to debug, or run with F9, I get: I have no clue what to do about this. Does anybody has a hint?
  5. I need to modify forms the moment they are created, before they are shown. And there are many forms, so i cant use the onCreate event. I know I can check the Screen.Forms[], but I would like to use an event, so the code to check the forms array is only called when needed. Is this somehow possible? I currently use such test code: var i:Integer; begin Result := nil; for i := 0 to Screen.FormCount - 1 do begin if Screen.Forms[i].Handle = AHandle then begin Result := Screen.Forms[i]; break; end; end; end; begin if (Msg.message = WM_DWMNCRENDERINGCHANGED) then begin f := GetFormByHandle(Msg.hwnd); if Assigned(f) then begin // Process form here end; end; end; I know the WM_DWMNCRENDERINGCHANGED is not made for this, but it at least seems to work. I was hoping there is a proper way to do that, but I had no luck to find anything related.
  6. Lets say I have a modal form , which I display with myform.ShowModal; How can I close this form when the user click outside the form? The form wont have a caption, and is just showing a listview and no buttons. The user can click an entry in the listview, and the form close. But the form should also close when the user click outside the form.
  7. softtouch

    Delphi 12.2 Patch 1

    I would try that if I could install it. I tried installing my registered 12.2 and it popup the registration wizard and when I enter my EDN login and serial, I only get an error that I have to enter a valid serial number in order to install Delphi 12.2. It looks like once the license is expired, I cant even install older Delphi versions. That sucks! I paid for a product which I cannot install, funny.
  8. softtouch

    Delphi 12.2 Patch 1

    And it came out just short after my subscription expired... I downloaded the patch from getit. When I start it, it tells me that it will uninstall 12.2 (I cancelled that). I assume that after it uninstalls 12.2, the installer will tell me that it cant install the patch because my subscription is expired, and I might end up with no more delphi installation. Am I right?
  9. softtouch

    Free wizard component?

    Beside TJvWizard, which looks a little dated, does anybody know other free/open source components to create a wizard/multi-step form?
  10. softtouch

    Free wizard component?

    Thanks, I used a CardPanel and its fine for now.
  11. softtouch

    Delphi 12.2 available for download

    So they assume that user using the Pro version do not create large projects? I think its more a money thing again.
  12. softtouch

    Delphi 12.2 available for download

    So the Delphi 64 bit compiler and 64 bit lsp are only in the expensive enterprise and architect versions? Why is that?
  13. softtouch

    Delphi 12.2 available for download

    I dont have that entry in the popup menu, thats the problem. EDIT: After uninstalling madExcept, it suddenly appeared.
  14. softtouch

    Delphi 12.2 available for download

    Does anybody know how that Smart Codeinsight is supposed to work? I enabled it, setup the base url and api key etc., but thats it, nowhere anything to invoke the chat window. The popup menu of the selected source does not have anything related to AI.
  15. softtouch

    Listview prevent change of item

    I have a listview (report mode) and a memo. The listview has items, when an itrem is clicked, the memo is filled with some data related to the listview item. When the data in the memo is changed/modified, and the user click on another listciew item or the empty space in the listview, I want to popup a messagebox telling the user about the modification and if he want to continue. If he select to not to continue, I want that the listview does not change the item. Unforetunately, onSelectItem with a messagebox in it wont work, its called twice. onChanging also is called twice, even I set AllowChange to false. So how can I have a messagbox in any of the event without it being called twice?
  16. softtouch

    Listview prevent change of item

    Thank you for the detailed information. I decided to go with a virtualstringtree, and that seems to work as expected.
  17. softtouch

    Listview prevent change of item

    That is what it is currently doing, but user complain that they lost lots of changes because they forgot to click that button. I am now playing with the virtualtreeview, that seems to work better.
  18. I have a script, and when calling python.ExecFile(script), it will take 235ms to execute. Calling it the 2nd. or more times, it always takes a little more than 4 seconds to come back from the ExecFile function. Do you have any clue why that could be? Is there anything to reset something before calling the ExecFile again I need to know about?
  19. softtouch

    Readin Email with IMAP component

    I tried it and it seems to work. I assume if I have multiple "NOT" criteria, I need to do it like this? sr[0].key:=skNot; sr[1].key:='skBody; sr[1].text:='This should not be in the body'; sr[2].key:='skBody; sr[2].text:='This should also not be in the body'; So when it see the skNot, it will use only the next criteria for the skNot or until it get another sk??? criteria?
  20. softtouch

    Readin Email with IMAP component

    @Remy Lebeau, to not to open a new thread, because my question is related: When I want to get emails when a specific text exist in the body, and another text does not exist, can I do it like this? SetLength(sr,3); sr[0].key:=skNot; sr[1].key:=skBody; sr[1].text:='This should not be in the body'; sr[2].key:=skBody; sr[2].text:='This must be in th ebody';
  21. softtouch

    Free profiler?

    I am looking for a (free) profiler for Delphi 12. I am interested to know how long the execution of various procedures and functions will take. Because there are hundreds of such procedures/functions, I cannot just insert dome gettickcount code, that would take forever.
  22. softtouch

    RAD Studio 12.1 Athens Patch 1 Available

    The patch is available via getit, I just installed it.
  23. softtouch

    TComboBoxEx icon in editbox?

    I have a TComboBoxEx with items in it. Each item has an icon assigned, so far so good. When I click into the editbox to enter a new item name, there is no icon of course, but instead a weird space to the left (see attached image). Is there any way to have a default icon displayed in the editbox of the TComboBoxEx?
  24. softtouch

    If command

    ... the :='True' should be ='True'...
  25. softtouch

    Delphi 12.1 is available

    Yes, that will just return "We couldn’t find any requests"
×