Как работать с TCanvas - на PaintBox1 программа должна рисовать полигон

[Almaas]

Не понял, как работает отзыв... Извините.
Спасибо, _Dmitry, большое. Намного понятнее, чем в других местах, которые я нашел в инете.

[Almaas]

Я немного доработал пример, который вы мне показали. Решил оформить это в виде процедуры с параметрами. Вот что получилось:

procedure c_text(x:integer; y:integer; z:real);
      
    var s: string;
    begin
       s:=FloatToStr(z*10);
       Image1.Canvas.Font.Name := 'Arial';
       Image1.Canvas.Font.Size := 9;
       Image1.Canvas.Font.Style := [fsBold] ;
       Image1.Canvas.Font.Color := clNavy;
       Image1.Canvas.Brush.Style := bsClear;
       Image1.Canvas.TextOut(x-round(TextWidth(s)/2),y,s);
    end;

Поскольку я использую это для вывода значений размеров.
Вызываю это так: c_text(x1,y1,bvp);
где x1 и y1 - ранее вычесленные координаты, bvp - ранее введенное и уже использованное значение размера.
Процедуру описал в type как
procedure c_text(x:integer; y:integer; z:real);
При запуске программа ругается, что Image1 - незадекларированный идентификатор... Чего я делаю не так, подскажите, пожалуйста...

[_Dmitry]

Обращайтесь к Image1 с имени формы Form1.Image1 или включайте процедуру в класс формы

procedure c_text(x:integer; y:integer; z:real);   
var s: string;
begin
  s:=FloatToStr(z*10);
  with Form1.Image1.Canvas do
    begin
       Font.Name := 'Arial';
       Font.Size := 9;
       Font.Style := [fsBold] ;
       Font.Color := clNavy;
       Brush.Style := bsClear;
       TextOut(x-round(TextWidth(s)/2),y,s);
    end;
end;

[Almaas]

Спасибо, заработало... но только когда я убрал из type описание процедуры
Её разве не надо там описывать?

[_Dmitry]

Не понял вопроса, в каком месте раздела type она находилась?
Если вы ее включаете в класс формы, то объявляем ее так

type
  TForm1 = class(TForm)
  .....
  public
    procedure c_text(x:integer; y:integer; z:real);
  end;
...........................
procedure TForm1.c_text(x:integer; y:integer; z:real);      
var s: string;   
begin  
  s:=FloatToStr(z*10);   
  with Image1.Canvas do  
    begin  
       Font.Name := 'Arial';   
       Font.Size := 9;   
       Font.Style := [fsBold] ;   
       Font.Color := clNavy;   
       Brush.Style := bsClear;   
       TextOut(x-round(TextWidth(s)/2),y,s);   
    end;   
end;

обратите внимание, что в строке with я ссылку на форму убрал, она появилась в заголовке процедуры.
Если вы не включаете процедуру в класс формы, то обращаться ко всем ее компанентам нужно начиная с ее имени: Form1.Canvas...

[_Dmitry]

А вообще, зачем менять шрифт в прцедуре вывода текста? У вас, наверно, все значения размеров в едином стиле. Поэтому лучше сделать процедуру, которая только выводит текст, а менять шрифт перед ее вызовом

procedure c_text(Cnv: TCanvas; x,y: integer; s: string);
begin
  Cnv.TextOut(x-round(Cnv.TextWidth(s)/2),y,s);
end;
................................
begin
  with Form1.Image1.Canvas do
    begin
       Font.Name := 'Arial';
       Font.Size := 9;
       Font.Style := [fsBold] ;
       Font.Color := clNavy;
       Brush.Style := bsClear;
    end;
  //изменили настройки шрифта и печатаем текст
  c_text(Form1.Image1.Canvas,x,y,FloatToStr(z*10));

[Almaas]

Вот теперь все встало на свои места. СПАСИБО ОГРОМНОЕ.