ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от НTL

а для jpg ничего нету, а то просто вход jpg и выход jpg надо

А текст нельзя положить на картинку?

Если нужно ДЖПГ то попробуй это:
Как перевести BMP в JPEG и обратно

Код:

uses JPEG;
//BMP -> JPEG
JpgImage:=TJPEGImage.Create;
JpgImage.Assign(BmpImage);
//JPEG -> BMP
BmpImage:=TBitmap.Create;
BmpImage.Assign(JpgImage);

Где BmpImage и JpgImage - твои файлы.

А для вот пример накладывания текста на картинку. Но при таком подходе фон текста не прозрачный. Может кто-то предложит вариант и по-лучше, но пока так:

Код:

Image1.Picture.Bitmap.Canvas.TextOut(0, 0, 'bla-bla');

================================================== ==============================

Цитата:

Сообщение от Seven[up]

как закрыть прогу, во время выполнения цикла?:

Application.Terminate;
и что это у тебя за корявый цикл? Вот так будет лучше:

Код:

memo1.Clear;
application.ProcessMessages;
while true do
begin
inc(i);
memo1.Lines.Add(IntToStr(i));
end;