На этом шаге мы рассмотрим компонент TPaintBox.

    Компонент TPaintBox используется для построения приложений типа графического редактора или, например, в качестве места построения графиков. Т.е. назначение компонента TPaintBox - дать простое окно с канвой для рисования произвольных изображений. Ключевых свойств, кроме Canvas, объект не имеет. Графические инструменты находятся в свойствах Font, Pen и Brush, а само рисование осуществляется в обработчике события OnPaint.

Рис.1. Использование компонента TPaintBox

    Например, следующий обработчик создаст окно, показанное на рис.1.:

procedure TForm1.PaintBox1Paint(Sender: TObject); 
var 
  X, Y: Integer; 
begin 
  with PaintBox1, Canvas do 
    begin 
      Brush.Color := clRed; 
      Ellipse (0, 0, Width, Height); 
      Font.Name := 'Arial'; 
      Font.Size := Height div 5; 
      Font.Style := [fsBold, fsItalic]; 
      Font.Color := clWhite; 
      X := (Width - TextWidth('Delphi')) div 2; 
      Y := (Height - TextHeight('D')) div 2; 
      TextOut(X, Y, 'Delphi'); 
    end; 
end; 

    Заметим, что координаты указателя мыши, передаваемые в обработчики соответствующих событий (OnMouseMove и др.), являются относительными, т.е. это смещение мыши относительно левого верхнего угла объекта TPaintBox, а не относительно левого верхнего угла формы.

    На следующем шаге мы рассмотрим компонент TMediaPlayer.

Предыдущий шаг Содержание Следующий шаг