Вниз
Скачать: CL | DM;

Посоветуйте   Найти похожие ветки 

 
alec_sey   (2006-02-02 15:04) [0]

Здравствуйте уважаемые, не подскажите можно ли сделать следующим образом: нарисовать
на форме линии к примеру чёрного цвета(ну линии можно), которые соеденены между
собой, как бы разветвлённых трубопровод, есть начальная точка с которой линии
постепенно окрашиваются в другой цвет подобно  растеканию воды. может есть у кого хотя бы
что то подобное, скинте пожалуйста или дайте хотя бы совет.


 
Eraser ©   (2006-02-02 15:42) [1]


> alec_sey   (02.02.06 15:04)


>  или дайте хотя бы совет.

Осуществляй проприсовку методами класса TCanvas (form1.Canvas) в обработчике OnPaint .. или же рисуй на TBitmap а потом в OnPaint переноси на форму.


 
Kolan ©   (2006-02-02 15:46) [2]

Все можно.

Вопросы в чем?
Нужно придумать алгоритм рисования и заполния другим цветом.
Нужно это нарисовать.


 
Гошик Кувшинов   (2006-02-02 17:19) [3]

Как рисовать разноцветыне линии гляди сюда http://www.delphikingdom.com/asp/viewitem.asp?catalogid=94

а про плавные переходы цвета сюда http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1090


 
antonn ©   (2006-02-02 18:45) [4]

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


 
Zeqfreed ©   (2006-02-02 18:49) [5]

antonn ©   (02.02.06 18:45) [4]

> как сделать - не знаю:)

Чего там знать-то? :)
Хотя, все конечно зависит от конкретной задачи. Если линии перпендикулярные и одинаковой толщины, то проблемы вообще никакой нет.


 
antonn ©   (2006-02-02 20:00) [6]

Zeqfreed ©   (02.02.06 18:49) [5]
автор уже, наверное, ждет совета:)


 
alec_sey   (2006-02-03 12:55) [7]

Ну antonn правильно понял, есть нач. точка, линия к примеру идёт от левого
края к правому, а затем под наклоном обратно, если я к примеру буду
делать так
for x:=0 to 1000 do
 for y:=0 to 1000 do
if canvas.picsels[x,y]=clblack then
  canvas.picsels[x,y]:=clred
но так будет окрашиваться всё от левого края к правому, а нужно чтобы всё
это дело ишло по линия которая может возвращаться назад,
Пробовал ещё так линия начиналась с красного пикселя, и я пробовал
переберать соседние пиксели дальше или ближе, выше или ниже и диогональные на 1 пиксель от красного и если проверяемый пиксель чёрного
цвета тогда ему присваеваеться красный цвет и так далее, но что то несовсем получаеться может тогда как это сделать правильно
вы знаете?
Мне желательно сделать эту проверку таймером



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.04 c
1-1137417843
avsam
2006-01-16 16:24
2006.02.19
Delphi 2006 и QuickReport


15-1138618567
Ega23
2006-01-30 13:56
2006.02.19
Народ, а у вас всегда так?


2-1138633347
De
2006-01-30 18:02
2006.02.19
Как в [ ] впихнуть отрицательные значения?


3-1134878044
atruhin
2005-12-18 06:54
2006.02.19
Передается ли блоб на клиента из процедуры


2-1138686124
Mike48
2006-01-31 08:42
2006.02.19
315-й вопрос про ehlib




   Наверх