Tcanvas3d

[Gandalfus]

vileicht musst du in T noch was einstellen.

[Nimoee]

hallo,
hier der Code

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    PB1: TPaintBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    t3d:Tcanvas3d;
    t:TView3DOptions;
    tr,ts:trect;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
     t3d:=Tcanvas3d.Create;
     t3d.ReferenceCanvas:=form1.canvas;
     t:=TView3DOptions.Create(self);
     t.parent:=form1;
     tr.left:=10;
     tr.right:=200;
     tr.top:=10;
     tr.bottom:=200;
     t.Orthogonal:=true;
     ts:=t3d.InitWindow(pb1.canvas, T,clred, true , tr);

//     t3d.TextOut3D (10,10,10,'Test');
end;

[edit=Admin]Delphi-Tags eingefügt. Bitte künftig selber machen. Mfg, Daniel[/edit]

[CalganX]

Lass das mit der Zuweisung von ts!
Des Weiteren wurde tr nicht mit Trect.Create erstellt...

Chris

[Nimoee]

hallo

trect ist ein record, keine Klasse. Kann niemals der Fehler sein!

nimoee

[CalganX]

Stimmt... *jetzt auch probier*

Chris

[Nimoee]

hallo,

in die uses Klausel muss noch tecanvas rein

nimoee

[CalganX]

War etwas das der Fehler???

Chris

[Nimoee]

hallo,

nein nur für dich ein Hinweis!

nimoee

[Nimoee]

hallo,

ich weiss warums nicht geht! Alle Methoden bis auf create sind abstract definiert und damit nur abstract vorhanden.

nimoee