[Andorra 2D] Probleme mit Canvas.Circle

[Mikescher]

Hi DPler, :hi:

ich hab da mal wieder ein Problem: :wall:
ich zeichne mit Andorra 2D so einen Kreis:

Delphi-Quellcode:

  AdDraw.Canvas.Circle(50, 50, 10);

Aber es kommt nur eine Fehlermeldung: "Integerüberlauf". :cry:
Ich kann nur einen Kreis mit dem Radius 1 zeichnen, ohne dass eine Fehlermeldung kommt.

MfG Mikescher

[igel457]

Ich kann den Fehler leider nicht reproduzieren.

Kannst du ein einfaches Testprogramm schreiben, dass diesen Fehler hervorbringt?

[Looper]

Hei,
also vielleicht hat das was mit diesem Phänomen zu tun.
Wenn du Circle aufrust setze doch am Besten mal vorher

Delphi-Quellcode:

Pen.Width := 1

auf. Ich kann es mir eigentlich nicht vorstellen, aber ein Verscuh ist es wert.

Gruß Janek

[Mikescher]

Ok Exe und Fehler sind im Anhang

Der Source ist wie folgt:

Delphi-Quellcode:

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AdDraws, AdClasses, AdTypes, AdPerformanceCounter;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    AdDraw: TAdDraw;
    CPUCounter: TAdPerformanceCounter;
    MyPath: string;
    procedure Idle(Sender: TObject; var Done: boolean);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyPath := ExtractFilePath(ParamStr(0));
  AdDraw := TAdDraw.Create(self);
  AdDraw.DllName := (MyPath + 'AndorraDX93D.dll');

  if AdDraw.Initialize then
   begin
     Application.OnIdle := Idle;
     CPUCounter := TAdPerformanceCounter.Create();
   end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  CPUCounter.Free;
  AdDraw.Free;
end;

procedure TForm1.Idle(Sender: TObject; var Done: boolean);
begin
  if AdDraw.CanDraw then
    begin
      AdDraw.ClearSurface(clBlack);

      AdDraw.BeginScene;

      AdDraw.Canvas.Pen.Width := 1;
      AdDraw.Canvas.Circle(50, 50, 10);

      AdDraw.EndScene;   

      AdDraw.Flip;
    end;
  Done := false;
end;

end.

MfG Mikescher

[igel457]

Hm, ich kann deinen Fehler immer noch nicht reproduzieren. Ich habe das ganze mit Turbo Delphi 2006 Explorer und Delphi 2005 PE getestet. Die Überlaufs- und Bereichsprüfung habe ich de-/aktiviert.

[Mikescher]

Hmmm... Das ist seltsam ich war die ganze Zeit bei einem Freund und hab auch von dort aus das alles geschrieben (vor ca 1h heimgekommen) und bei ihm ging es nicht aber bei mir hier geht es super.

:?: seltsam :?:

[Looper]

Mir ist nur aufgefallen, dass diese Zeile fehlt:

Delphi-Quellcode:

AdDraw.Canvas.Circle(50, 50, 10);
AdDraw.Canvas.Release;  //diese Zeile fehlt bei dir
AdDraw.EndScene;

Aber ich denke, dass ist nicht der Fehler, der die Exception auslöst, da es sich ja auch um einen Integerüberlauf handelt.

[igel457]

Nein, das ist nicht der Fehler, Release wird automatisch mit EndScene aufgerufen.

[Mikescher]

Der Freund (bigben37) hat die AdCanvas-Unit neu heruntergeladen und jetzt gehts bei nihm auch
*juchee*

Danke an alle die hier geholfen haben :thumb:

MfG Mikescher