@Eisenherz
hehe... stimmt natürlich, früher oder später steigen dann die Ansprüche. Aber mühsam ernährt sich das Eichhörnchen... ich fang erstmal klein an. Realisieren lässt sich das ja dann immer noch
Aber erstmal folgendes, achtung, viel Code ^^
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x1, y1, x2, y2 : Integer;
xdif1, ydif1 : Integer;
xdif2, ydif2 : Integer;
begin
// PaintBox1.Canvas.Brush.Color := Form1.Color;
// PaintBox1.Canvas.Rectangle(-1,-1,Form1.Width,Form1.Height);
PaintBox1.Canvas.Pen.Color := Form1.Color;
PaintBox1.Canvas.MoveTo(x1_,y1_);
PaintBox1.Canvas.LineTo(x1_,ydif1_);
PaintBox1.Canvas.MoveTo(x2_,y2_);
PaintBox1.Canvas.LineTo(x2_,ydif1_);
PaintBox1.Canvas.MoveTo(x1_,ydif1_);
PaintBox1.Canvas.LineTo(x2_,ydif1_);
PaintBox1.Canvas.LineTo(xdif1,y1);
PaintBox1.Canvas.LineTo(xdif1,y2);
PaintBox1.Canvas.MoveTo(xdif1,y1);
PaintBox1.Canvas.LineTo(xdif1,y2);
if (Panel1.Top + Panel1.Height >= Panel2.Top) then
begin
x1 := Panel1.Left + Panel1.Width;
y1 := Panel1.Top + (Panel1.Height div 2);
x2 := Panel2.Left;
y2 := Panel2.Top + (Panel2.Height div 2);
ydif1 := Panel2.Top - ((Panel2.Top - (Panel1.Top + Panel2.Height)) div 2);
xdif1 := x1 + (Panel2.Left - ((Panel2.Left - Panel1.Left + Panel1.Width) div 2));
PaintBox1.Canvas.Pen.Color := clRed;
PaintBox1.Canvas.MoveTo(x1,y1);
PaintBox1.Canvas.LineTo(xdif1,y1);
PaintBox1.Canvas.MoveTo(x2,y2);
PaintBox1.Canvas.LineTo(xdif1,y2);
PaintBox1.Canvas.MoveTo(xdif1,y1);
PaintBox1.Canvas.LineTo(xdif1,y2);
end else
begin
x1 := Panel1.Left + (Panel1.Width div 2);
y1 := Panel1.Top + (Panel1.Height);
x2 := Panel2.Left + (Panel2.Width div 2);
y2 := Panel2.Top;
ydif1 := Panel2.Top - ((Panel2.Top - (Panel1.Top + Panel2.Height)) div 2);
xdif1 := (Panel2.Left - Panel1.Left + Panel1.Width) div 2;
PaintBox1.Canvas.Pen.Color := clBlue;
PaintBox1.Canvas.MoveTo(x1,y1);
PaintBox1.Canvas.LineTo(x1,ydif1);
PaintBox1.Canvas.MoveTo(x2,y2);
PaintBox1.Canvas.LineTo(x2,ydif1);
PaintBox1.Canvas.MoveTo(x1,ydif1);
PaintBox1.Canvas.LineTo(x2,ydif1);
end;
x1_ := x1;
y1_ := y1;
x2_ := x2;
y2_ := y2;
ydif1_ := ydif1;
xdif1_ := xdif1;
end;
Dem Form.Paint-Ereigniss hab ich nun den ButtonClick zugeordnet, bin mir aber nicht sicher ob das der beste Weg ist.
Was mich wundert, die rote Linie wird nicht ganz korrekt gelöscht, daher hab ich (hier jetzt auskommentiert) einfach jedesmal ein grosses Rectangle in FormFarbe gemalt. Das dürfte nichts ausmachen.
So schwer isses ja tatsächlich nicht