The only thing I have found to work well is to use the WS_EX_COMPOSITED window style. This is a performance hog so I only enable it when in a sizing loop. It is my experience that, with the built-in controls, in my app, flickering only occurs when resizing forms. You should first perform a quick … Read more
Yes, there are faster ways to do this. Your simple loop spends most of the time in cache misses. This happends because you touch a lot of data at very different places in a tight loop. Even worse: Your memory locations are exactly a power of two apart. That’s a size where the cache performs … Read more
You need to implement and register IAutoComplete2. Here’s what it looks like using a TEdit ( shades of Andreas 🙂 ): More info here, including sample code to implement all of the above. EDIT: Posting an update to provide source for a TAutoCompleteEdit component, a registration unit, package source, and a quick sample app. (The … Read more
I use the following code: procedure PatchCode(Address: Pointer; const NewCode; Size: Integer); var OldProtect: DWORD; begin if VirtualProtect(Address, Size, PAGE_EXECUTE_READWRITE, OldProtect) then begin Move(NewCode, Address^, Size); FlushInstructionCache(GetCurrentProcess, Address, Size); VirtualProtect(Address, Size, OldProtect, @OldProtect); end; end; type PInstruction = ^TInstruction; TInstruction = packed record Opcode: Byte; Offset: Integer; end; procedure RedirectProcedure(OldAddress, NewAddress: Pointer); var NewCode: TInstruction; … Read more
You don’t need RTTI. Any code has implicit access to the protected members of any class declared in the same unit. You can take advantage of this by declaring a new TWinControl descendant in the unit that needs access to that class’s members. The declaration is very simple: type TProtectedWinControl = class(TWinControl); Then type-cast any … Read more
I’m very sure that I’m POSTing the right data Since it does not work – obviously you do not (or Delphi does not – that makes no difference for server). You should start usual debugging loop: Observe reference working behaviour. Observe your program behavior Spot the difference Eliminate the difference Check if the program works … Read more
Task Manager is not the right tool to detect memory leaks. Delphi allocates large blocks of memory and keeps them later for future use, so certain increase in allocated memory is expected even after you release all resources. Any other results (and more detailed answers) can be obtained only by using specialize memory analysis tools. … Read more
This is the solution I’ve found, using ActiveX: First, register the Active X control like this: In Delphi, choose Component -> Import Component Click on “Type Library”, click Next Choose “Crystal ActiveX Report Viewer Library 11.5” Pick whatever Palette Page you want (I went with “Data Access”) Choose an import location Exit out of the … Read more
Variable capture vs value capture is simple enough. Let us suppose that two anonymous methods capture the same variable. Like this: Type TMyProc = reference to procedure; var i: Integer; P1, P2: TMyProc; …. i := 0; P1 := procedure begin Writeln(i); inc(i); end; P2 := procedure begin Writeln(i); inc(i); end; P1(); P2(); Writeln(i); There … Read more
There is another quite simple solution using TStringList. Change the LineBreak: procedure TForm208.Button1Click(Sender: TObject); var lst: TStringList; begin lst := TStringList.Create; try lst.LineBreak := ‘<->’; lst.Text := ‘Whale<->Mammal<->Ocean’; Memo1.Lines := lst; finally lst.Free; end; end;