uligerhardt

I guess one could track the most recently focused one of the "target" lists. Maybe it could work to have the shortcuts enabled (i.e. <> 0) only if the Grep result list is focused? I'll see if I can play a bit with that.

I just compiled a new GExpertsRSXE6.dll and the problem persists: Alt-F7/F8 iterate through the Grep results but not the compiler messages. Does anybody else have this issue? How can I fix it? I would like the shortcuts to work in both lists (e.g. depending on the focus) but if this isn't feasible I'd like to work them for the compiler messages.

TVirtualStringTree is a custom control completely written in Delphi/VCL, so WinAPI messages won't help (especially not ones meant for list views). Are you extending the Delphi app? Do you have its source code? Do you want to talk to a running instance of the app?

DevEx cxImageLists at least store the individual images in separate blob subitems. And they don't change the blobs on every occasion.

I'll try to rephrase: As your package is called JasotComponents, * means JasotComponents, so the 3 $R lines are equivalent to: {$R JasotComponents.res JasotComponents.rc} {$R JasotComponents.res JasotComponentsResource.rc} {$R JasotComponents.res JasotComponents.rc} So you're instructing Delphi to include the resource file JasotComponents.res 3 times, and to create it alternatingly from JasotComponents.rc and JasotComponentsResource.rc. That probably won't work. 😉

Shouldn't the second $R line be {$R JasotComponentsResource.res JasotComponentsResource.rc} ? Also, the first and the third $R line refers to identical files, doesn't it?

Hello all! We are using an "prehistoric" version (2.21 AFAICT) of VCLZip by Kevin Boylan together with Delphi 2007. After finally making the switch to an Unicode version of Delphi we get some errors with invalid zip files and the like. In the internet I found references to an Unicode aware version 4.50 but no way to to licence or download it. Does anybody have any hints with this?

Not yet, But the Synopse stuff is usually good, so I'll might have a look.

FWIW: I sent an e-mail to his bigfoot address and got an "Undeliverable". 😞

XE6 for now. I know about System.Zip.TZipFile, but IIRC it didn't have all features we use from VCLZip. I should look again.

As an Ingress player, I always have to check whether I am in a Niantic or an Embarcadero forum, when I read stuff like this.

At least I'd be careful with letting an official Ferrari mechanic touch my Enzo 😉 Ferrari Enzo zerstört: Mechaniker zerlegt bei Spritztour Millionen-Rarität | STERN.de

Would be nice if the warning specified that non-const aspect. 😉

Try storing zip.FileNames in a local variable. Edit: ... and maybe drop vZipContents and use that local variable instead.

I'd compare your original docx before and the one after the user pressed "Yes". Maybe you can see what you have to change in the differences.

That's only true for the uses-clause entries that the form designer manages. (Which is a tiny fraction in my development.)

If I'm not missing anything, Oxygene didn't "reverse" it, but kept it consistent with Pascal.

There is http://docwiki.embarcadero.com/RADStudio/Sydney/en/Writeable_typed_constants_(Delphi). It's just off per default for some years now.

https://blogs.windows.com/windowsdeveloper/2021/01/21/making-win32-apis-more-accessible-to-more-languages/ Sounds very interesting.

Ok, then I misunderstood you. 😎

This is about generating wrappers for classic Win32 API, Not some WinRT stuff. Autogenerate Windows.pas! 😎

Hello! I want to show a MessageBox from inside a TL21_.OnViewerButtonClicked event handler and need the window handle of the preview form for that. Any idea how to get there?

I tried it just now, and it works AFAICT - I used GetWindowText(gPrintReportWnd, ...) to verify. Thanks a lot.

Here is the relevant code, a bit condensed: type TPrintLLReportEventHandler = class public procedure OnViewerButtonClicked(Sender: TObject; Button: TViewerButton; var PerformDefaultAction: Boolean); end; { TPrintLLReportEventHandler } procedure TPrintLLReportEventHandler.OnViewerButtonClicked(Sender: TObject; Button: TViewerButton; var PerformDefaultAction: Boolean); begin if Button = vbExit then begin MessageBox(AWnd, .....); // <= I'd like to get the preview form's window handle here for AWnd end; end; var evh: TPrintLLReportEventHandler; evh := TPrintLLReportEventHandler.Create; try MyLLReportInstance.OnViewerButtonClicked := evh.OnViewerButtonClicked; // Show preview here (using LL_PRINT_PREVIEW) finally evh.Free; end;

Sorry, forgot to mention it in the message body. It's the List&Label report component.