Jump to content

Recommended Posts

Posted

В продолжение темы.

Пишу текст на фото. Но не срабатывает перенос строки. Что-то не так делаю?

  var Bitmap := TfgBitmap.Create;
  Bitmap.LoadFromFile(filename);
  Bitmap.Canvas.BeginPaint;
  try
    Bitmap.Canvas.Font.Size:= 50;
    Bitmap.Canvas.Fill.Color := TAlphaColorRec.Red;
    Bitmap.Canvas.Fill.Kind := TfgBrushKind.Solid;
    Bitmap.Canvas.FillText(Bitmap.Bounds, DateTimeToStr(now) + sLineBreak + DateTimeToStr(now) + sLineBreak + DateTimeToStr(now) ,True, TfgHorizontalAlignment.Right, TfgVerticalAlignment.Bottom);
  finally
    Bitmap.SaveToFile(filename);
    Bitmap.Canvas.EndPaint;
  end;
  FreeAndNil(Bitmap);

Успешный сценарий который ожидаю. Дата в трех строчках

  • Administrators
Posted

Здравствуйте.

Подтверждаю проблему.

Постараемся исправить в ближайшее время.

PS строки Bitmap.Canvas.EndPaint; и Bitmap.SaveToFile(filename); надо как минимум поменять местами

PPS try finally поставить между конструктором и деструктором для надежности.

Posted
1 минуту назад, Viktor Akselrod сказал:

Здравствуйте.

Подтверждаю проблему.

Постараемся исправить в ближайшее время.

PS строки Bitmap.Canvas.EndPaint; и Bitmap.SaveToFile(filename); надо как минимум поменять местами

PPS try finally поставить между конструктором и деструктором для надежности.

Благодарю. Поправим у себя с учетом рекомендаций

×
×
  • Create New...