Приостановка вывода текста на канву

[sanji2010]

Здравствуйте, в процессе создания курсовой работы, возникли некие сложности, а именно:
Можно ли как - то приостановить процесс вывода текста на канву, совершаемый функцией

Canvas.TextOut(x,y,str)

Или другой путь, можно ли написать на канве текст, и в слове, например, 4 буквы, написанные 2умя разными шрифтами. Надеюсь на вашу помощь =)

[Stilet]

Можно ли как - то приостановить процесс вывода текста на канву

Можно - переопредели эту функцию на свою, и в ней создай свой управляемый механизм вывода.

можно ли написать на канве текст, и в слове, например, 4 буквы, написанные 2умя разными шрифтами.

Ну почему нет?
Несколько разных вызовов. Можно откатать процедурку для такого вывода:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

			{ TForm1 }

      TForm1 = class(TForm)
						Button1: TButton;
						procedure Button1Click(Sender: TObject);
      private
            { private declarations }
        procedure drawText(s,FontName:String;var cBeg,cLen,x,y:integer);
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var TextBegin,TextLen,x,y:integer;s:string;
begin
 s:='Almost dead guy';
 TextBegin:=1; TextLen:=5; x:=100; y:=100;

 drawText(s,'Ametist',TextBegin,TextLen,x,y); TextLen:=5;
 drawText(s,'Arial',TextBegin,TextLen,x,y);
 drawText(s,'Bodoni Initials',TextBegin,TextLen,x,y);
end;

procedure TForm1.drawText(s, FontName: String; var cBeg, cLen,x,
			y: integer);
begin
 with Canvas do begin
  Font.Name:=FontName;
  if cLen=0 then cLen:=Length(s);
  s:=copy(s,cBeg,cLen);
  Brush.Style:=bsClear;
  TextOut(x,y,s);
  x:=x+TextWidth(s);
  cBeg:=cBeg+cLen; cLen:=0;
 end;
end;

end.

Проверял. Пост отредактировал.

[sanji2010]

Спасибо большое, я кажется знаю как это организовать.
Отличная идея! Ещё раз спасибо)

[Stilet]

Пожалуйста. Я пост свой поправил, вставив полностью код, там первоначально кое-какие ошибки были.

[sanji2010]

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

Пожалуйста. Я пост свой поправил, вставив полностью код, там первоначально кое-какие ошибки были.

Да, я теперь вспомнил в чём была проблема, ибо я делал почти тот же подход, что и предъявили вы. Проблема заключается в том, что шрифты рукописные, то есть, каждые буквы соединены с друг другом (кроме пробелов и знаков припинаний, естественно). Так что, к сожалению, так не получится