Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
23. Dez 2013
BTW, bei mir (D2007) macht er psDash, psDot und Co. nur bei Pen.Width 1. Ist das normal? :gruebel:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
22. Dez 2013
Genauso so sieht's aus, Ihr habt vollkommen recht. :thumb:
Beispiel:
procedure HatchSolidDash(Canvas: TCanvas; const Polygon: array of TPoint;
HatchColor: TColor; Frequency: integer);
var
I, J: integer;
ClipRgn: HRGN;
CanvasWidth, CanvasHeight: integer;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
22. Dez 2013
Fragt man sich, was da jetzt der Unterschied zu Canvas.Polygon(P) sein soll?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
21. Dez 2013
Aphton, Ja, so ging’s und das wäre sicher auch eine schmucke Klasse. Auf die Idee mit dem Boundrect bin ich auch gekommen. Davon ausgehend ein InflateRect und los gehts. Die entsprechenden functions Schnittpunkte berechnen und ob innerhalb oder nicht hab ich sogar (brauch in anderer Stelle). Denke mal, der Algo dauert aber viel zu lang? Vielleicht mach ich's dann doch mit Canvas Polygon, aber mit...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
21. Dez 2013
Hat jemand eine Idee, wie man ein Polygon schraffieren könnte, mir fällt nix Gescheites ein. Vorgehensweise oder Pseudoquellcode reicht mir völlig. Thanx.