Noch ein Problem mit Canvas

**Chuqa**

Huhu,

ich habe da noch ein Problem mit der Paintbox und dem Befehl PlgBlt. Hier ersteinmal der Code.

Code:

			procedure trans2d2(new_x,new_y:Single);

var sinus,cosinus:Single;

begin

  alpha:=(Form1.SpinEdit1.Value/180)*Pi;

  sinus:=sin(alpha);

  cosinus:=cos(alpha);

  x2:=x0+new_x*cosinus-new_y*sinus;

  y2:=y0-new_y*sinus-new_x*cosinus;

end;

procedure drehen2;

var i:integer;

begin

  punkt[0].X:=0;

  punkt[0].Y:=0;

  trans2d2(punkt[0].X,punkt[0].Y);

  punkt2[0].x:=round(x2);

  punkt2[0].Y:=round(y2);

  punkt[1].X:=Form1.PaintBox1.Width;

  punkt[1].Y:=0;

  trans2d2(punkt[1].X,punkt[1].Y);

  punkt2[1].X:=round(x2);

  punkt2[1].Y:=round(y2);

  punkt[2].X:=0;

  punkt[2].Y:=Form1.PaintBox1.Height;

  trans2d2(punkt[2].X,punkt[2].Y);

  punkt2[2].X:=round(x2);

  punkt2[2].Y:=round(y2);

  with Form1.PaintBox3 do

        SetViewportOrgEx(Canvas.Handle,Width div 2, Height div 2,nil);

  PlgBlt(Form1.PaintBox3.Canvas.Handle,punkt2[0],Form1.PaintBox1.Canvas.Handle,0,0,

        Form1.PaintBox1.Width,Form1.PaintBox1.Height,0,0,0);

end;

x2 und y2 sind global vereinbart. Bekomme keine Fehlermeldung sondern nur eine leere PaintBox3. In PaintBox1 ist aber etwas enthalten

.

Bin für jede Hilfe dankbar.

Gruß Chuqa

Also folgendes: habe am Quelltext nichts geändert, aber ich hoffe mir kann jemand erklären wieso in der PaintBox etwas erscheint sobald ich die PaintBox auf einem Panel platziere. Wenn ich die PaintBox-Komponente dagegen einfach nur auf Formular packe, herrscht bei der Ausführung gähnende Leere.

Ich hoff mir kann jemand helfen.

Gruß Chuqa

[edit=Luckie]Push-Posting entfernt. @Chuga: man kann auch Beiträge editieren hier im Forum. Mfg, Luckie[/edit]

Noch ein Problem mit Canvas

Noch ein Problem mit Canvas

Forumregeln