PeterPanettone

Mine is 7.24 GB

At design-time: procedure TForm1.FormCreate(Sender: TObject); begin Button1.Caption := 'Back' + #13#10 + 'to Editor'; end; At run-time: TButtonMultiLineCaptionTest.zip Can anyone confirm this? Is there a working "Quality Portal" where this can be reported?

You are right - one should write a book about this topic.

This is not concisely logical, as it should word-wrap the Caption when the "text is too wide for the control" AND NOT PREVENT the word-wrap when it is already Multi-Line (if WordWrap = False). And, from a purely practical point of view, what sense would it make to explicitly truncate the text if it's too large for the control? Wouldn't it rather be more practical to automatically word-wrap the Caption when the text is too large for the control?

In TRzButton the Multi-Line Caption works without having to explicitly set WordWrap = True:

When I try to get the list of all file extensions from the Registry associated with a specific application (double-clicking on the file opens the application), I encounter a complex, almost impenetrable maze of multiple, countless references and back-references that seems almost impossible to resolve. It would be helpful if there were a "magical" function like GetListOfAssociatedFileExtensions('notepad.exe', 'open'); Is there a known solution to this problem? For a test, I've started by enumerating all file-extension subkeys in the Registry: function EnumerateFileExtensions: TStringList; var reg: TRegistry; subkeys: TStringList; i: Integer; key: string; begin Result := TStringList.Create; subkeys := TStringList.Create; reg := TRegistry.Create(KEY_READ); try reg.RootKey := HKEY_CLASSES_ROOT; // Open the key for reading if reg.OpenKeyReadOnly(key) then begin reg.GetKeyNames(subkeys); reg.CloseKey; // Log the retrieved subkeys CodeSite.Send('Subkeys:', subkeys.Text); // Iterate through subkeys and filter those starting with a dot for i := 0 to subkeys.Count - 1 do begin if Subkeys[i][1] = '.' then begin // Add the subkey to the result list Result.Add(subkeys[i]); end; end; end; finally reg.Free; subkeys.Free; end; end;

Managing applications in general by giving the user the information on which file extensions open a specific application. This information lets the user decide which file extensions are allowed or should open a particular application.

There is a function AssocQueryString in shlwapi.dll.

That's why I wrote "multiple, countless references and back-references." Has no one really ever written a function to enumerate the list of file extensions associated with a specific application?

Another interesting possibility is to create DLLs using Python that Delphi applications can use. Python provides several ways to create DLLs, including using the ctypes module or the cffi module or compiling Python code to a shared library using tools like Cython or PyInstaller.

In Delphi 12, when pressing F1 in Vcl.Buttons.TSpeedButton.SelectedImageIndex in ObjectInspector, after a while, this topic is displayed: Can anyone confirm this? Is the Embarcadero Quality Portal already online?

Ian Barker wrote in a comment on that page on March 7, 2024: "Ultimately it should be a superior solution. It’s taken longer than we expected to get it launched but we are almost ready with it now."

As a developer who deals a lot with design, I find Delphi's lack of layout options a thorn in my mind. The layout features in Delphi are one-dimensional (e.g., property Align). Delphi lacks a layout component like TdxLayoutControl from DevExpress for a professional design: In practice, the lack of professional layout capabilities results in many bumbling-looking applications, with controls that sometimes overlap when run on a device with display settings different from those of the original application developer. This shortcoming has given Delphi the unjustified reputation of being an unprofessional amateur developer tool. That's why my greatest wish for the Delphi community would be a native layout control from Embarcadero. Or even better, Embarcadero should buy the TdxLayoutControl component from DevExpress and integrate it into the Professional version. This would give Delphi the professionalism it deserves due to its other capabilities.

I am trying to encapsulate the TaskDialog properties, its execution, and its result in a single unit: unit MyTaskDialogDNSAExpandable; interface uses Vcl.Dialogs, Winapi.Windows, Vcl.Controls; type TDialogResultWithDNSA = record ModalResult: Integer; DoNotShowAgain: Boolean; end; function ShowTaskDialogWithDNSAAndInfoText(const ATitle, AContent, ADNSACaption, AInfoText: string): TDialogResultWithDNSA; implementation function ShowTaskDialogWithDNSAAndInfoText(const ATitle, AContent, ADNSACaption, AInfoText: string): TDialogResultWithDNSA; var TaskDialog: TTaskDialog; begin TaskDialog := TTaskDialog.Create(nil); try TaskDialog.Caption := ATitle; TaskDialog.Text := AContent; TaskDialog.CommonButtons := [tcbOk, tcbCancel]; TaskDialog.VerificationText := ADNSACaption; TaskDialog.ExpandedText := AInfoText; TaskDialog.Flags := [tfUseCommandLinks, tfAllowDialogCancellation, tfExpandFooterArea]; // Execute the task dialog if TaskDialog.Execute then begin Result.ModalResult := TaskDialog.ModalResult; Result.DoNotShowAgain := ??? // how can I get the DoNotShowAgain state of the TaskDialog end else begin Result.ModalResult := mrCancel; Result.DoNotShowAgain := False; end; finally TaskDialog.Free; end; end; end. But how can I get the DoNotShowAgain state of the TaskDialog in Delphi 12?

By using MSAA (Microsoft Active Accessibility), I can get the MenuHandle of a menu when the menu is displayed. How can I get the boundaries of the displayed menu from the MenuHandle?

Thank you very much; I am now able to find the menu rectangle: function PAGetDisplayedMenuRectangle: TRect; var MenuWnd: HWND; begin // Initialize the result rectangle to zero FillChar(Result, SizeOf(Result), 0); // Find the window handle of the active menu MenuWnd := FindWindowEx(0, 0, MAKEINTATOM($8000), nil); if MenuWnd <> 0 then begin // If the menu window is found, get its rectangle if not GetWindowRect(MenuWnd, Result) then begin // If GetWindowRect fails, reset the result to zero FillChar(Result, SizeOf(Result), 0); end; end; end;

How do you set DPI Unaware mode?

Have you really asked an AI for a bike rental? Are you serious?

The irony was implicit.

In a large project, I always have to wait for code insight.

Low-quality AI answers often are the result of poor prompts. However, I agree with the last statement.

Strongly agree.

I have found the Expert and Package Manager for multiple RAD Studio IDEs by David Hoyle one of the most helpful tools for Delphi: https://github.com/DGH2112/Expert-Manager I think it's a pity that it hasn't been developed any further since 2019.

You don't believe in AI?

An IDE with AI capabilities could easily accomplish such things.