Rand für Canvas TextOut Schrift

[Thom]

Du mußt vorher dem Pinsel noch eine Farbe zuweisen - dann wird der Pfad auch gefüllt. Allerdings sieht das Ergebnis durch die fehlende Kantenglättung etwas ... unschön aus.

Nutzt Du Graphics32? Dafür gibt es eine schöne Erweiterung, die auch umrandeten Text beherrscht.

[Bummi]

ich wiederhole mich, sorry, mit GDI+ und Path recht einfach, im Beispiel der Text "Test"

Delphi-Quellcode:

  Graphics :=  TGPGraphics.Create(BackImage.Canvas.Handle);
  graphics.SetSmoothingMode(SmoothingModeHighQuality);
  graphics.SetTextRenderingHint(TextRenderingHintAntiAlias);
  Brush:=TGPSolidBrush.Create(ColorToTGPColor(clRed,200));
  FontFamily := TGPFontFamily.Create('Arial narrow');
  aFont := TGPFont.Create(FontFamily,80);
  Pen:=TGPPen.Create(ColorToTGPColor(clRed,200));
  fmt:=TGPStringFormat.Create;
  try
  path := TGPGraphicsPath.Create;
  path.AddString('Test',-1,FontFamily,1,150,MakePoint(100,100),fmt);
  Graphics.DrawPath(pen,path);
  // Graphics.FillPath(brush,path);
  path.Free;
  pen.Free;
  Graphics.DrawString(FormatDateTime('hh:nn:ss',now),-1,aFont,MakePoint(0.0,0),Brush);

[Popov]

Danke, gucke ich mir an, aber wieso sorry, hast du es mir gegenüber schon mal erwähnt?

[Bummi]

Nein, aber ich preise die Vorzüge ständig an wenn es um Grafikausgaben geht ...