Циклы в Image

@IIyIII_Ok · Регистрация: 06.11.2010

Author24 — интернет-сервис помощи студентам

Подскажите:Я рисую произвольную фигуры в Image.Как написать цикл который проходил бы по каждой линии Image и если попадал внутрь фигуры считал количество пикселей на этой линии внутри фигуры?

@Grey · 17.11.2010, 21:09

Код не корректно работает если линия попадает на верхнюю, нижнюю стороны фигуры и наличия вертикальных ...мм... "вырезов" в фигуре.
Цикл по вертикали думаю вставишь.

C++

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Image1->Canvas->Rectangle(10,10,70,50);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int z=0,z1=0;
int y=40;//высота
for (int x=0;x<Image1->Width;x++)//перебор по горизонтали
{
unsigned red = GetRValue(Image1->Canvas->Pixels[x][y]); //красная составляющая
unsigned green = GetGValue(Image1->Canvas->Pixels[x][y]); //зеленая составляющая
unsigned blue = GetBValue(Image1->Canvas->Pixels[x][y]); //синяя составляющая
if (red==0&&green==0&&blue==0)//черный
{
if (z==0) z=x;
else z1=x;
}
}
Edit1->Text=IntToStr(z1-z);//число пикселей
}

@Arnike · 17.11.2010, 23:00

Grey, не могли бы вы подсказать как можно сделать чтобы TImage приняла определенную форму например по картинке что то вроде того как изменяют форму?

@Grey · 18.11.2010, 00:18

Image остаётся прямоугольным. Можно сделать прозрачным цвет такой же какой находится в нижнем левом пикселе Image.

C++

1
2
3

Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->Ellipse(10,10,70,50);
Image1->Transparent=true;//прозрачность

Добавлено через 10 минут
Arnike, или тебе нужно свойством Stretch, сжать Image по размеру картинки?

@Arnike · 18.11.2010, 15:19

Нет,дело в том что как я знаю в 2007м нельзя использовать png формат а кроме как png и gif вроде бы больше никто не поддерживает прозрачность а я имею картинку на которой находится надпись и теперь уже белый фон который я бы хотел сделать не видимым способ по сути не важен лишь бы работало да и кстати TImage находится на Panel не нашел другого способа сделать TImage поверх RzPageControl-а...я знаю есть функции для округления панелей и подобного а можно сделать форму панели например по альфа маске?

Добавлено через 3 минуты
Да и гиф мне не подходит потому что много оттенков и картинка получается угловатая...пропадает сглаживание

@MikeSoft · 18.11.2010, 15:33

Arnike, попробуйте использовать установку регионов для компонентов, имеющих оконный дескриптор.

Например, вот таким кодом (помещённым в событие OnResize) я добился эффекта полукруглых элементов по краям формы, используя обычный компонент TPanel:

C++

HRGN hRgn1 = CreateRoundRectRgn(-120, 0, 235, 120, 145, 145);
HRGN hRgn2 = CreateRoundRectRgn(ResizePanel->Width - 200, 0, ResizePanel->Width + 120, 120, 145, 145);
 
CombineRgn(hRgn2, hRgn1, hRgn2, RGN_OR);
SetWindowRgn(ResizePanel->Handle, hRgn2, TRUE);

@Arnike · 18.11.2010, 15:36

Подобное я читал в книжке у Архангельского но как мне это применить к тексту изображенном на картинке?мне нужно сделать фон полностью прозрачным и оставить только сам текст тут же у Архангельского есть что то вроде того что мне надо но нету самого кода реализации))

@MikeSoft · 18.11.2010, 16:24

Arnike, наверное я немного неправильно вас понял.

Если речь идёт о прозрачности, то можно назначить прозрачность с помощью TransparentColor:

C++

1	Image1->Picture->Bitmap->TransparentColor = clBlack;

Не по теме:

Недавно была подобная тема...

@Arnike · 18.11.2010, 17:03

Хм спасибо поищу ту саму тему
P.S этот код почемуто делает прозрачным всю картинку

Добавлено через 9 минут
цвет само собой изменял на нужный мне

@Grey · 18.11.2010, 19:55

я имею картинку на которой находится надпись и теперь уже белый фон который я бы хотел сделать не видимым

C++

1 2	Image1->Picture->LoadFromFile("1.bmp");//загрузил картинку с белым фоном Image1->Transparent=true;//сделал невидимым фон

@IIyIII_Ok 0 / 0 / 0 Регистрация: 06.11.2010 Сообщений: 40
		1
	Циклы в Image 16.11.2010, 19:52. Показов 1476. Ответов 9 Метки нет (Все метки) Подскажите:Я рисую произвольную фигуры в Image.Как написать цикл который проходил бы по каждой линии Image и если попадал внутрь фигуры считал количество пикселей на этой линии внутри фигуры? 0

@Arnike 23 / 23 / 4 Регистрация: 26.12.2008 Сообщений: 142
	17.11.2010, 23:00	3
	Grey, не могли бы вы подсказать как можно сделать чтобы TImage приняла определенную форму например по картинке что то вроде того как изменяют форму? 0

@Arnike 23 / 23 / 4 Регистрация: 26.12.2008 Сообщений: 142
	18.11.2010, 15:19	5
	Нет,дело в том что как я знаю в 2007м нельзя использовать png формат а кроме как png и gif вроде бы больше никто не поддерживает прозрачность а я имею картинку на которой находится надпись и теперь уже белый фон который я бы хотел сделать не видимым способ по сути не важен лишь бы работало да и кстати TImage находится на Panel не нашел другого способа сделать TImage поверх RzPageControl-а...я знаю есть функции для округления панелей и подобного а можно сделать форму панели например по альфа маске? Добавлено через 3 минуты Да и гиф мне не подходит потому что много оттенков и картинка получается угловатая...пропадает сглаживание 0

@Arnike 23 / 23 / 4 Регистрация: 26.12.2008 Сообщений: 142
	18.11.2010, 15:36	7
	Подобное я читал в книжке у Архангельского но как мне это применить к тексту изображенном на картинке?мне нужно сделать фон полностью прозрачным и оставить только сам текст тут же у Архангельского есть что то вроде того что мне надо но нету самого кода реализации)) 0

@Arnike 23 / 23 / 4 Регистрация: 26.12.2008 Сообщений: 142
	18.11.2010, 17:03	9
	Хм спасибо поищу ту саму тему P.S этот код почемуто делает прозрачным всю картинку Добавлено через 9 минут цвет само собой изменял на нужный мне 0

	18.11.2010, 19:55