У вас вопросы?
У нас ответы:) SamZan.net

Unit1.h -- prgm pckgesmrtinit prgm resource

Работа добавлена на сайт samzan.net: 2015-12-27

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 30.6.2025

Змн.

Арк.

№ докум.

Підпис

Дата

Арк.

2

ЛР 6  5.05010301.532.28.28

Мета заняття: Навчитися працювати з компонентом PaintBox для створення

растрових малюнків. Вивчити можливості для малювання стандартних фігур.

Обладнання: персональний комп’ютер,C++Builder 6 .

Робоча форма :

Дерево об'єктів :

Лістинг програми:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

       : TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N4Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)

{

int i,x,y;

   PaintBox1->Canvas->Brush->Color = RGB(0,0,255);

   PaintBox1->Canvas->FillRect(Rect(0,0,PaintBox1->Width,Form1->PaintBox1->Height));

     for (i=1;i<20;i++)

   {

         PaintBox1->Canvas->Pen->Color = RGB(random(255),random(255),random(255));

         PaintBox1->Canvas->Pen->Width = random(3)+1;

         x = PaintBox1->Width/2;

         y = PaintBox1->Height/2;

         PaintBox1->Canvas->MoveTo(x,y);

         x = random(PaintBox1->Width);

         y = random(Form1->PaintBox1->Height);

         PaintBox1->Canvas->LineTo(x,y);

    } ;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)

{int i,x,y,x2,y2;

   PaintBox1->Canvas->Brush->Color = RGB(0,0,255);

   PaintBox1->Canvas->FillRect(Rect(0,0,PaintBox1->Width,Form1->PaintBox1->Height));

for(i=1;i<5;i++)

 {

   // колір та ширина кайми майбутнього прямокутнику

  PaintBox1->Canvas->Pen->Color = RGB(random(255),random(255),random(255)) ;

  PaintBox1->Canvas->Pen->Width = random(3)+1;

 // колір заливки середини прямокутнику

 PaintBox1->Canvas->Brush->Color = RGB(random(255),random(255),random(255)) ;

 // координаты кутів прямокутника, в який вписується  прямокутник

 x = random(300);

 y = random(100);

 x2= random(150);

 y2 = random(200);

 // вписуємо Прямокутник

 PaintBox1->Canvas->Rectangle (x,y,x2,y2);

}; }

//---------------------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)

{int i,x,y,x2,y2,n,m;

   PaintBox1->Canvas->Brush->Color = RGB(0,0,255);

   PaintBox1->Canvas->FillRect(Rect(0,0,PaintBox1->Width,Form1->PaintBox1->Height));

for(i=1;i<2;i++)

 {

   // колір та ширина кайми майбутнього прямокутнику

  PaintBox1->Canvas->Pen->Color = RGB(random(255),random(255),random(255)) ;

  PaintBox1->Canvas->Pen->Width = (5)+1;

 // колір заливки середини прямокутнику

 PaintBox1->Canvas->Brush->Color = RGB(random(255),random(255),random(255)) ;

 // координаты кутів прямокутника, в який вписується  прямокутник

 PaintBox1->Canvas->MoveTo(n,m);

 x = (300);

 y = (100);

 x2= (150);

 y2 = (200);

 PaintBox1->Canvas->MoveTo(n,m);

 n=(250);

 m=(250);

 // вписуємо Прямокутник

 PaintBox1->Canvas->Rectangle (x,y,x2,y2);

  PaintBox1->Canvas->LineTo(x,y);

 }; }

Робоче вікно:

 

 Лінії

Фігури

Малюнок

Висновок:на лабораторній роботі я навчився користуватись компонентом PaintBox та засвоїв роботу з графікою.

Змн.

Лист

№ докум.

Підпис

Дата

Арк.

1

ЛР 7  5.05010301.532.28.28

 Розроб.

Янковський А.В.

 Перевір.

Оцінка

Властивості та робота з компонентом

PaintBox.

Літ.

Аркушів

4

ДВНЗ «Чернівецький політехнічний коледж»




1. перцептивного опыта влияет на развитие ЦНС человека
2. Реферат- Назначение и производство судебных экспертиз
3. По мере развития компьютерных систем становится все более очевидным что использование этих систем намно
4. реферат дисертації на здобуття наукового ступеня кандидата медичних наук Запоріжжя 19
5. Распад 3ацилглицерина ТАГ в ткани катализирует липаза гормончувствительная
6. Тема- Социальноопасные явления и защита от них Цель занятия- изучить опасности социального характера их
7. темах отсчета Относительно всех инерциальных систем данное тело движется с одинаковым ускорен
8. Собачье сердце М
9. темами відліку і із початками і теоретично існують чотири роди перетворень 1; 2 координат і часу-
10.  Кредитные картыПетя Клюшкин получает 30 тысяч рублей в месяц