RaelB

Hi, Looking at www.ksoftware.net, the prices have gone up by about 3x since a few years ago. Any idea why they've become so expensive? Any cheaper options?

Yeah, it looks like you're right. I sent ksoftware an email a few days ago, asking about the price increase, and so far I haven't received a reply. I've now looked at https://codesigningstore.com and they state there clearly that delivery is via USB token. Wow this is a big change. I imagine downloading unsigned software is going to become more common from smaller vendors... @stijnsanders No, SSL certificates are very different, and alot cheaper or even available for free.

I am referring to OV code signing certificates. I just received an email from ksoftware indicating that the process would be as before, i.e., the key is received/generated via a browser, "Sectigo will issue the new certificate directly to you via email, don't forget to collect on the same PC/Browser that you used in Step 1, then you can export to a PFX/P12 file..."

There is also https://github.com/superflexible/TGPuttyLib

Hi, What is the default shortcut to move the current line up or down? (i.e. it is swapping the current line with line above/below). Somehow I had trouble finding this shortcut online. In VS Code it would be Alt+Up/Down Arrow Thanks

I'm using VirtualTree 7.6.1, in Delphi Sydney (10.4) I do implement some custom painting in BeforeCellPaint, AfterCellPaint, AfterItemErase, AfterItemPaint and PaintText. However, the below problem occurs even when I remove all these custom paint event handlers. As in below video, when scrolling with the scrollbar, painting is not smooth. It gets "stuck" and repeat paints a particular node text. When the scrollbar is released, the tree repaints correctly. Has anyone experienced something like this? Any ideas of what could be causing the problem? Thanks VST_paint_issue.mp4

Hello, Delphi's THttpClient is built on the OS API, and therefore one does not need to include OpenSSL dll with the app, or worry about their version etc. Is there an open source library similar to this, that can be used with older Delphi versions before THttpClient was introduced..?

@Dave and @Vincent, thanks, that is what I was looking for.

What you can do is download the Konopka Signature controls from getit package manager, and look at the source for RzTabs

Should that not be: Param:='http://localhost:8181/rootp/<ApplicationName>/Add';

Why can't you run both on the host machine? If you want to understand what code is doing, I highly recommend using a TraceTool or logger: https://github.com/capslock66/Tracetool

Hi, I am needing to store a large number of small images, e.g. 10,000+ images (so could be 50,000 or more..), where each image is around 30kb. Generally I will not be iterating through all of them. Main operations are check if exists, load, and save. I'm considering to use the filesystem for this purpose, as apposed to using a database e.g. sqlite. Is there any downside to using the filesystem in this scenario? Thanks

Thanks for all the replies. It has helped me consider all the various factors to keep in mind. @Der schöne Günther: Which setting/setup are you referring to with regards to sqlite db corruption and power losses?

Hi, I've been looking at this YT Video: "First look at Delphi 10.4.2 on Windows 11 ARM & macOS 12 ARM" (youtube watch?v=9p4cL1wt8bk) from which it sounds like Delphi apps are able to run on Windows 11 ARM. However, I have a user who says that my app does not start at all on Windows 11 ARM. Should it in fact be able to run? Thanks

@Dave Nottage Thanks for trying that. Yes, I am using 10.4. I am using WinLicense to "protect" the exe, so my first suspect would be that.

Would you mind trying my app (RightNote), to see if it starts? https://bauerapps.com/downloads/ https://bauerapps.com/files/RightNote.zip (portable version)

Ok, thanks for the info. I will need to make further investigations.

Hi, Some users who do not have the ENG-US keyboard installed, report that when app starts, the ENG-US keyboard is added to the system. Any ideas what is causing this? Is it VCL, or maybe a third party control (such as TRichview)? Thanks

Not sure. I haven't asked. It is not an error. It is an unexpected behaviour, but it is documented in the component itself.

Thanks for the tip. I am using HotKeyManager, and looking at the source I see that it is calling LoadKeyboardLayout, and that is what is causing the problem. Not sure if that will make a difference. Documentation says "Beginning in Windows 8: This flag is not used. "

https://oreans.com/WinLicense.php

I create a number of Frames and store them in a Frame Object List (declared as FFrames: TObjectList<TMyFrame>) The frames are also added to the VCL form. I try to replace a Frame with below code, but it results in an "Invalid Pointer Operation": (I'm replacing the last Frame in the list with a new one) procedure TForm1.btnReplaceClick(Sender: TObject); var NewFrame: TMyFrame; OldFrame: TMyFrame; begin if FFrames.Count = 0 then exit; NewFrame := GetNewFrame; OldFrame := FFrames[FFrames.Count - 1]; FFrames[FFrames.Count - 1] := NewFrame; OldFrame.Free; end; What's wrong with the code? Full code follows: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Generics.Collections, MyFrameU; type TForm1 = class(TForm) ScrollBox1: TScrollBox; btnAdd: TButton; btnReplace: TButton; procedure btnAddClick(Sender: TObject); procedure btnReplaceClick(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } FFrames: TObjectList<TMyFrame>; function GetNewFrame: TMyFrame; public { Public declarations } end; var Form1: TForm1; Counter: Integer; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin FFrames := TObjectList<TMyFrame>.Create; end; procedure TForm1.FormDestroy(Sender: TObject); begin FFrames.Free; end; function TForm1.GetNewFrame: TMyFrame; begin Result := TMyFrame.Create(Self); Result.Name := 'MyFrame' + Counter.ToString; Result.Parent := ScrollBox1; Result.Align := alLeft; Result.SetName(Result.Name); Inc(Counter); end; procedure TForm1.btnAddClick(Sender: TObject); var Frame: TMyFrame; begin Frame := GetNewFrame; FFrames.Add(Frame); end; procedure TForm1.btnReplaceClick(Sender: TObject); var NewFrame: TMyFrame; OldFrame: TMyFrame; begin if FFrames.Count = 0 then exit; NewFrame := GetNewFrame; OldFrame := FFrames[FFrames.Count - 1]; FFrames[FFrames.Count - 1] := NewFrame; OldFrame.Free; end; end.

Well no. We're not saying ob1 is now obj2. The ObjectList is pointing to one object, then pointing to a different object. And when you make that change, it automatically frees the first object. This I didn't know before.. 🙂

So, if I keep OwnObjects True, I can just call: FFrames[FFrames.Count - 1] := GetNewFrame; I don't need to worry about Freeing the previous object.

Thanks - didn't realise it would affect the operation I was doing.