Einzelnen Beitrag anzeigen

Benutzerbild von Tyler
Tyler

Registriert seit: 19. Jun 2003
Ort: Berlin
241 Beiträge
 
#17

Re: Komponente für "Brainstorm"-Diagramme gesucht

  Alt 16. Jul 2004, 19:15
@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
  Mit Zitat antworten Zitat