Текст на Image

[_-Re@l-_]

Image1.Canvas.Font.Size вроде как и
Image1.Canvas.Font.Style

[DeKot]

При работе с канвой формы все атрибуты текста можно задать в Инспекторе объектов. Поэтому канва формы предпочительнее для работы с текстом. Ну и, естественно, можно программно задавать атрибуты шрифта (размер, стиль, цвет).

[ex.cluz]

[OFFTOP]
artemavd, а вы точно Delphi-ст?
Или просто с канвой раньше не приходилось работать?
[/OFFTOP]

Мне с графикой не приходилось работать. Если ты пытаешь укорить меня в чем-то, то для тебя будет лучше промолчать на этот счет.

[Stilet]

Вопрос: как?

Для Image.Canvas есть свойство Font - настрой его и будет тебе счастье

[_-Re@l-_]

Для Image.Canvas есть свойство Font - настрой его и будет тебе счастье

Image1.Canvas.Font.Size вроде как и
Image1.Canvas.Font.Style

э-э-э..Я уже разъяснил..

[Stilet]

Ничего. Повторение мать ученья )

[_-Re@l-_]

У кого как..

[artemavd]

Когда я загружаю BMP рисунок и вывожу на него текст, то без проблем, а когда я пытаюсь вывести текст на рисунок, который имеет формат jpeg, то получаю ошибку, что типа нельзя и текст можно выводить только на bmp. Можно ли это как-то исправить?

[DeKot]

Для вывода рисунка JPEG исполоьзуйте объект TJpegImage, в который и загружаете рисунок. Затем, используя один из методов Draw,StretchDraw или CopyRect переносите рисунок (часть рисунка) из TJpegImage на канву объекта TBitMap и на ней же выводите текст.

//  добавляем 
uses ....., Jpeg:

var
  Form1: TForm1;
  Buffer: TBitMap;
  BufPic: TJpegImage;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Buffer:= TBitMap.Create;
   BufPic:= TJpegImage.Create;  // создаем объекты
   BufPic.LoadFromFile('MyPicture.jpg');  // грузим рисунок
   Buffer.Width:= BufPic.Width;
   Buffer.Height:= BufPic.Height;
   Buffer.Canvas.Draw(0,0,BufPic);  // переносим рисунок на битмап
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  // устанавливаем, если надо, атрибуты шрифта
  Buffer.Canvas.TextOut(x,y,' MyText - бла-бла-бла');
  Form1.Canvas.Draw(xForm,yForm,Buffer);
  
end;

end.

[artemavd]

А нельзя разве сделать, чтобы сразу было с Image1?). Просто у меня остальное-то все хорошо работает и как то не хочется переделывать. Слишком много.