VPF::Рисуем треугольник - Форум программистов

Alecia

Дата 5.6.2011, 00:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 6.5.2011

Репутация: нет
Всего: нет

Всем привет!
Есть такая задачка:

написать программу, которая рисует треугольник по трем кликам мыши в объекте Image. Контур треугольника синего цвета, толщиной 2 пт, заливка – голубой цвет. Заливку выполнять нажатием правой клавиши мыши, методом FloodFill.

Вот мой код:

Код


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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int count=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Form2->ShowModal();
Image1->Canvas->Pen->Color=clBlue;
Image1->Canvas->Pen->Width=2;
Image1->Canvas->Brush->Color=clSkyBlue;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
                  int X, int Y)
{
TPoint points[3];
while (count<3)
{
points[count] = Point(X,Y);
count++;}
Image1->Canvas->Polygon(points, 3);

}

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

Запускаю и ничего
Подскажите плиз в чем дело?

Это сообщение отредактировал(а) Alecia - 5.6.2011, 00:40

SVN74

Дата 5.6.2011, 21:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 740
Регистрация: 5.5.2008
Где: Комсомольск на Дн епре

Репутация: 11
Всего: 18

Немного подправил, правда на правую кнопку не делал, - просто закрашивает треугольник автоматически после выставления трех точек...
Также добавил прорисовку линий по ближайшим двум точкам (для удобства).

Код


#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int count=0;
TPoint points[3];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Image1->Canvas->Pen->Color=clBlue;
    Image1->Canvas->Pen->Width=2;
    Image1->Canvas->Brush->Color=clSkyBlue;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        points[count] = Point(X,Y);
        if(count == 0) Image1->Canvas->MoveTo(X,Y);
        Image1->Canvas->LineTo(X,Y);
        count++;
        if(count > 2)
        {
            count = 0;
            Image1->Canvas->Polygon(points, 2);
        }

}
//---------------------------------------------------------------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »