Jump to content

Attila Kovacs

Members
  • Content Count

    1943
  • Joined

  • Last visited

  • Days Won

    25

Everything posted by Attila Kovacs

  1. This is pretty true for everything in life. This is all made up, there is no need to mix anything, there should be rules to follow and that's it. I'd also find the problem in a very short time. Also, where would you store all the opened non-modal forms and why would you do that in first place? Let me guess, are those "big, complex projects" which are full of cross-form references? Form2.Edit.Text := 'lala'?
  2. Attila Kovacs

    Formatting inline var

    Haha, thx Dany, I have to admit I'm really busy with other things these days and also, his avatar mesmerizes me all the time I'm seeing it. But I'll keep an eye on him from now on 😄
  3. there is no problem with that pattern and there is no simpler pattern and it introduces no unnecessary dependencies
  4. Attila Kovacs

    Formatting inline var

    Ahh, it's you again, emailx45 the warez king and comic book flooder. <o>
  5. Attila Kovacs

    Formatting inline var

    The original PDF has -who know how much- more pages so it's not on the page 71, as I said, it's almost impossible to find his reference after making a slapstick comedy from that document.
  6. Attila Kovacs

    Formatting inline var

    It's hard to find that reference after you made 100 new editions without any official source.
  7. Attila Kovacs

    TVideoCaptureDevice

    @joaodanet2018 I have the strong suspicion that you are pasting into this forum -in some uniquely ugly way- everything you can google up. Why?
  8. Attila Kovacs

    docwiki.embarcadero.com is not working

    So it's working as expected?
  9. Attila Kovacs

    docwiki.embarcadero.com is not working

    What do you want to say with that?
  10. Attila Kovacs

    Window message sent to a component

    #define WM_UAHDESTROYWINDOW 0x0090 // handled by DefWindowProc and the comment should give some hint why are there different messages
  11. I'd be surprised if FILE_FLAG_SEQUENTIAL_SCAN would give any notable boost.
  12. Not sure? That's interesting, you could save 150 secs and a bunch of coding but you are don't bother to find out? double double quotes are escaped double quotes but you can go the explicit way: FIELDS TERMINATED BY ',' ENCLOSED BY '"' ESCAPED BY ''
  13. No, I didn't say no conversation, I said LOAD DATA can be told what to do. So either I'm still missing something or you did not check the help on LOAD DATA? LOAD DATA INFILE '/path/to/temp_test.csv' IGNORE INTO TABLE temp_test FIELDS TERMINATED BY ',' OPTIONALLY ENCLOSED BY '"' LINES TERMINATED BY '\r\n' -- or '\n' IGNORE 1 LINES (@c1, @c2) SET c1 = STR_TO_DATE(@c1,'%d-%b-%y %H:%i:%s') ,SET c2 = (@c2 = 'True');
  14. I would not do that to myself but I'm a lazy dog. However, I'm not sure if we should ignore the original problem, LOAD DATA not want to have double quotes or wrong date format etc... because AFAIR it can be told both.
  15. I understand now. And why would their disks write faster from a different thread? More pressure? 😉 By the way, you can tell load data to handle double quotes and stuff.
  16. How often do you have to import that file?
  17. why do you need writefile more than once? how much gigabytes is that csv?
  18. Attila Kovacs

    Any GraphQL implementation out there?

    Cool 😉
  19. Ah that, I see, you're right, no prob at all.
  20. Attila Kovacs

    UnPinnable App

    this makes an app unpinnable: uses Winapi.Windows, Winapi.ShlObj, Winapi.ShellAPI, Winapi.ActiveX, Winapi.PropSys, Vcl.Forms, .. function MarkWindowAsUnpinnable(Ahwnd: hwnd): HResult; const VARIANT_TRUE = WordBool(-1); PKEY_AppUserModel_PreventPinning: TPropertyKey = (fmtid: '{9F4C2855-9F79-4B39-A8D0-E1D42DE1D5F3}'; pid: 9); var pps: IPropertyStore; hr: HResult; v: PROPVARIANT; begin hr := SHGetPropertyStoreForWindow(Ahwnd, IID_IPropertyStore, pointer(pps)); if Succeeded(hr) then begin // pps._AddRef; v.vt := VT_BOOL; v.boolVal := VARIANT_TRUE; hr := pps.SetValue(PKEY_AppUserModel_PreventPinning, v); // pps._Release; end; Result := hr; end; ... Application.CreateForm(TMainForm, MainForm); MarkWindowAsUnpinnable(Application.MainForm.Handle); I'm not sure about the pps._addref and pps._release, I would appreciate some help on that. thx
  21. Attila Kovacs

    What is this IDE feature called?

    Navigation Toolbar
  22. Attila Kovacs

    Using translations in unit Consts with Delphi 10.4 VCL

    This will only work if you have the sources for every components you are using and you also build them all at least once at building the release version aaaand your units will be found earlier than the dcu's in Delphi's lib directory. So it wasn't for me, I'm using this: const MY_SMsgDlgConfirm = 'Moooooooo'; implementation procedure HookResourceString(rs: PResStringRec; newStr: PChar); var oldprotect: DWORD; begin VirtualProtect(rs, SizeOf(rs^), PAGE_EXECUTE_READWRITE, @oldprotect); rs^.Identifier := Integer(newStr); VirtualProtect(rs, SizeOf(rs^), oldprotect, @oldprotect); end; initialization HookResourceString(@SMsgDlgConfirm, MY_SMsgDlgConfirm); No one ever complained about it. Was it originaly from you @PeterBelow? http://www.delphigroups.info/2/92/298063.html
  23. I'm not sure this would change anything as it works the same way. I have rather close debug windows and delete watches if I want step through the code, otherwise it's really slow.
  24. you could do that from an expert but accessing (copying) the memory from the applications thread is very slow and not always work (as expected)
  25. Attila Kovacs

    UnPinnable App

    Nothing, I was unsure how to translate it properly without surprises later. I took some C or C# example as a base.
×