[xDeNx]

Хочу написать программу такого типа, http://www.1nokia.ru/load/67-1-0-1925. Последняя мне не подходит, тк экран плейера другого размера. Посоветуйте с чего начать

[Страдалецъ]

Что-то я непонял самой идеи

Программа для конвертирования текстовых файлов в изображения jpeg. Пригодится тем, у кого плейер не поддерживает txt-файлы. Программа на русском языке.

Как тескт соотносится с картинкой и причем здесь плейер?

[Nyctos Kasignete]

Может, имелось в виду просто сохранение изображения с текстом? Ну, типа такого...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

uses ..., jpeg;   ......   procedure TForm1.Button1Click(Sender: TObject); var   txtFile: TextFile;   Str: string;   i: Integer;   Img: TJPEGImage; begin   AssignFile(txtFile, 'D:\TextFile.txt');   Img := TJPEGImage.Create;   try     Reset(txtFile);     with Image1.Canvas do     begin       MoveTo(10, 10);       while not Eof(txtFile) do       begin         Readln(txtFile, Str);         i := 1;         while i < Length(Str) do         begin           TextOut(PenPos.X, PenPos.Y, Str[i]);           Inc(i);           if PenPos.X > Image1.Width - 10 then MoveTo(10, PenPos.Y + 20);         end;       end;     end;     Img.Assign(Image1.Picture.Bitmap);     Img.SaveToFile('D:\Text2JPEG.jpg');   finally     CloseFile(txtFile);     Img.Free;   end; end;

P.S. Соответственно, размер картинки можно подгонять, изменяя размер компонента TImage на форме.

[lmikle]

Ну, наверное, да.
Только:
1. Нафиг использовать TImage, когда быстрее будет рендерить в памяти на TBitmap
2. Надо с формы задавать размер страницы.
3. Надо "резать" текст по размеру страницы.

В принципе, работы на пару часов максимум.
Начинать с того, что посмотреть методы и свойства класса TCanvas. А именно:
- св-во Font
- св-во Brush
- метод TextOut
- метод FillRect.
кажется, этого списка будет более чем достаточно.

[Aristarh Dark]

lmikle, я бы еще добавил: TextHeight и TextWidth

[lmikle]

А, да, хотел написать, но забыл