delphi-2009

In Delphi 2009, synchronize'd functions that worked fine in Delphi 7 execute with sublime slowness until you wiggle the mouse over the open form. Wiggling the mouse causes the program to go into some mouse idle state which does CheckSynchronize() . CheckSynchronize() appears to be called less frequently in Delphi 2009 than in Delphi 7, but we can't figure out why or where. Placing this code: procedure TMyForm.FormCreate(Sender : TObject) Classes.WakeMainThread := WakeMainThread; end; procedure TMyForm.WakeMainThread(Sender: TObject); begin SendMessage(Application.MainForm.Handle, WM_NULL, 0, 0

I've seen many mentions of bugs in Delphi 2009 generics, but never expected something so basic to fail in Update 3, no less. Calling IndexOf on a generic TList or TObjectList causes an access violation if the list contains 1 or more items: type TTest = class( TObject ); procedure DoTest; var list : TObjectList< TTest >; t : TTest; begin list := TObjectList< TTest >.Create; try t := TTest.Create; list.IndexOf( t ); // No items in list, correct result -1 list.Add( t ); list.IndexOf( t ); // Access violation here finally list.Free; end; end; The exception is "EAccessViolation: Access violation at

Is there a way in Delphi to read streams ,line by line? Is there a way to set the encoding of the stream? I know of TEncoding.getEncodingPage(1250); How to get it from stream? I think you're looking for TStreamReader . You set the encoding in the constructor and then call ReadLine . In terms of how to get the encoding from the stream, that depends very much on what is in the stream, doesn't it? Delphi versions that lack TStreamReader can use Peter Below's StreamIO unit , which gives you AssignStream . It works just like AssignFile , but for streams instead of file names. Once you've used that

I have a custom control with both scroll bars enabled and I want to draw a simple red line border around the client area and the scroll bars, like in the image below. How I do this ? This is the control code: unit SuperList; interface uses Windows, Controls, Graphics, Classes, Messages, SysUtils, StdCtrls; type TSuperList = class(TCustomControl) protected procedure Paint; override; procedure CreateParams(var Params: TCreateParams); override; public constructor Create(AOwner: TComponent); override; end; implementation procedure TSuperList.CreateParams(var Params: TCreateParams); begin inherited

I am trying to verify when 3 points (double) are collinear in 2-D. I have found different Pascal functions that return true if this is verified; those functions use integer to specify X and Y coordinates. I need a more precise calculation at least to the first 3 digits of the decimal part of X and Y expressed as double type. Who can help me with this? I found this function: function Collinear(x1, y1, x2, y2, x3, y3: Double): Boolean; begin Result := (((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) = 0); end; But I guess the calculation would never be 0. Should I use something like that?