РАБОТА СО  ТЕКСТ

Прво се подига програмскиот јазик Delphi и се прави избор на нова апликација File->NEW Application.

Се поставува и еден  Button  со Caption - Crtaj  од палетата со компоненти Standard. На Event клик на

Button1 се впишува следниот код

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Canvas.Font.Name := 'Mac C Times';
image1.Canvas.Font.Size := 20;
image1.Canvas.Font.Style := [fsBold];
image1.Canvas.TextOut(20, 20, 'Proba za tekst vo grafika.');
image1.Canvas.Font.Color := clBlue;
image1.Canvas.Pen.color := clred;
{ image1.Canvas.Pen.Width := 1;
image1.Canvas.Brush.Style := bsClear;
image1.Canvas.TextOut(20, 20, 'Proba za tekst vo grafika.');
image1.Canvas.TextOut(20, 100, 'Potocno za crtanje na tekst.');
image1.Canvas.MoveTo(20, 20);
image1.Canvas.LineTo(140, 20);}
image1.Canvas.TextRect(rect(50, 50,450,600),50,50, 'tekst');
end;