16509

Создать программу в Delphi с задаными действиями

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 6 Создать программу в Delphi со следующими действиями. Задайте цвет формы свойство color. Часть первая: На событие мыши OnMouseDown переведите значение переменной Flag:Boolean в True выполните процедуру Form1.Canvas.MoveTox0y0 где x0y0 позиция курсора мышки и откройте ...

Русский

2013-06-22

75 KB

3 чел.

Лабораторная работа № 6

Создать программу в Delphi со следующими действиями.

Задайте цвет формы (свойство color).

Часть первая:

На событие мыши OnMouseDown переведите значение переменной Flag:Boolean в True, выполните процедуру Form1.Canvas.MoveTo(x0,y0) (где x0,y0 – позиция курсора мышки) и откройте файл для записи (см. свой вариант).

На событие OnMouseMove (при условии Flag=True) выполните процедуру Form1.Canvas.LineTo(x,y) и произведите запись координат (x-x0,y-y0)  в файл.

На событие мыши OnMouseUp переведите значение переменной Flag в false и закройте файл.

Часть вторая:

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

Примечание1: Добавьте возможность изменения толщины и цвета пера.

Вариант

нечетный

Файл текстовый

четный

Файл типизированный (например, file of word)


Текст программы

Часть 1:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

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

 type

 { TForm1 }

 TForm1 = class(TForm)

   procedure FormCreate(Sender: TObject);

   procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

     Shift: TShiftState; X, Y: Integer);

   procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

   procedure FormMouseUp(Sender: TObject; Button: TMouseButton;

     Shift: TShiftState; X, Y: Integer);

 private

   { private declarations }

 public

   { public declarations }

 end;

var

 Form1: TForm1;

implementation

 var

 flag:boolean;

 f:TextFile;

 x0,y0:integer;

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

 Flag := False;

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

 Shift: TShiftState; x, y: integer);

var

 dx,dy:integer;

begin

 if not flag then

 begin

   if Button = mbLeft then

   begin

     flag := True;

     AssignFile(f,'risynok.dat');

     ReWrite(f);

     x0:=x;

     y0:=y;

     Canvas.MoveTo(x,y);

   end

   else

   if Button = mbRight then

   begin

     x0:=x;

     y0:=y;

     Canvas.MoveTo(x,y);

     AssignFile(f, 'risynok.dat');

     ReSet(f);

     while not EOF(f) do

     begin

       Readln(f,x,y);

       Canvas.LineTo(x0-x,y0-y);

     end;

     CloseFile(f);

   end;

 end;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; x,y: integer);

begin

 if flag then

 begin

   Writeln(f,x0-x,' ',y0-y);

   Canvas.LineTo(x, y);

 end;

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;

 Shift: TShiftState; x, y: integer);

begin

 if flag then

 begin

   CloseFile(f);

   Flag:=false;

 end;

end;

end.

                          Форма.

 

                Демонстрация работы программы.

       

                 


 

А также другие работы, которые могут Вас заинтересовать

41535. Инновационная деятельность коммерческого предприятия 225 KB
  Оценка экономической эффективности инноваций При оценке научного и технического уровня проекта возможностей его выполнения и эффективности принимаются решения о целесообразности и объеме финансирования. В этом методе обращается внимание на сравнимость потенциальных результатов осуществляемого проекта что составляет одно из требований проверки экономической обоснованности конкретных решений по финансированию краткосрочных и быстроокупаемых проектов. Оценка дается на основе анализа научного содержания проекта и научного потенциала автора или...
41536. Планирование на коммерческом предприятии 74.5 KB
  Например закон стоимости требует чтобы цена товара устанавливалась исходя из общественно необходимых затрат на производство и реализацию продукции. При административнокомандной модели планирование осуществляется сверху вниз в виде директивных плановых заданий по выпуску продукции и поставке ее потребителям которые заранее указаны вышестоящими ведомствами. При рыночной модели экономики производитель самостоятельно ищет покупателя своей продукции. Под производственной программой предприятия понимается научно обоснованное плановое задание по...
41537. Инвестиционная деятельность коммерческого предприятия 129.5 KB
  Почему следует исключать ситуацию когда рискуя: опираясь на положительный баланс факторов риска мы получим прибыль. Эффект риска можно сравнить с аффектом синергии когда при благоприятном однонаправленном воздействии большинства факторов мы получаем дополнительный рисковый или синергический эффект. Таким образом риск вероятность достижения положительного или отрицательного проектного результата в зависимости от действий внешних и внутренних факторов определяющих степень неопределенности объекта и субъекта риска или процесса по их...
41538. Производственные ресурсы коммерческого предприятия: основные средства, материальные, трудовые ресурсы и показатели их использования 308 KB
  Организация труда на предприятии Производительность труда: показатели и методы измерения Основные средства это средства труда которые неоднократно участвуют в производственном процессе сохраняя при этом свою натуральную форму а их стоимость переносится на производимую продукцию частями по мере их снашивания. Закон воспроизводства основного капитала выражается в том что в нормальных экономических условиях его стоимость введенная в производство полностью восстанавливается обеспечивая возможность для постоянного технического...
41539. Ведение в коммерческую деятельность. Место и роль фирмы (организации) в обществе 167.5 KB
  Место и роль фирмы организации в обществе Роль фирмы организации в современном обществе. Понятие фирмы. Производственный процесс основа деятельности фирмы.
41540. Производственная структура коммерческого предприятия его инфраструктура 122 KB
  Организационное взаимодействие это формальные отношения между отдельными позициями управления в рамках структуры. Организационная структура это состав перечень отделов служб и подразделений в аппарате управления системная их организация характер соподчиненности и подотчетности друг другу и высшему органу управления фирмы а также набор координационных и информационных связей порядок распределения функций управления по различным уровням и подразделениям управленческой иерархии. Базой для построения организационной структуры управления...
41541. Финансовые ресурсы предприятия. Доходы и расходы предприятия 267.5 KB
  Себестоимость промышленной продукции. Сущность состав и структура цены продукции предприятия. Как же этого достичь Общий принцип выбора следующий: фирма должна использовать такой процесс производства который при одном и том же уровне выпуска продукции позволял бы применять наименьшее количество вводимых факторов производства т. Поэтому фирма должна использовать такой производственный процесс при котором один и тот же объем готовой продукции обеспечивается с наименьшими затратами на вводимые факторы производства.
41542. Рынок облигаций в России 1.22 MB
  Рынок облигаций в России Первичный и вторичный рынок облигаций Закономерности изменения доходности облигаций Недаром в последние десятилетия во всем мире наблюдается тенденция к росту рынка облигаций тенденция к секьюритизации долгов.
41543. Понятие и виды векселей 548 KB
  Векселя Понятие и виды векселей Правовые основы выпуска и обращения векселей Место векселей на финансовых рынках МИРОВОЙ ОПЫТ. Коммерческие бумаги на зарубежных финансовых рынках Рынок векселей в России Риски владения векселями Образец Акта о протесте векселя в неплатеже