Tcanvas3d

[Nimoee]

Hallo,
ich hab eine Unit tecanvas und darin eine Tcanvas3d Komponente gefunden!
Hat jemand eine Ahnung wie man das Ding benutzt.
Wie verbinde ich diese Komponente mit dem normalen Canvas eines normalen Formulars.
Vorgänger usw sind nicht rauszukriegen!

Danke im Vorraus

nimoee

[CalganX]

Hi,
vielleicht sagst du uns noch, wo du diese Unit her hast, dann können wir uns das auch mal ansehen.

Chris

[hitzi]

Hallo,

gibt Tcanvas3d in Google ein -> 1. Eintrag -> http://www.berneda.com/TeeChart6Docs/TCanvas3D.html

MfG hitzi

[CalganX]

:duck:
Schau dir mal die Properties und Methods an. Deine Frage an das anängen sollte hier durch beantwortet werden.

Chris

[Nimoee]

Hallo,

hab folgendes gemacht:
t3d:=Tcanvas3d.Create;
t:=TView3DOptions.Create(self);
t3d.InitWindow(form1.canvas, T,clBtnFace, true , tr);

t3d ist als tcanvas3d definiert
t als TView3DOptions
tr ist trect

Sobald ich auf die initzeile stosse erscheint abstrakter Fehler.
Wo sitz ich auf der Leitung?

nimoee

[CalganX]

Versuch mal verschiedene Eigenschaften der drei Variablen zu bearbeiten. Sonst kann ich dir da leider auch nicht viel sagen.

Chris

[Nimoee]

hallo,
hab ich schon probiert. Funktioniert nicht!
Aber trotzdem Danke
Werd euch informieren wenns klappt!
nimoee

[Nimoee]

Hallo,

helft mir nochmal:

also der Fehler entsteht in
t3d.InitWindow(form1.canvas, T,clBtnFace, true , tr);

und zwar soll ich für den ersten Parameter den Zielcanvas angeben.
Das mach ich mit form1.canvas.
Wenn ich jetzt durchsteppe erhalte ich eine Exception: abstrakter Fehler und zwar genau dann, wenn intern getcanvas aufgerufen wird.
Eine solche function kann ich aber bei tcustomform nicht finden.

nimoee

[CalganX]

Schonmal mit einer anderen Canvas ausprobiert? Z.B. die einer PaintBox?

Chris

[Nimoee]

hallo,

funktioniert auch nicht! Ich such weiter!

nimoee

[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. :wink: 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??? :shock:

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