Hello there!
With version 8.4, it is possible to do curved text in BGRABitmap. Note that the letters themselves are not bent, they are rotated and placed at a specific location.
Sample code:
uses BGRABitmap, BGRABitmapTypes, BGRAPath, BGRAVectorize;
{ TForm1 }
procedure TForm1.FormPaint(Sender: TObject);
var bmp: TBGRABitmap;
path: TBGRAPath;
step,y1,y2: single;
begin
bmp := TBGRABitmap.Create(ClientWidth,ClientHeight,CSSLightSteelBlue);
path := TBGRAPath.Create;
y1 := bmp.Height/6;
y2 := 5*bmp.Height/6;
step := bmp.Width/6;
path.moveTo(0,(y1+y2)/2);
path.quadraticCurveTo(0,y1,1*step,y1);
path.smoothQuadraticCurveTo(2*step,(y1+y2)/2);
path.smoothQuadraticCurveTo(3*step,y2);
path.smoothQuadraticCurveTo(4*step,(y1+y2)/2);
path.smoothQuadraticCurveTo(5*step,y1);
path.smoothQuadraticCurveTo(6*step,(y1+y2)/2);
bmp.FontHeight := round(bmp.Height/15);
bmp.FontVerticalAnchor := fvaXCenter;
bmp.FontRenderer := TBGRAVectorizedFontRenderer.Create;
bmp.FontQuality := fqFineAntialiasing;
bmp.TextOutCurved(path, 'One can taste the flavor of days only by shying away from the duty to have a destiny', BGRABlack, taCenter, 0);
bmp.Draw(Canvas,0,0);
bmp.Free;
end;
Recent
