Objekte Vordergrund/Hintergrund(canvas)

[mimi]

Hallo,
ich habe mehre objekte auf meinem canvas gezeichnet das mache ich so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:Integer;
begin
  StatusBar1.Panels[0].Text:=IntToStr(ObjIndex) + '\' + IntToStr(TempObjIndex);
  Bit.Canvas.Rectangle(0,0,PaintBox1.Width,PaintBox1.Height);;

  for i:=0 to High(Obj) do begin
    Bit.Canvas.Pen.Width:=obj[i].pw;

    Bit.Canvas.Pen.Style:=obj[i].PenStyle;
    Bit.Canvas.Brush.Style:=obj[i].BrushStyle;

    Bit.Canvas.Pen.Color:=obj[i].FColor;
    Bit.Canvas.Brush.Color:=obj[i].BColor;

    if Obj[i].Visible = True then begin
      if i = TempObjIndex then  // das obj wurde makriert
        DrawObjt(Obj[i].typ,obj[i].x,obj[i].y,obj[i].w+obj[i].x,obj[i].y+obj[i].h,True)
      else //es ist nicht makriert
        DrawObjt(Obj[i].typ,obj[i].x,obj[i].y,obj[i].w+obj[i].x,obj[i].y+obj[i].h,false)
    end;

  end;


  PaintBox1.Canvas.Draw(0, 0, Bit);
  Bit.Canvas.Pen.Color:=clBlack;
  Bit.Canvas.Brush.Color:=clWhite;
  
  Bit.Canvas.Pen.Width:=PW;
  Bit.Canvas.Pen.Style:=psSolid;
  Bit.Canvas.Brush.Style:=bsSolid;
end;

ich weiß es ist nicht die beste lösung, aber für den anfang solls reichen.

problem ist jetzt: wenn ich merhe objekte gezeichnet habe und die teielweise übereinander liegen verdecken sie sich ja. wie könnte ich das am besten machen, das z.b.das hinter objekte nach vorne geholt wird ???

[axelf98]

Nimm eine TList als Objektspeicher und vertausche die Positionen der Objekte in der Liste. Das verändert auch das Zeichenverhalten. "Eine Ebene vor" -> Tausch mit dem nächsthöheren Objekt. "In den Vordergrund" -> Element mit dem letzte Element tauschen. Dann jeweils neuzeichnen.

[Thebe]

Ganz ehrlich, wenn Du ein bisschen nachdenken würdest, hättest Du in der Zeit in der Du teilweise deine Fragen schreibst das Problem schon längst gelöst.

Und die simple Antwort: Das Objekt was ganz oben sichtbar sein soll als letztes zeichnen, weil sonst die anderen Zeichenvorgänge wieder drüberhinweg zeichnen.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:Integer;
begin
  StatusBar1.Panels[0].Text:=IntToStr(ObjIndex) + '\' + IntToStr(TempObjIndex);
  Bit.Canvas.Rectangle(0,0,PaintBox1.Width,PaintBox1.Height);;

  for i:=0 to High(Obj) do begin
    Bit.Canvas.Pen.Width:=obj[i].pw;

    Bit.Canvas.Pen.Style:=obj[i].PenStyle;
    Bit.Canvas.Brush.Style:=obj[i].BrushStyle;

    Bit.Canvas.Pen.Color:=obj[i].FColor;
    Bit.Canvas.Brush.Color:=obj[i].BColor;

    if Obj[i].Visible = True then
      if i <> TempObjIndex then  // Das markierte Obj erstmals überspringen
        DrawObjt(Obj[i].typ,obj[i].x,obj[i].y,obj[i].w+obj[i].x,obj[i].y+obj[i].h,false);
  end;

  if Obj[TempObjIndex].Visible = True then
    DrawObjt(Obj[TempObjIndex].typ,obj[TempObjIndex].x,obj[TempObjIndex].y,obj[TempObjIndex].w+obj[TempObjIndex].x,obj[TempObjIndex].y+obj[TempObjIndex].h,true);

  PaintBox1.Canvas.Draw(0, 0, Bit);
  Bit.Canvas.Pen.Color:=clBlack;
  Bit.Canvas.Brush.Color:=clWhite;
 
  Bit.Canvas.Pen.Width:=PW;
  Bit.Canvas.Pen.Style:=psSolid;
  Bit.Canvas.Brush.Style:=bsSolid;
end;

Und so nebenbei, wieso nimmst Du bei DrawObj alle Details als Parameter ? Sinniger wäre es das Obj als Parameter zu nehmen und die Procedure zieht sich denn aus dem Obj die jeweiligen notwendigen Informationen raus. Genau das gleiche mit den vorherigen Pen.Color, Brush.Color usw. eingestelle.

[mimi]

vielen dank !!! es hat funktioniert !

Zitat:

Und so nebenbei, wieso nimmst Du bei DrawObj alle Details als Parameter ? Sinniger wäre es das Obj als Parameter zu nehmen und die Procedure zieht sich denn aus dem Obj die jeweiligen notwendigen Informationen raus. Genau das gleiche mit den vorherigen Pen.Color, Brush.Color usw. eingestelle.

das ist nur ein Test projekt, das werde ich später eine eigene klasse erstellen die optimiert und geordnet sein soll :-D