Forum: Algorithmen, Datenstrukturen und Klassendesign
by enigma,
7. Jun 2016
Danke für deinen Tipp.
metaFileCanvas := TMetafileCanvas.Create(metafile, 0);
wird sowohl für die Bildschirm-Ansicht als auch fürs Drucken jeweils neu erzeugt.
Meinst du das mit der Bitmap für den Fall Brush.Style := bsBDiagonal ?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by enigma,
7. Jun 2016
Hallo,
ich möchte ein Polygon schraffieren, ohne Brush.Style zu verwenden, da dies bei einigen Druckern nicht klappt.
Im Internet fand ich folgenden Algorithhmus, der aber nicht funktioniert.
Ich verwende Delphi 2010 und bin für jeden Tipp dankbar ;-)
procedure HatchSolidDash(ACanvas: TCanvas; const APolygon: array of TPoint;
HatchColor: TColor; Frequency: integer);