Kreis in Vier teile einteilen ?

[mimi]

Hallo,
ich habe eine Procedure geschrieben, die kann ein Viereck in 4 Verschiedene Farben zeichnen :
Linke Seite z.b. grün
Rechte Seite z.b. Gelb
und soweiter

Das gleiche möchte ich gerne mit einem Kreis haben:
ObenRechts = Rot
ObenLings = Gelb
und soweiter.

Leider habe ich im Internet nichts gefunden womit ich was anfangen kann.
ich kann auch nicht so gut Mathe. Bis jetzt habe ich mich nur mit Vierecken befasst.

mein Ziel ist es so ein Kreis und ein Abgerundetes Viereck selbst zu zeichnen.
kann mir jemand dazu ein Beispiel geben ?

[mkinzler]

Zeichne doch 4 Kreisbögen (Arcs)

[SirThornberry]

wo genau liegt das problem? wie man einen Kreis auf eine Canvas zeichnet? wie man linien auf eine Canvas zeichnet (zur Vierteilung)? Oder wie man einen Bereich mit Farbe füllt?

[mimi]

@mkinzler
Das wollte ich, aber ich weiß nicht was die letzten Paremter bedeuten:
ALeft, ATop, ARight, ABottom, angle1, angle2: Integer

die ersten vier sind klar:
das müsste ja so sein wie beim Viereck, aber die letzten beiden:
angle1, angle2 was mache ich damit ?

@SirThornberry
Mir geht es erstmal nur um den Rand. Zu Füllen wird glaube ich auch nicht so einfach wie beim Viereck, aber das ist eine andere Frage.

[mkinzler]

Start und Zielwinkel

[mimi]

Danke. ich habe das jetzt so

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  PaintBox1.canvas.brush.Color:=clBlack;
  PaintBox1.canvas.FillRect(PaintBox1.canvas.ClipRect);         // Fülle Canvas mit bgColor
  PaintBox1.canvas.Pen.Color:=clYellow;
  PaintBox1.canvas.Arc(30,30,100,100,30,100)
end;

Ich sehe zwar ein Gelben Punkt, aber jedoch kein Virtel Kreis. erst wenn ich mit den beiden
letzten Parameter auf 2000 gehe sehe ich was. Wie kann ich das dynamischer machen ?

[bitsetter]

Hallo,

wenn ich dich richtig verstanden habe, so in etwa:

Delphi-Quellcode:

procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, DMesser: integer);
var
  PTemp: TPoint;
  Halb, Viertel, DreiV: integer;
begin
  Halb := DMesser div 2;
  Viertel := Halb div 2;
  DreiV := Halb + Viertel;
  with cav do
  begin
    GetViewportOrgEx(Handle, PTemp);
    SetViewportOrgEx(Handle, iLeft, iTop, nil);
    Pen.Color:= clRed;
    Arc(0, 0, DMesser, DMesser, DMesser, Halb, Halb, 0);
    MoveTo(DMesser, Halb);
    LineTo(Halb, Halb);
    MoveTo(Halb, Halb);
    LineTo(Halb, 0);
    Brush.Color := clRed;
    FloodFill(DreiV, Viertel, clred, fsBorder);

    Pen.Color:= clYellow;
    Arc(0, 0, DMesser, DMesser, Halb, 0, 0, Halb);
    MoveTo(0, Halb);
    LineTo(Halb, Halb);
    MoveTo(Halb, Halb);
    LineTo(Halb, 0);
    Brush.Color := clYellow;
    FloodFill(Viertel, Viertel, clYellow, fsBorder);

    Pen.Color := clGreen;
    Arc(0, 0, DMesser, DMesser, 0, Halb, Halb, DMesser);
    MoveTo(0, Halb);
    LineTo(Halb, Halb);
    MoveTo(Halb, Halb);
    LineTo(Halb, DMesser);
    Brush.Color := clGreen;
    FloodFill(Viertel, DreiV, clGreen, fsBorder);

    Pen.Color := clAqua;
    Arc(0, 0, DMesser, DMesser, Halb, DMesser, DMesser, Halb);
    MoveTo(DMesser, Halb);
    LineTo(Halb, Halb);
    MoveTo(Halb, Halb);
    LineTo(Halb, DMesser);
    Brush.Color:= clAqua;
    FloodFill(DreiV, DreiV, clAqua, fsBorder);
    SetViewportOrgEx(Handle, PTemp.X, PTemp.Y, nil);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Width:= 150;
  Image1.Height:= 150;

  Kreis4Farben(Image1.Canvas, 20,20, 100);
end;

EDIT:
Eventuell reicht dir Pie() ja auch schon:

Delphi-Quellcode:

procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, DMesser: integer);
var
  PTemp: TPoint;
  Halb: integer;
begin
  Halb := DMesser div 2;
  with cav do
  begin
    GetViewportOrgEx(Handle, PTemp);
    SetViewportOrgEx(Handle,iLeft, iTop, nil);

    Pen.Color:= clRed;
    Brush.Color := clRed;
    Pie(0, 0, DMesser, DMesser, DMesser, Halb, Halb, 0);

    Pen.Color:= clYellow;
    Brush.Color := clYellow;
    Pie(0, 0, DMesser, DMesser, Halb, 0, 0, Halb);

    Pen.Color := clGreen;
    Brush.Color := clGreen;
    Pie(0, 0, DMesser, DMesser, 0, Halb, Halb, DMesser);

    Pen.Color := clAqua;
    Brush.Color:= clAqua;
    Pie(0, 0, DMesser, DMesser, Halb, DMesser, DMesser, Halb);

    SetViewportOrgEx(Handle, PTemp.X, PTemp.Y, nil);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Width:= 150;
  Image1.Height:= 150;

  Kreis4Farben(Image1.Canvas, 20, 20, 101);
end;

[mimi]

Vielen Dank !
Das ist schon fast was ich suche, nur ich möchte keine Torten Einteilung.

Ich hoffe du vertest wie ich das meine.

und ich musst
// GetViewportOrgEx(Handle, PTemp);
// SetViewportOrgEx(Handle,iLeft, iTop, nil);

auskommentieren, weil ich habe Lazarus und dies kennt er nicht !

[Tormentor32]

Was möchtest du denn dann für eine Einteilung? Mal das am besten mal auf und lad das Bild hier hoch, damit wir wissen, was du meinst!

[mimi]

im Anhang sind zwei Screenshotts.
Eigentlich hat den Code von bitsetter fast das gemacht, was ich gern hätte.
allerdings halt ohne diese Torten Einteilung.

[mimi]

ICH HABE ES.

ich habe den code einfach etwas geändert:

Delphi-Quellcode:

procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, DMesser: integer);
var
  PTemp: TPoint;
  Halb, Viertel, DreiV: integer;
begin
  Halb := DMesser div 2;
  Viertel := Halb div 2;
  DreiV := Halb + Viertel;
  with cav do
  begin
  //  GetViewportOrgEx(Handle, PTemp);
   // SetViewportOrgEx(Handle, iLeft, iTop, nil);
    Pen.Color:= clRed;
    Arc(0, 0, DMesser, DMesser, DMesser, Halb, Halb, 0);
//    MoveTo(DMesser, Halb);
  //  LineTo(Halb, Halb);
//    MoveTo(Halb, Halb);
  //  LineTo(Halb, 0);
    Brush.Color := clRed;
  //  FloodFill(DreiV, Viertel, clred, fsBorder);

    Pen.Color:= clYellow;
    Arc(0, 0, DMesser, DMesser, Halb, 0, 0, Halb);
  //  MoveTo(0, Halb);
//    LineTo(Halb, Halb);
//    MoveTo(Halb, Halb);
//    LineTo(Halb, 0);
    Brush.Color := clYellow;
 //   FloodFill(Viertel, Viertel, clYellow, fsBorder);

    Pen.Color := clGreen;
    Arc(0, 0, DMesser, DMesser, 0, Halb, Halb, DMesser);
    //MoveTo(0, Halb);
//    LineTo(Halb, Halb);
  //  MoveTo(Halb, Halb);
//    LineTo(Halb, DMesser);
    Brush.Color := clGreen;
 //   FloodFill(Viertel, DreiV, clGreen, fsBorder);

    Pen.Color := clAqua;
    Arc(0, 0, DMesser, DMesser, Halb, DMesser, DMesser, Halb);
  //  MoveTo(DMesser, Halb);
//    LineTo(Halb, Halb);
//    MoveTo(Halb, Halb);
  //  LineTo(Halb, DMesser);
    Brush.Color:= clAqua;
 //   FloodFill(DreiV, DreiV, clAqua, fsBorder);
  //  SetViewportOrgEx(Handle, PTemp.X, PTemp.Y, nil);
  end;
end;

Ich hatte die MoveTo, lineTo nicht gesehen beim ersten mal
Vielen Dank für eure Hilfe !

ich wollte jetzt die Fläche inerhalbt des Kreises füllen mit
FloodFill(ileft div 2, iTop div 2, clBtnFace, fsBorder);

aber irgendwie geht das nicht.... ich wollte einfach den Mittelpunkt berechnen.
ach ja die FloodFill Procedure wird ganz zum Schluss auf gerufen

edit00
ich habe den code in meiner GUI eingebaut:

Delphi-Quellcode:

procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, DMesser: integer);
var
  PTemp: TPoint;
  Halb, Viertel, DreiV: integer;
begin
  Halb := DMesser div 2;
  Viertel := Halb div 2;
  DreiV := Halb + Viertel;

  with cav do
  begin
    Pen.Color:= clRed;
    Arc(iLeft, iTop, DMesser, DMesser, DMesser, Halb, Halb, 0);
    Pen.Color:= clYellow;
    Arc(iLeft, iTop, DMesser, DMesser, Halb, 0, 0, Halb);
    Pen.Color := clGreen;
    Arc(iLeft, iTop, DMesser, DMesser, 0, Halb, Halb, DMesser);
    Pen.Color := clAqua;
    Arc(iLeft, iTop, DMesser, DMesser, Halb, DMesser, DMesser, Halb);
  end;
end;

procedure TmyShape.DrawKreis;
var
  r:TRect;
begin
  r.left:=rx; r.top:=ry; r.Right:=r.left+rw; r.Bottom:=(r.Top+rh);
//  Kreis4Farben(fcanvas,r.left,r.top,10);
  fcanvas.Ellipse(r);
  fcanvas.Pen.Assign(pen);
  Kreis4Farben(fcanvas,rx,ry,10);
end;

und weiter angepasst. allerdings ist der Code leider zu langsam :(
bzw. es passiert nicht das was im Demo Programm passiert.
Da geht es nämlich genau so .
auf der Linken Bildschirmseite werden 2 lange Blikende Llinen angezeigt

ersetzt ich Kreis4Farben durch Elepsse geht es allerdings ohne die 4 farben !

[mimi]

Im Demo Programm passiert leider das gleiche. Wenn ich den Code mehrmals aufrufe.

Im Anhang gibt es ein Bild !

Gut ich weiß jetzt wie es geht:
ich muss ileft + dMesser nehmen dann scheint es zu gehen

Edit00
Geht leider doch nicht ! :(

[bitsetter]

Hallo,

keine Ahnung warum es bei dir nicht funktioniert, aber in Delphi geht es so:

Delphi-Quellcode:

procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, DMesser: integer);
var
  PTemp: TPoint;
  Halb: integer;
begin
  Halb := DMesser div 2;
  with cav do
  begin
    //GetViewportOrgEx(Handle, PTemp);
    //SetViewportOrgEx(Handle, iLeft, iTop, nil);

    cav.Ellipse(0, 0, DMesser, DMesser);
    Brush.Color := clSilver;
    FloodFill(Halb, Halb, Pen.Color, fsBorder);

    Pen.Color:= clRed;
    Arc(0, 0, DMesser, DMesser, DMesser, Halb, Halb, 0);

    Pen.Color:= clYellow;
    Arc(0, 0, DMesser, DMesser, Halb, 0, 0, Halb);

    Pen.Color := clGreen;
    Arc(0, 0, DMesser, DMesser, 0, Halb, Halb, DMesser);

    Pen.Color := clAqua;
    Arc(0, 0, DMesser, DMesser, Halb, DMesser, DMesser, Halb);
    //SetViewportOrgEx(Handle, PTemp.X, PTemp.Y, nil);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Kreis4Farben(image1.Canvas,0, 0, 120);
end;

[mimi]

naja es geht ja auch, nur ich möchte die Positions angaben anders haben.

bei 0,0 geht es.

nur möchte ich den Kreis auch wo anders angezeigt bekommen !

z.b. an x:20,y:40

[bitsetter]

So jetzt schön kompliziert da ohne ViewportOrgEx.

Delphi-Quellcode:

procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, DMesser: integer);
var
  Halb: integer;
begin
  Halb := DMesser div 2;
  with cav do
  begin
    Brush.Color := clSilver;
    Ellipse(iLeft, iTop, iLeft + DMesser, iTop + DMesser);

    Pen.Color := clRed;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft + DMesser, iTop + Halb, iLeft + Halb, iTop);

    Pen.Color := clYellow;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft + Halb, iTop, iLeft, iTop + Halb);

    Pen.Color := clGreen;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft, iTop + Halb,iLeft + Halb, iTop + DMesser);

    Pen.Color := clAqua;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft + Halb, iTop + DMesser, iLeft + DMesser, iTop + Halb);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Kreis4Farben(image1.Canvas,10, 30, 120);
   //Kreis4Farben(image1.Canvas,40, 80, 120);
end;

EDIT: Es geht auch ohne FloodFill().

[mimi]

Vielen Dank für deine Mühe.

jetzt habe ich nur noch eine Frage:
Wie kann ich den Radius mit Größen angeben berechnen ?
also ich habe ein Trect und aus diesem Trect soll er eine 4FarbenKreis erzeugen


Und nochmals VIELEN DANK !!!!
Du wirst in meinem Projekt auch namentlich erwähnt !

[DeddyH]

Hö? Was meinst Du denn jetzt? Radius = (Rect.Right - Rect.Left) div 2

[mimi]

ich meine den wert für DMess.

[bitsetter]

Delphi-Quellcode:

 Durchmesser:= Rect.Right - Rect.Left;

[DeddyH]

Zitat:

Zitat von bitsetter

Delphi-Quellcode:

 Durchmesser:= Rect.Right - Rect.Left;

Eigentlich logisch, oder? :zwinker: :mrgreen:

[mimi]

eigentlich ja, und was ist mit der höhe ?
muss ich als erstes schreibe
DMesser:=right-left div 2 ?

[bitsetter]

Zitat:

Zitat von mimi

und was ist mit der höhe ?

Was hast du denn vor?
Ein Kreis hat nur einen Durchmesser oder meinst du eine Ellipse?

Zitat:

Zitat von mimi

DMesser:=right-left div 2 ?

Wie der Durchmesser berechnet wird habe ich doch schon geschrieben oder funktioniert das so nicht?

DeddyH meinte du hättest den Durchmesser mit Hilfe des Radius berechnen können.

Delphi-Quellcode:

Durchmesser = Radius * 2

[mimi]

das Problem ist, wie kann ich das hier am besten einbauen ?

Delphi-Quellcode:

procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, iw, ih: integer);
var
  Halb,DMesser: integer;
begin
  Halb := DMesser div 2;
  with cav do
  begin
   // cav.Ellipse(iLeft, iTop, iLeft + DMesser, iTop+DMesser);
//    Brush.Color := clSilver;
  //  FloodFill(iLeft + Halb, iTop + Halb, Pen.Color, fsBorder);

    Pen.Color := clRed;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft + DMesser, iTop + Halb, iLeft + Halb, iTop);

    Pen.Color := clYellow;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft + Halb, iTop, iLeft, iTop + Halb);

    Pen.Color := clGreen;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft, iTop + Halb,iLeft + Halb, iTop + DMesser);

    Pen.Color := clAqua;
    Arc(iLeft, iTop, iLeft + DMesser, iTop + DMesser, iLeft + Halb, iTop + DMesser, iLeft + DMesser, iTop + Halb);
  end;
end;

leider hatte ich mit Kreisen bisher wenig zu tun, darum fällt, mir das auch so schwer.

Mein Ziel ist es eine Procedure zu haben die genau wie FillRect auf gerufen werden kann.
mit einem TRect oder halt so wie ich es jetzt oben gemacht habe.

Letztendlich ist es egal ob es ein Kreis oder eine Ellipse ist,
Das sollen die Eckpunkte angeben.

Nochmals vielen Dank für eure gedult.

[bitsetter]

Delphi-Quellcode:

procedure Ellipse4Farben(cav: TCanvas; iLeft, iTop, iW, iH: integer);
var
  iHalbW, iHalbH : integer;
begin
  iHalbW := iW div 2;
  iHalbH := iH div 2;
  with cav do
  begin
    Brush.Color := clSilver;
    Ellipse(iLeft, iTop, iLeft + iW, iTop+ iH);

    Pen.Color := clRed;
    Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft + iW, iTop + iHalbH, iLeft + iHalbW, iTop);

    Pen.Color := clYellow;
    Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft + iHalbW, iTop, iLeft, iTop + iHalbH);

    Pen.Color := clGreen;
    Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft, iTop + iHalbH, iLeft + iHalbW, iTop + iH);

    Pen.Color := clAqua;
    Arc(iLeft, iTop, iLeft + iW, iTop + iH, iLeft + iHalbW, iTop + iH, iLeft + iW, iTop + iHalbH);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Ellipse4Farben(image1.Canvas, 33, 50, 121, 81);
end;

Das Ganze jetzt mit einer Ellipse.

[mimi]

BESTEN DANK, genau was ich wollte !
im Anhang ist ein bild wofür ich es gebraucht habe.

Gibt es evlt. ein Tutorial darüber ?

Edit: Das währe doch was für die Tipp Sammlung oder ?

[mimi]

Habe gerade diesen Hilfereichen Code gefunden... wäre das nicht was für die Code-Lib?
Schön einfach, zu verwenden.

[Sir Rufo]

Zitat:

Zitat von mimi (Beitrag 1164397)

Habe gerade diesen Hilfereichen Code gefunden...

gerade gefunden? :gruebel: 2007 hattest du den auch schon gefunden ... oder wie jetzt?

Zitat:

Zitat von mimi (Beitrag 1164397)

wäre das nicht was für die Code-Lib?
Schön einfach, zu verwenden.

Ehrlich gesagt, nö, nix für die Code-Lib