Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 08.04.2013
Сообщений: 31
1

Рисование - почему не закрашиваются квадраты?

18.05.2014, 17:50. Просмотров 500. Ответов 1
Метки нет (Все метки)

Подскажите пожалуйста почему не закрашиваются квадраты!? Заранее спасибо
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "stdio.h"
#include "stdlib.h"
#include "windows.h"
#include "ctime.h"
#include <process.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x1,y1,x,y,i;
RECT rect={0};
HANDLE han2;
char str[5];
int  colorIndex;
struct Painting
{int radius;};
Painting paint;
 
DWORD WINAPI ris (LPVOID pvParam)
{
Painting p = *( Painting*) pvParam;
int r = p.radius;
for(i=0;i<7;i++)
{ srand(time(NULL));
rect=Application->MainForm->ClientRect;
const W=(rect.right)+(rect.left);
const H=(rect.bottom)+(rect.top);
x=rand()%W;
y=rand()%H;
x1=x-r;
y1=y-r;
Form1->Canvas->Rectangle(x,y,x1,y1);
Sleep(1000);}
return (0); }
 
 
void riskv( int radius, int colorIndex)
{
x = random(x1);
y = random(y1);
if(colorIndex ==0)Form1->Canvas->Brush->Color = clBlack;
if(colorIndex ==1)Form1->Canvas->Brush->Color = clRed;
if(colorIndex ==2)Form1->Canvas->Brush->Color = clGreen;
Form1->Canvas->Rectangle(x,y,x1 - 2*radius,y1 - 2*radius);
Sleep(1000);
i++;
}
 
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{ srand(time(NULL));
paint.radius = StrToInt(Form1->Edit1->Text.c_str());
x = x1-2*paint.radius;
y = y1-2*paint.radius;
i=0;
DWORD dw;
han2 = CreateThread(NULL,0, ris ,(void*)&paint,0,&dw);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();
}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2014, 17:50
Ответы с готовыми решениями:

Не закрашиваются ссылки
Здравствуйте! Подскажите пожалуйста, написал простой код, но ссылки окрашиваются только при...

В прямоугольнике разбитом на квадраты найти все квадраты пересекаемые диагональю
Прямоугольник , стороны которого выражены целыми числами M и N, разбит на квадраты со стороной К....

Ячейки Stringgrid закрашиваются не полностью
Всем доброго времени суток. Прошу подсказать решение проблемы: При закраске ячеек сетки...

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

1
510 / 195 / 26
Регистрация: 07.08.2013
Сообщений: 814
19.05.2014, 11:47 2
naste94, скажите, пожалуйста, какая строчка кода отвечает за покраску квадратов?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2014, 11:47

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

Вывести на экран эти квадраты, выделить другим цветом квадраты с максимальной и минимальной площадью
Помогите с заданием : В файле задано квадраты координатами диагоналей. Вывести на экран эти...

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

Модуль Graph - не закрашиваются края в черный цвет
Нужно края в черный закрасить, вроде все задал, а они все равно белые вот прога: Program pr;...

Рисование картинки OpenGL на TPanel - почему форма не перерисовывается?
Добрый день! Пишу программу, использующую для отображения геометрии объекта OpenGL для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.