Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 1. Mai 2012
  Habe gerade diesen Hilfereichen Code gefunden... wäre das nicht was für die Code-Lib?
  Schön einfach, zu verwenden.
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 12. Jun 2007
  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 ?
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 11. Jun 2007
  das Problem ist, wie kann ich das hier am besten einbauen ?
  
  
  procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, iw, ih: integer);
  var
  Halb,DMesser: integer;
  begin
  Halb := DMesser div 2;
  with cav do
  begin
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 11. Jun 2007
  eigentlich ja, und was ist mit der höhe ?
  muss ich als erstes schreibe
  DMesser:=right-left div 2 ?
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 11. Jun 2007
  ich meine den wert für DMess.
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 11. Jun 2007
  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 !
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 11. Jun 2007
  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
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 11. Jun 2007
  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 ! :(
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 11. Jun 2007
  ICH HABE ES.
  
  ich habe den code einfach etwas geändert:
  
  procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, DMesser: integer);
  var
  PTemp: TPoint;
  Halb, Viertel, DreiV: integer;
  begin
  Halb := DMesser div 2;
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 11. Jun 2007
  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.
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 11. Jun 2007
  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 !
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 10. Jun 2007
  Danke. ich habe das jetzt so
  
  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;
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 10. Jun 2007
  @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...
• Forum: Multimedia

  Kreis in Vier teile einteilen ?

    Delphi
    by mimi, 10. Jun 2007
  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.