Draw a simple line

[Bernd82]

Hi all,

I place a button on a form and if I press it, a line shall be drawn onto the form:

procedure TForm1.AndorraBtnClick(Sender: TObject);
VAR AdDraw:TAdDraw;
begin
  AdDraw:=TAdDraw.Create(Self);
//  AdDraw.DllName:='AndorraDX93D.dll';
  AdDraw.DllName:='AndorraOGL.dll';
  IF AdDraw.Initialize THEN BEGIN
    AdDraw.BeginScene;
    AdDraw.Canvas.Pen.Width := 4;
    AdDraw.Canvas.Pen.Color := Ad_ARGB(255,0,0,255);
    AdDraw.Canvas.MoveTo(0,0);
    AdDraw.Canvas.Pen.Color := Ad_ARGB(255,255,0,0);
    AdDraw.Canvas.LineTo(100,100);
    AdDraw.EndScene;
  END
  ELSE ShowMessage(AdDraw.GetLastError);
  AdDraw.Free;
end;

Unfortunately nothing happens. Not even an error message shows up. I use Delphi 7 and I compiled the 2 DLLs anew (OpenGL and DirectX).

Thanks for any hint.

Bernd

[Bernd82]

I used the command

    AdDraw.Flip;

after EndScene. That brought the line onto the (black) form.