Pb with the zoom on Win95/98/Me

[Narcís]

Hi Franck,

Sorry but we still haven't been able to look at it. We will try to do it ASAP and will post any progress here.

[Narcís]

Hi Franck,

We have investigated that issue and we have found that the problem is in the series pointer pen. It can be easily solved making it not visible:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var
  k: integer;
  x,y1,y2: double;
begin
  Series1.Clear;
  Series1.Pointer.Pen.Visible:=false;
  Series2.Clear;
  Series2.Pointer.Pen.Visible:=false;
  Randomize;

  for k := 0 to 9 do
    begin
    Series1.AddXY(k, 0,'',clred);
    Series2.AddXY(k, 0,'',clLime);
  end;

  for k := 10 to 20 do
  begin
    x := k;
    y1 := random(100);
    Series1.AddXY(x, 100 + y1/100,'',clred);
    y2 := random(100);
    Series2.AddXY(x, 1 + y2/100,'',clLime);
  end;
end;

If you want to make the pointer visible you could calculate if a point is visible in the OnGetPointerStyle event and then set the pointer's pen and style.