Vector Pie mit der graphics32

[Jens01]

VectorUtils liegt hier mit drin. Ich glaub, es kommt aus diesem TLine32.

[Wishmaster]

okay, @Medium erstens möchte ich mich entschuldigen das du mich nicht verstanden hast.
ich weiß zwar nicht welche version du benutzt aber wie Jens01 schon gesagt hat liegt die GR32_VectorUtils.pas mit in dem packet.
und ich denke ich habe versucht mit den bildern zu demonstrieren was ich bis jetzt gemacht habe und gleichzeitig was ich machen möchte.

wenn du dir die bilder anschaust habe ich den pie (in Rot) erfolgreich gezeichnet und kann den winkel auch mit der Maus/Timer ändern,
alerding mit der standardfunktion. also mit Canvas.Pie


die Pie funktion aus der GR32_VectorUtils hat ganz andere parameter den die aus der Vcl.Graphics unit.
so ich dachte einer von euch kennt sich mit der funktion aus und könnte mir bei der übersetzung weiterhelfen.

bei der standardversion sind die ränder zu zackig also kein anti aliasing.

ich versuche ein ähnliche komponenten set zu schreiben wie Abakus VCL
nur die besser aussehen und open source sind!

ich komme auch gut voran, allerdings machen einige funktionen mich wahnsinnig.
alle komponenten basieren auf graphics32.

[Wishmaster]

so nach langem rumtüfteln habe ich es hingekriegt.

[Rollo62]

Vielleicht schaust du dir auch mal Gr32_Ex an.

Da wird gezeigt das ArrayOfFloatPoint mit gPolyBezier(xBitmap, PP, xColor, xOptions, true); abgerundet wird.
Das könnte vielleicht für dich interessant sein:

Delphi-Quellcode:

{ draw elliptic and transformed pie }
procedure gPieET(xBitmap : tBitmap32;
                         const xCenter : tFixedPoint;
                         const xA, xB : GR32.tFixed;
                         const xStartAngle, xEndAngle : double; { values in radians }
                         const xAT : TFloatMatrix; { affine transformation matrix }
                         const xColor : tColor32;
                         const xOptions : tPolygonDrawOptions = pdoFloat);
var
  PP : TArrayOfFixedPoint;
  L  : integer;
begin
  SetLength(PP, 0);
  LoadArcCurve(xCenter, xA, xB, xStartAngle, xEndAngle, PP);

  { connect with center }
  L := Length(PP);
  SetLength(PP, L + 3);
  PP[L] := PP[L-1];
  PP[L + 1]  := xCenter;
  PP[L + 2 ] := xCenter;

  TransformArrayOfFixedPoint(PP, xAT);
  gPolyBezier(xBitmap, PP, xColor, xOptions, true);

  PP := nil;
end;

Rollo

[Medium]

Zitat von Jens01:

VectorUtils liegt hier mit drin. Ich glaub, es kommt aus diesem TLine32.

In der normalen Seite für die Release-Versionen hier ist es nicht enthalten, und gehört somit nicht zum Basisumfang der GR32. Ob und wer da wann und wo welche Dinge hinzugefügt hat ist in dem Projekt äusserst undurchsichtig. Eine Suche bei Google nach dem Unitnamen hat mich auch nicht innerhalb von wenigen Minuten auf die von dir verlinkten Seiten geführt. Von daher finde ich meinen Einwand nach wie vor berechtigt. Aber freut mich, dass es jetzt klappt.

[Memnarch]

@Medium:
Wie wärs mit der Dateihistory?
http://sourceforge.net/p/graphics32/...ectorUtils.pas

EDIT: Außerdem ist das letzet Release von 2013 und die letzten Änderungen von Dezember 2015. Würde also nicht allzuviel auf die releases geben.

[Medium]

Und das soll jetzt jemand, der das Projekt nicht aktiv verfolgt, sondern nur ab und zu mal nutzt wissen? Wenn ich auf die Seite der GR32 gehe gibts unter Download einen Link auf das SF-Projekt. Dort geht man, wenn man einfach nur eben das letzte Release haben will, direkt auf "Files", nimmt das letzte wo irgendwas mit "stable" dran steht und die höchste Nummer hat, und will dann gerne mit der eigentlichen Arbeit weiter machen. Sorry, aber wenn seit 2013 noch aktiv daran gearbeitet wurde, dann ist das Projekt einfach schlampig geführt. Vor allem wenn solche schon nicht mehr ganz so kleinen Features für Jahre nicht im "official release" auftauchen. Ich habe besseres zu tun als mich mit der Versionshistorie aller Projekte intensiv zu befassen die ich sporadisch und spontan nutze um etwas nicht selbst machen zu müssen, und an und für sich bin ich mit meiner "halben" Releaseversion der GR32 auch sehr zufrieden. (Bevor ich zu viel Zeit ins Suchen stecke, mache ich vieles auch eben einfach selbst. Gerade auch weil ich schon etwas Erfahrung mit der oftmals ganz tollen "Dokumentation" von OS Projekten habe - wobei die GR32 hier sogar ein sehr positives Beispiel ist.) Und wenn ich mich schon nicht für mich durch solches Gewurste kämpfe...

[Memnarch]

@Medium schon alleine die Tatsache, dass das letzte release von 2013 ist, aber zuletzt Dezember 2015 Änderungen gemacht wurden, sollte einen Stutzig machen. Da muss man gar nicht soweit gehen wie der Link

[Rollo62]

Zitat:

Und das soll jetzt jemand, der das Projekt nicht aktiv verfolgt, sondern nur ab und zu mal nutzt wissen?

Ja, GR32 ist ein Desaster, die vielen Addins sind so lustlos reingeworfen unt weit verstreut.
Da müsste mal alles unter einen Hut und richtig aufgeräumt werden, GR32 ist trotz Fmx immer noch richtig gut für viele Dinge.
Trotzdem ist Gr32 ein großartiges Projekt.

Ich plädiere dafür das es auch unter die "TurboPack" Haube kommt.

Rollo

[TraumTaenzerDieter]

Bloß nicht "Turbo Pack" !!!
Dann läuft es nicht mehr unter Delphi 7
und schon garnicht unter Lazarus!