s.fedotenko@gmail.com Posted February 12, 2021 Share Posted February 12, 2021 Добрый день. при выводе текста на канву ... pCanvas.FillColor(TAlphaColorRec.White); pCanvas.Stroke.Kind := TfgBrushKind.Solid; pCanvas.Stroke.Color := TAlphaColorRec.Green; pCanvas.Stroke.Thickness := 1; pCanvas.Fill.Kind := TfgBrushKind.Solid; pCanvas.Fill.Color := TAlphaColorRec.Blue; pCanvas.Font.Size := 40; sss := 'Hello'; TextSize := pCanvas.MeasureText(sss, TSizeF.Create(1000, 1000), false); R := rectf((pCanvas.Width / 2) - TextSize.cx / 2, (pCanvas.Height / 2) - TextSize.cy / 2, (pCanvas.Width / 2) + TextSize.cx / 2, (pCanvas.Height / 2) + TextSize.cy / 2); pCanvas.DrawRect(R); pCanvas.FillText(R, sss, false, TfgHorizontalAlignment.Center, TfgVerticalAlignment.Center); ... получаем: fgx 1.9.1.0 delphi xe 10.4.1 Link to comment Share on other sites More sharing options...
Administrators Yaroslav Brovin Posted February 12, 2021 Administrators Share Posted February 12, 2021 Перенес в трекер: Link to comment Share on other sites More sharing options...
Administrators Yaroslav Brovin Posted February 13, 2021 Administrators Share Posted February 13, 2021 Пока как временное решение можно включить WordWrap = true. 1 Link to comment Share on other sites More sharing options...
Administrators Viktor Akselrod Posted February 16, 2021 Administrators Share Posted February 16, 2021 Исправлено в 1.9.2.0. 1 Link to comment Share on other sites More sharing options...
Recommended Posts