Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by bitsetter, 12. Jun 2007
  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);
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by bitsetter, 11. Jun 2007
  Was hast du denn vor?
  Ein Kreis hat nur einen Durchmesser oder meinst du eine Ellipse?
  
  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.Durchmesser = Radius * 2
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by bitsetter, 11. Jun 2007
  Durchmesser:= Rect.Right - Rect.Left;
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by bitsetter, 11. Jun 2007
  So jetzt schön kompliziert da ohne ViewportOrgEx.
  
  procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, DMesser: integer);
  var
  Halb: integer;
  begin
  Halb := DMesser div 2;
  with cav do
  begin
  Brush.Color := clSilver;
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by bitsetter, 11. Jun 2007
  Hallo,
  
  keine Ahnung warum es bei dir nicht funktioniert, aber in Delphi geht es so:
  procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, DMesser: integer);
  var
  PTemp: TPoint;
  Halb: integer;
  begin
  Halb := DMesser div 2;
  with cav do
• Forum: Multimedia

  Re: Kreis in Vier teile einteilen ?

    Delphi
    by bitsetter, 10. Jun 2007
  Hallo,
  
  wenn ich dich richtig verstanden habe, so in etwa:
  procedure Kreis4Farben(cav: TCanvas; iLeft, iTop, DMesser: integer);
  var
  PTemp: TPoint;
  Halb, Viertel, DreiV: integer;
  begin
  Halb := DMesser div 2;
  Viertel := Halb div 2;