Jump to content

Recommended Posts

Posted

Здравствуйте, обнаружил неприятную особенность отрисовки текста.

Охватило меня желание нарисовать текст в круге.

procedure TFormMain.fgButton1Tap(Sender: TObject);
var B:TfgBitmap;
    Sz:Integer;
begin
B:=TfgBitmap.Create;
Sz:=128;
B.Size:=Tsize.Create(Sz,Sz);
B.Canvas.Fill.Color:=TAlphaColorRec.Green;
B.Canvas.FillCircle(B.Size.cx/2,B.Size.cy/2,B.Size.cx/2);
B.Canvas.Font.Size:=Sz/2;
B.Canvas.Fill.Color := TAlphaColorRec.Red;
B.Canvas.Fill.Kind := TfgBrushKind.Solid;
B.Canvas.FillText(B.Bounds,'100',False);
TfgAssetsManager.Current.AddBitmap('test',B);
fgImage1.ImageName:='test';
end;

И показать его на картинке.

И не получилось

Спасибо

Screenshot_2020-01-22-17-30-36.png

×
×
  • Create New...