Узнать стоимость написания работы
Оставьте заявку, и в течение 5 минут на почту вам станут поступать предложения!
Реферат

Реферат по предмету "Программирование, Базы данных"


Масштабирование. Геометрическое моделирование

unitUnit1;
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}
procedurep1;
begin
form1.refresh;
form1.canvas.pixels[xi,yi]:=clred;
for i:=0to 628 do
  form1.canvas.pixels[trunc(xi+H*cos(i/100)),trunc(yi+H*sin(i/100))]:=clblue;
end;
procedureTForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
      begin
            xi:=x;
            yi:=y;
            p1;
      end;
procedureTForm1.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;
procedureTForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
      statusbar1.simpletext:=' X:'+inttostr(x)+'   Y: '+inttostr(y);
end;
procedureTForm1.RadioButton1Click(Sender: TObject);
begin
Image1.visible:=false;
p1;
end;
procedureTForm1.RadioButton2Click(Sender: TObject);
begin
refresh;
Image1.visible:=true;
end;
procedureTForm1.FormCreate(Sender: TObject);
begin
     h:=30;
end;
end.


Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Сейчас смотрят :

Реферат Сравнительный анализ циклов газотурбинной установки
Реферат Стихотворение Пастернака Снег идет
Реферат Исследование зависимости прочности клеевых соединений от технологических параметров склеивания п
Реферат Использование средств массовой информации при установлении внешних связей организации на приме
Реферат Основные понятия маркетинга
Реферат Правове регулювання робочого часу і часу відпочинку
Реферат Бизнес-план предприятия по производству мебели ООО Дион
Реферат История возвращения еврейского народа на родину
Реферат Загалом відноситься до тієї сфери суспільного життя що безпосередньо стосується інтересів всіх
Реферат Авторская ирония в романе "Евгений Онегин"
Реферат Татарстан в период перестройки
Реферат Аттестационное задание для студентов 3-го курса по специальности №021100 - Юриспруденция по блоку Гражданско-правовых дисциплин (Гражданское право)
Реферат 1 Место механизма реализации права в системе правового регулирования 16 глава 2
Реферат The Greatest Day Essay Research Paper Buzz
Реферат Being Healthy Essay Research Paper I don