s.fedotenko@gmail.com 6 Posted February 12 Share Posted February 12 Добрый день. при выводе текста на канву ... 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 post Share on other sites
Administrators Yaroslav Brovin 1127 Posted February 12 Administrators Share Posted February 12 Перенес в трекер: Link to post Share on other sites
Administrators Yaroslav Brovin 1127 Posted February 13 Administrators Share Posted February 13 Пока как временное решение можно включить WordWrap = true. 1 Link to post Share on other sites
Administrators Viktor Akselrod 150 Posted February 16 Administrators Share Posted February 16 Исправлено в 1.9.2.0. 1 Link to post Share on other sites
Recommended Posts