Raymond Chen has written about this. He doesn’t even touch on what I usually think of as the primary reason that a threaded control wouldn’t work well, which is that a thread shouldn’t draw on a window associated with a different thread. I encourage your co-worker to revisit whatever it was that made him decide … Read more
Try the following code (assign OnCreate and OnPaint of the form and set the timer to 30 millisecond intervals): unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TVector = record X, Y: real; end; TForm5 = class(TForm) Timer1: TTimer; procedure FormPaint(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); … Read more
There are several problems with your approach. One problem is with your use of String.Replace(), which replaces ALL occurrences of one Char with another Char. Once you replace a given Char, you can potentially replace that same index with a different value later on in your loops, thus trashing your data while you are looping. … Read more
Try changing PBoolean to PBOOL function(IsEnabled: PBOOL): HRESULT; stdcall; var Flag: BOOL; PBoolean is a pointer to a Pascal Boolean which is 1 byte in size. PBOOL is a pointer to a Windows (C based) BOOL, which is 4 bytes in size. You need to match the size expected by windows. In general, when translating … Read more