База знаний студента. Реферат, курсовая, контрольная, диплом на заказ

курсовые,контрольные,дипломы,рефераты

Масштабирование. Геометрическое моделирование — Программирование, Базы данных

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  ComCtrls, Menus, ExtCtrls, StdCtrls, Spin;

type

  TForm1 = class(TForm)

    StatusBar1: TStatusBar;

    SpinEdit1: TSpinEdit;

    Image1: TImage;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure SpinEdit1Change(Sender: TObject);

    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  xi,yi: integer;

  h,i:integer;

implementation

{$R *.DFM}

procedure p1;

begin

form1.refresh;

form1.canvas.pixels[xi,yi]:=clred;

for i:=0 to 628 do

   form1.canvas.pixels[trunc(xi+H*cos(i/100)),trunc(yi+H*sin(i/100))]:=clblue;

end;

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

  Shift: TShiftState; X, Y: Integer);

      begin

            xi:=x;

            yi:=y;

            p1;

      end;

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

h:=SpinEdit1.value;

 if  RadioButton1.checked=true then p1

  else

      begin

 image1.width:=SpinEdit1.value;

 image1.height:=SpinEdit1.value;

      end;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

      statusbar1.simpletext:=' X : '+inttostr(x)+'   Y : '+inttostr(y);

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Image1.visible:=false;

p1;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

refresh;

Image1.visible:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

     h:=30;

end;

end.

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ComCtrls, Menus, ExtCtrls, StdCtrls, Spin; type   TForm1 = class(TForm)     StatusBar1: TStatusBar;     SpinEdit1: TSpinEdit;   

 

 

 

Внимание! Представленный Реферат находится в открытом доступе в сети Интернет, и уже неоднократно сдавался, возможно, даже в твоем учебном заведении.
Советуем не рисковать. Узнай, сколько стоит абсолютно уникальный Реферат по твоей теме:

Новости образования и науки

Заказать уникальную работу

Похожие работы:

Кадрирование, диаграмма и график. Геометрическое моделирование
Языки программирования
Реляционные Базы Данных. SQL - стандартный язык реляционных баз данных
Автоматизация расчета начислений заработной платы в строительном управлении N 151
Автоматизация бухгалтерского учета в России
Теория многозадачности и многопоточности
Компьютерные вирусы
Разработка системы по сбору информации о доходах физических лиц для формирования налоговых документов и отчетности для налоговой службы по объединению Сургутгазпром
Проблема 2000 года и ее последствия
Понятие, назначение и составные элементы систем программирования

Свои сданные студенческие работы

присылайте нам на e-mail

Client@Stud-Baza.ru