Tcanvas3d

[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]