Jump to content

Attila Kovacs

Members
  • Content Count

    1936
  • Joined

  • Last visited

  • Days Won

    25

Everything posted by Attila Kovacs

  1. Attila Kovacs

    Finalization section not called unless main form shown

    That means Application.ShowMainForm := False; and Application.Terminate; and Application.Run; if login fails, and you won't get a flickering mainform and you will have a clean termination of the application including calling the finalization section in the mainform.
  2. Attila Kovacs

    Finalization section not called unless main form shown

    Ok, here is the thing: Application.Terminate only sends a message to the application to terminate. It will be processed in the main Application message loop, which you can start with Application.Run. To avoid showing the mainform, set Application.ShowMainForm := False; prior to .Run;
  3. Attila Kovacs

    Finalization section not called unless main form shown

    @Mark Williams Can you see what I'm writing? Just for the record.
  4. Attila Kovacs

    Finalization section not called unless main form shown

    I'm not sure what your "exit" does, and I can't see your code, but with the code below finalization is called: if not DoLogIn() then begin Application.ShowMainForm := False; Application.Terminate; Application.Run; end;
  5. Attila Kovacs

    Problem with Enhance IDE dialogs

    It is indeed a mess. If you'd remove all the skinning you'd be shocked how it looks like. Putting controls to the title bar was also a steep decision. Thanx DM.
  6. I don't even bother reading a website without a proper imprint.
  7. Attila Kovacs

    Any Known GDI Lockup Issues with Delphi 10.3.2?

    or driver or hardware.. btw. taskmanager has a ton of extra columns in options, GDI objects too, but this is something else
  8. I mean the ones I found on the net are not satisfying. Something like this would be great: https://www.calculator.org/calculate-online/mathematics/text-number.html
  9. Attila Kovacs

    TWebModule response content truncated before return

    @Mark Williams LOL Sorry I must have been very tired. https://chapmanworld.com/2017/06/15/installing-webbroker-projects-in-microsoft-iis/
  10. Attila Kovacs

    TWebModule response content truncated before return

    I have no clue, but you could watch this video, how to create a console application from the broker to be able to debug your code.
  11. Attila Kovacs

    How to manage defined list values

    You could associate the loaded values with enums, but which of the above mentioned versions showing you the constant values with codeinsight?
  12. Attila Kovacs

    How to manage defined list values

    Or you could convert a JSON on the fly to any record or class, thus the multi-language support you mentioned would be solved too. The question is, do you really need this amount of data linked to every single project?
  13. Attila Kovacs

    New TForm - Defaults

    Create a form you like, right click on it, add to repository....
  14. Attila Kovacs

    FastMM Full Debug Mode and JCL problem

    Not using goole 😛 https://issuetracker.delphi-jedi.org/view.php?id=6560
  15. Attila Kovacs

    ShellExecute and passing of password

    If you can alter both apps I would create an encrypted file and pass it to the other as parameter.
  16. Attila Kovacs

    Creating a Shell-Link with hotkey property

    I'm not sure if you missed the second line in the code "shortcut creation object". I did not know that you want to edit existing shortcuts, sorry. I'm wasting here my time. Confirmed.
  17. Attila Kovacs

    Creating a Shell-Link with hotkey property

    This is how I'm using it. SCut := TWin32ShortCut.Create; try SCut.Location := ciDesktop; SCut.FileName := sp[0]; SCut.AppPath := ResolvePath(sp[1]); SCut.WorkDir := ResolvePath(sp[2]); SCut.IconPath := ResolvePath(sp[3]); if l > 4 then if TryStrToInt(sp[4], i) then SCut.IconIndex := i; SCut.SaveShortCut; finally SCut.Free; end; function ResolvePath(const Path: string): string; var sp: TArray<string>; i: Integer; begin sp := Path.Split(['%']); Result := ''; for i := 0 to High(sp) do case i mod 2 of 0: Result := Result + sp[i]; 1: Result := Result + GetEnvironmentVariable(sp[i]); end; end;
  18. Attila Kovacs

    Creating a Shell-Link with hotkey property

    And? Change Published to Public and TWin32FindDataA to TWin32FindDataW or TWin32FindData, Dummy: Longint to Dummy: Cardinal
  19. Attila Kovacs

    Creating a Shell-Link with hotkey property

    https://web.archive.org/web/20171110112441/https://www.tek-tips.com/faqs.cfm?fid=7526
  20. Attila Kovacs

    Creating a Shell-Link with hotkey property

    They killed Kenny! Strange, I just opened it 5 minutes ago 😄 Try it later again, its a thin unit to do the same. (As I understand your needs)
  21. Attila Kovacs

    Creating a Shell-Link with hotkey property

    https://www.tek-tips.com/faqs.cfm?fid=7526 ?
  22. Attila Kovacs

    Memo scrolling to the bottom ... sometimes

    Why is this thread in RTL and DOP?
  23. Attila Kovacs

    TJson - Strip TDateTime property where value is 0?

    @Lars Fosdal Thx for the input, I wanted to create something generic with the less effort, I'll go with Uwe's example above and decorate the fields for this PHP API for now. Strange, that I'm the only one who facing this, but the DecodeISO8601Time() conversion in System.DateUtils is not ISO8601.
  24. Attila Kovacs

    TJson - Strip TDateTime property where value is 0?

    Barely passed 6 months and I'm sitting here with dates like "2019-10-27T22:48:20+0100" from a php API, which are ISO8601 dates, but Delphi can't handle it because of the missing colon in the time zone offset...... I've tried everything I can think of to hook the conversion to TDateTime, globally (not on field basis) but I failed. The corresponding methods are not virtual, Reverter can be regged only on classes, interceptors only on field basis. Maybe it's too late and I'm missing something, @Uwe Raabe, how can I register a reverter for TDateTime? (Creating the marshal objects is not a problem at all, I'm already doing it for other reasons.)
×