Создать графический редактор.

Procedure TForm1.ImageOutMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ImageOut.Canvas.MoveTo (x,y)

end;

Procedure TForm1.ImageOutMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if ssLeft in Shift then

ImageOut.Canvas.LineTo (x,y)

end;

Заключение.

При выполнении учебной практике на Delphi 7, была посталена задача изучить и освоить графику в среде программирования delphi. Были получены знания по размещению различных компонентов на форме. Программирование этих объектов. Рисование и анимирование рисунков с помощью шейпов. Рисование рисунка с помощью функций.

При работе со шрифтами былм получены знания: с помощью 2х кнопок, размещенных на форме(вкладка Standart), компонент PaintBox (вкладка System) и компонент FontDialog(вкладка Dialogs) выводить текст с указанными параметрами.

Не нашли, что искали? Воспользуйтесь поиском: