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.

                          Форма.

 

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

       

                 


 

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

67184. Лексика с точки зрения происхождения 119 KB
  Кальки лексические семантические фразеологические Причины заимствования внешние и внутренние Пути заимствования устный и письменный; непосредственно и через язык-посредник Внутренние заимствования Освоение заимствований Экзотизмы и варваризмы Отношение к заимствованиям...
67185. СИМЕТРИЧНІ КРИПТОПЕРЕТВОРЕННЯ ШИФРУВАНННЯ 177.37 KB
  Симетричне криптографічне перетворення у вигляді блокового симетричного шифру БСШ знайшло широке застосування на практиці. БСШ будуються на основі використання декількох симетричних криптографічних перетворень елементарних шифрів більшість яких розглянуто вище в підрозділі...
67186. Оформлення таблиць 720.5 KB
  Таблиці чудово справляються з тим для чого вони насправді призначені представленням табличних даних. Структура таблиці Перш ніж переходити до CSS давайте розглянемо ключові структурні елементи таблиць які знадобляться для гарного оформлення...
67187. ПОЛІТИЧНІ РЕЖИМИ 93.5 KB
  Політичний режим являє собою комплекс взаємодіючих компонентів здійснення політичної влади. Носієм зв`язків та відносин, тобто показником того, як, в якій політичній парадигмі працює влада, є компоненти та їх взаємодія, атрибутивні, характерні властивості того чи іншого політичного режиму.
67188. Рефлекс - стереотипная приспособительная реакция 111.5 KB
  Рефлексы и сегодня принято объяснять как проявление отражательной деятельности центральной нервной системы на различные раздражения. Сеченов объяснял это так: Чистые рефлексы или отражённые движения всего лучше наблюдать на обезглавленных животных и преимущественно на лягушке...
67189. Синонимия. Понятие синонимии. Типы синонимов 63.5 KB
  Синонимы могут отличаться друг от друга либо оттенками значений либо стилистической окраской либо сочетаемостью либо совокупностью этих признаков. Синонимы обозначают одно и то же понятие но указывают на разные признаки понятия т. Синонимы образуют синонимические пары и ряды.
67190. Словообразование. Понятие о словообразовании 184.5 KB
  Термин словообразование используется в двух значениях: образование слов называемых производными обычно на базе однокорневых слов по существующим в языке моделям с помощью аффиксации словосложения конверсии и других формальных средств; раздел языкознания изучающий все аспекты создания строения...
67191. ЧУГУНЫ 32.5 KB
  Излом их светлый поэтому такие чугуны называются белыми. Белые чугуны используются главным образом как передельные чугуны. Доэвтектический белый чугун содержащий 22 29С используется для получения ковкого чугуна эвтектический белый чугун легкоплавкий...
67192. Роздрібний товарооборот. Фактори роздрібного товарообороту 24.93 KB
  Фактори що визначають обсяги структуру та перспективи розвитку роздрібного товарообороту підприємства. Фактори що визначають обсяги структуру та перспективи розвитку роздрібного товарообороту підприємства. Обсяг структуру та перспективи розвитку товарообороту конкретного підприємства...