Jump to content

Lajos Juhász

Members
  • Content Count

    987
  • Joined

  • Last visited

  • Days Won

    12

Everything posted by Lajos Juhász

  1. OP is on older version of Delphi 10.4 your example is Delphi 12.
  2. Lajos Juhász

    How to get the version of Delphi that the App is built with?

    Embarcadero could have that: https://docwiki.embarcadero.com/Libraries/Athens/en/System RTLVersion RTLVersion: Comp = 36; RTLVersion121 RTLVersion121: Boolean = True; RTLVersion122 RTLVersion122: Boolean = True; RTLVersion123 RTLVersion123: Boolean = True;
  3. Lajos Juhász

    Cannot pass a procedure to another

    program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.Classes, Winapi.Windows; type TMyRecord = class data: Integer; class procedure Queue(const AThread: TThread; AMethod: TThreadProcedure); end; class procedure TMyRecord.Queue(const AThread: TThread; AMethod: TThreadProcedure); begin OutputDebugString(PChar('In TMyRecord.Queue')) end; begin TThread.Queue(nil, procedure begin OutputDebugString(PChar('Hello !')) end); TMyRecord.Queue(nil, procedure begin OutputDebugString(PChar('Hello !')) end); end. It should be TThreadProcedure not method.
  4. Lajos Juhász

    FireDac with Postgres and Prepare()

    FireDAC is very strict. When I have moved projects from BDE and DBX that involved a lot of changes.
  5. Lajos Juhász

    Double, default value

    As a result it can not be assigned to an event.
  6. Lajos Juhász

    FireDac with Postgres and Prepare()

    You can set the datatype before prepare qryWork.Params[0].DataType:=ft...... the data type of field1.
  7. Lajos Juhász

    Copy bitmap from TSkSVG to TImage

    this is fmx while the question is about VCL.
  8. Lajos Juhász

    Continuity solution of the Default font Sydnye vs. Athens

    You can change it on a new form and leave parentfont to true on the components you drop. You should accept the new default font. On newer monitors event font size 9 is a bit hard to read.
  9. Lajos Juhász

    Get, Set FileAtrributes

    No, a file is a file a folder is a folder two different things. In case of a folder you should use the TPath (record). attributes:=TPath.GetAttributes(PathName)
  10. Lajos Juhász

    Get, Set FileAtrributes

    You have some hidden unicode character there. It can happen if you copy paste from the internet. var FileName : String; attributes: TFileAttributes; begin FileName := 'Test'; attributes:= TFile.GetAttributes(FileName); Include(attributes, TFileAttribute.faHidden); TFile.SetAttributes(FileName, attributes); end; This compiles.
  11. Lajos Juhász

    Secondary shortcuts and international users.

    According to the documentation the object property of the stringlist is used to handle the shortcuts not the text version: TCustomShortCutList is a descendant of TStringList, which manages a collection of strings. As such, TCustomShortCutList adds, deletes, and searches for shortcuts using their text representation. TCustomShortCutList stores shortcuts that correspond to a text representations as values of the Objects property for these strings. Do not change values of the Objects property, or the shortcut list will not operate correctly.
  12. Lajos Juhász

    Secondary shortcuts and international users.

    In the official documentation there is no mention that it would be a language specific shortcut: Description Stores shortcuts (in addition to ShortCut) for triggering the action. Actions can execute in response to multiple shortcut key combinations. SecondaryShortCuts lists all the shortcut key combinations (other than the one specified by the ShortCut property) that can trigger the action. This lets you provide additional, secondary shortcuts. When the user types one of the key combinations listed in SecondaryShortCuts, the action's Execute method is called.
  13. Lajos Juhász

    Delphi 12.2 Patch 1

    In that case I am the unlucky one. Have had no issues using Delphi 12.2 update 1 on Windows 11.
  14. Lajos Juhász

    Simole threads providing progress info

    I would recommend to use only that threading library not the others you will save a lot of time. A more serious answer is that you should give us more details. Anyo of those can create a thread which library to choose really depends on the requirements.
  15. Lajos Juhász

    Do you need an ARM64 compiler for Windows?

    I believed it is a different aproach. They give to us something that compiles and is working. Then based on user review and bug reports they are accepting suggestions how to make it work. If everything else fail they buy some source code to make things working again.
  16. Lajos Juhász

    $FFFF can both be const and not ?

    I have no problem to compile it: const // The highlight colors here are defined twice so the compiler doesn't complain. YELLOW = $00BBFF; BLUE = $F0CF89; HIGHLIGHT_COLORS: array[0..1] of TColor = (YELLOW, BLUE); You can also compile: const // The highlight colors here are defined twice so the compiler doesn't complain. YELLOW = TColor($00BBFF); BLUE = TColor($F0CF89); HIGHLIGHT_COLORS: array[0..1] of TColor = (YELLOW, BLUE);
  17. Lajos Juhász

    Delphi 12.2 Patch 1

    Try without GExperts.
  18. Lajos Juhász

    Copy file to temp folder fails

    No there is no way if the file is locked it is not going to be deleted. You should first try to add: If FileExists(lTempFolderFullFileName) then if not DeleteFile(lTempFolderFullFileName ) then SendMadBugReport(Self, 'CopyFileToTempFolder(), delete failed'); // <<<<<<<< HERE IT FAILS!!!!!!! Why do you have an empty try ... except block? That is very dangerous at least you should send a bug report with the exception. Ignoring an exception can lead to other bugs in a program.
  19. Lajos Juhász

    Copy file to temp folder fails

    You should check GetLastError to see the reason why it fails. https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-deletefile One of the possible reason is that the file doesn't exists and the other is that the file is in use by other application.
  20. Lajos Juhász

    Which ODBC driver version is used by FireDac

    TFDPhysMSSQLDriverLink has an ODBCDriver property, I have no server to test it.
  21. Lajos Juhász

    Which ODBC driver version is used by FireDac

    You can try this: https://stackoverflow.com/questions/42403351/how-can-i-find-the-ms-access-version-and-or-dll-name-used-for-a-firedac-connecti
  22. Lajos Juhász

    Need help please..

    A quick search returned instead of PToken_User it is definied as PTokenUser in Winapi,Windows.
  23. Lajos Juhász

    What is Shift+F2 supposed to do?

    I have tested F2 or shift+f2 will focus the Object inspector in Form Designer for Delphi XE5, Delphi 11.2 and Delphi 12.2 patch 1.
  24. The only limitation I can think of that will most probably be a big no for you is the revenue clause for the companies that want to install the community edition (https://www.embarcadero.com/products/cbuilder/starter): Licensed for use until your individual revenue from C++Builder applications or company revenue reaches $5,000 US or your development team expands to more than 5 developers It is meant only for a start-up companies that don't have a product yet. I safer choice would be to test your code base using the trial version.
  25. Lajos Juhász

    Help with TFDBatchMove fields

    I have never tried batchmove. A simple optimization would be not to use AItem.DestField.FieldName in that event, instead you could try AItem.Index or AItem.Destfield.
×