Вниз
Скачать: 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.033 c
2-1138452470
KiberNetIK
2006-01-28 15:47
2006.02.19
ProgressBar, и окна


2-1138881592
Starter2006
2006-02-02 14:59
2006.02.19
Delphi + 1C


15-1138183869
Иксик
2006-01-25 13:11
2006.02.19
А по какому принципу тут ветки удаляются?


2-1138351597
СержК
2006-01-27 11:46
2006.02.19
Как грамотно остановить, убить поток


2-1138819097
pathfinder
2006-02-01 21:38
2006.02.19
Как в ADOQuery можно узнать число полученных записей?




   Наверх