Добавить надпись на изображение и сохранить(с надписью уже)

[igrok111]

Есть изображение photo.png. Вверху есть пустое место, там нужно сделать надпись с нужным мне шрифтом, размером текста. И потом сохранить готовое изображение. Все что я придумал, сделать ImageView, поверх него TextView, а потом делать скриншот экрана и нужную область вырезать.

[Stilet]

Например это можно сделать так:

var     tb:TBitmap;
...
tb:=TBitmap.Create;
tb.LoadFromFile('c:\acd185.bmp');
 tb.Canvas.Brush.Style:=bsClear;
 tb.Canvas.TextOut(100,100,Edit1.Text);
tb.SaveToFile('c:\acd185.bmp');

[igrok111]

Сообщение от Stilet

Например это можно сделать так:

var     tb:TBitmap;
...
tb:=TBitmap.Create;
tb.LoadFromFile('c:\acd185.bmp');
 tb.Canvas.Brush.Style:=bsClear;
 tb.Canvas.TextOut(100,100,Edit1.Text);
tb.SaveToFile('c:\acd185.bmp');

Изображение должно быть только .bmp?

[min@y™]

Все что я придумал, сделать ImageView, поверх него TextView, а потом делать скриншот экрана и нужную область вырезать.

месье знает толк в извращениях!

Изображение должно быть только .bmp?

нет. можно jpeg, png, gif, tif, а также более другие форматы хранения избражений.

[Stilet]

Изображение должно быть только .bmp?

Нет, это просто пример из моих сусеков.

[igrok111]

Сообщение от Stilet

Например это можно сделать так:

var     tb:TBitmap;
...
tb:=TBitmap.Create;
tb.LoadFromFile('c:\acd185.bmp');
 tb.Canvas.Brush.Style:=bsClear;
 tb.Canvas.TextOut(100,100,Edit1.Text);
tb.SaveToFile('c:\acd185.bmp');

Можно ли (как и с Label) выровнять данный текст по центру сверху? Также я задумывал сделать тень для текста, тут это можно реализовать? У меня вариант - 2 одинаковых текста один над другим, нижний черный, а верхний немного подвигаю на пару пикселей, таким образом тень делаю.

[min@y™]

Можно ли (как и с Label) выровнять данный текст по центру сверху?

можно.
хочешь, подарю тебе самопальную функцию, которая рассчитывает позицию для TextOut()?

[Stilet]

Можно ли (как и с Label) выровнять данный текст по центру сверху?

Если правильно рассчитаешь координаты то все получится.
Тебе поможет функция TextWidth()

[igrok111]

Сообщение от min@y™

можно.
хочешь, подарю тебе самопальную функцию, которая рассчитывает позицию для TextOut()?

Конечно хочу. А есть ли возможность растягивать текст по ширине картинки? То есть автоматически подгонять размер шрифта?

Сообщение от Stilet

Например это можно сделать так:

var     tb:TBitmap;
...
tb:=TBitmap.Create;
tb.LoadFromFile('c:\acd185.bmp');
 tb.Canvas.Brush.Style:=bsClear;
 tb.Canvas.TextOut(100,100,Edit1.Text);
tb.SaveToFile('c:\acd185.bmp');

я пытался применить этот код. У меня была ошибка "Bitmap image is not valid", видимо тк исходное изображение в формате jpg. Тогда я поменял на TJPEGImage.

var     TJPEGImage;
...
tb:=TJPEGImage.Create;

В итоге изображение сохранилось без ошибок, но надписей на нем не появилось.

[min@y™]

Конечно хочу.

// Начальная точка вывода текста на канве внутри прямоугольника Rect
// с выравниванием горизонтальным и вертикальным
function GetTextPosition(const Text: string;                 // текст
                         const Canvas: TCanvas;              // канва
                         const Rect: TRect;                  // прямоугольник отрисовки
                         const TextMargin: Integer;          // размер полей
                         const Alignment: TAlignment;        // гориз. выравнивание
                         const Layout: TTextLayout): TPoint; // верт. выравнивание
var
  th, tw: Integer;
begin
  tw:= Canvas.TextWidth(Text);
  th:= Canvas.TextHeight(Text);

  case Alignment of
    taLeftJustify  : Result.x:= TextMargin;
    taCenter       : Result.x:= ((Rect.Right - Rect.Left) div 2) - (tw div 2);
    taRightJustify : Result.x:= (Rect.Right - Rect.Left) - tw - TextMargin;
  end; //case

  case Layout of
    tlTop:    Result.y:= TextMargin;
    tlCenter: Result.y:= ((Rect.Bottom - Rect.Top) div 2) - (th div 2);
    tlBottom: Result.y:= (Rect.Bottom - Rect.Top) - th - TextMargin;
  end; // case
end;

А есть ли возможность растягивать текст по ширине картинки? То есть автоматически подгонять размер шрифта?

а это тебе домашнее задание.

ho-ho-ho!