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.

                          Форма.

 

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

       

                 


 

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

29640. Язык и композиция вопросов анкеты 36.5 KB
  Виды вопросов по форме: Закрытый вопрос вопрос с фиксированными и изначально заданными вариантами ответов. Открытый вопрос вопрос ответ на который дается в свободной форме отсутствуют изначально заданные варианты ответов. Открытый вопрос используется: для проверки знаний для исследования новых тем и индивидуального многообразия для выявления аргументов по некоторым вопросам.
29641. Интервью в социологическом исследовании. Классификация видов интервью 28 KB
  Классификация видов интервью. Интервью проводимая по определенному плану беседа целенаправленное общение предполагающая прямой контакт интервьюера с опрашиваемым. Интервьюер лицо ведущее непосредственное общение с респондентом при помощи вопросника с целью сбора информации обеспечивающее правильное и надежное использование инструмента исследования.
29642. Эффект интервьюера в классическом социологическом исследовании 24 KB
  Эффект интервьюера в классическом социологическом исследовании. Задача интервьюера максимально снизить эффект интервьюера собственным поведением внешним видом и т. Эффект интервьюера: понятие и основные формы. В современной социологии эффект интервьюера обычно определяется как тенденция полученных в исследовании ответов варьировать в зависимости от закрепленных за респондентами интервьюеров .
29643. Экспертный опрос в социологическом исследовании. Виды экспертного опроса 40 KB
  Помимо разделения опросных методов на анкетирование и интервьюирование существует еще одна важная классификация опросов массовые и экспертные опросы. По характеру деятельности экспертов экспертные опросы делятся на две группы: индивидуальные методы предполагают индивидуальную работу исследователей с каждым из привлеченных экспертов групповые методы экспертизы групповые методы предполагают коллективную работу экспертов они требуют согласования мнений всех экспертов и разработку общего экспертного вывода на основе консенсуса. Если...
29644. Способы подбора экспертов в социологическом исследовании 35 KB
  Способы подбора экспертов в социологическом исследовании. Методы формирования группы экспертов I. Субъективный подход: предполагает привлечение к процедуре отбора самих потенциальных экспертов либо научной общественности из среды которой они отбираются Каждый их этих подходов предполагает определенные методы подбора экспертов см. Таблицу Объективные и субъективные методы формирования группы экспертов Объективный подход Субъективный подход 1.
29645. Метод наблюдения в социологическом исследовании. Виды наблюдения. Опыт использования в социологии 36.5 KB
  Виды наблюдения. Метод наблюдения в соцом исследовании используется в 2х смыслах широком и узком . В узком смысле наблюдения конкретезированный метод соц.
29646. Основные цели и задачи деятельности ИПБ 26 KB
  Активное участие в создании и деятельности ИПБ принимает Минфин РФ. ИПБ РФ объединяет аттестованных профессиональных бухгалтеров и аудиторов. ИПБ России имеет на территории страны свои филиалы и представительства которые являются его обособленными подразделениями.
29647. Особенности бухгалтерского дела на начальной стадии функционирования предприятия 29 KB
  Деятельность организации начинается с ее государственной регистрации. В небольших организациях процедуру регистрации часто проходит именно бухгалтер. Государственная регистрация осуществляется в срок не более чем 5 рабочих дней со дня представления документов в регистрирующий орган. Момент внесения записи регистрирующим органом в государственный реестр признается моментом государственной регистрации.
29648. Особенности бухгалтерского дела на стадии ликвидации 35.5 KB
  Согласно закону несостоятельность признанная арбитражным судом неспособность должника в полном объеме удовлетворять требования кредиторов по денежным обязательствам и или исполнить обязанность по уплате обязательных платежей. Лицами участвующими в деле о банкротстве являются: должник; арбитражный управляющий; конкурсные кредиторы; уполномоченные органы; федеральные органы исполнительной власти а также органы исполнительной власти субъектов Российской Федерации и органы местного самоуправления по месту нахождения должника в случаях...