Искажение цвета в PaintBox

Форумы Ошибки в компонентахИскажение цвета в PaintBox ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 899

Рейтинг: 43

#1: 2007-11-29 19:49:06 ЛС | профиль | цитата

Черные линии краснеют(см. код)

Add(MainForm,2260457,161,231)
{
 Left=20
 Top=105
 Width=300
 Color=8421376
 Caption=":("
 BorderStyle=3
 link(onCreate,952493:doFor,[])
}
Add(GetDataEx,5981649,266,189)
{
 Angle=3
 link(Data,952493:Position,[(257,198)(257,312)(223,312)])
}
Add(PaintBox,9622693,266,147)
{
 Left=10
 Top=10
 Width=309
 Height=309
 Align=5
 Point(Width)
 Point(Height)
}
Add(For,952493,217,266)
{
 End=300
 Step=5
 onBreakEnable=0
 link(onEvent,15461523:doDraw,[])
}
Add(Img_Line,15461523,266,266)
{
 link(Bitmap,9622693:Bitmap,[])
 link(Point1,7052863:Point,[])
 link(Point2,13474959:Point,[(286,254)(314,254)])
}
Add(PointXY,13474959,308,210)
{
 Y=308
 link(X,5981649:Var3,[(314,198)])
}
Add(PointXY,7052863,273,210)
{
 link(X,5981649:Var2,[])
}

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 9906

Рейтинг: 351

#2: 2007-11-29 19:54:26 ЛС | профиль | цитата

Либо так


#sha
Add(MainForm,2260457,210,203)
{
 Left=20
 Top=105
 Width=300
 Color=8421376
 Caption=":("
 BorderStyle=3
 link(onCreate,952493:doFor,[])
}
Add(PointXY,13474959,329,189)
{
 Y=308
 link(X,952493:Position,[(335,177)(303,177)(303,282)(272,282)])
}
Add(PaintBox,9622693,315,133)
{
 Left=10
 Top=10
 Width=309
 Height=309
 Align=5
 Point(Width)
 Point(Height)
}
Add(For,952493,266,238)
{
 End=300
 Step=5
 onBreakEnable=0
 link(onEvent,15461523:doDraw,[])
}
Add(Img_Line,15461523,315,238)
{
 Point(Color)
 link(Bitmap,9622693:Bitmap,[])
 link(Point2,13474959:Point,[])
}

Либо так


#sha
Add(MainForm,2260457,210,203)
{
 Left=20
 Top=105
 Width=300
 Color=8421376
 Caption=":("
 BorderStyle=3
 link(onCreate,952493:doFor,[])
}
Add(GetDataEx,5981649,315,161)
{
 Angle=3
 link(Data,952493:Position,[(306,170)(306,284)(272,284)])
}
Add(PaintBox,9622693,315,91)
{
 Left=10
 Top=10
 Width=309
 Height=309
 Align=5
 Point(Width)
 Point(Height)
}
Add(For,952493,266,238)
{
 End=300
 Step=5
 onBreakEnable=0
 link(onEvent,15461523:doDraw,[])
}
Add(Img_Line,15461523,315,238)
{
 Point(Color)
 link(Bitmap,9622693:Bitmap,[])
 link(Point1,7052863:Point,[])
 link(Point2,13474959:Point,[(335,226)(363,226)])
 link(Color,12435189:Value,[])
}
Add(PointXY,13474959,357,182)
{
 Y=308
 link(X,5981649:Var3,[(363,170)])
}
Add(PointXY,7052863,322,182)
{
 link(X,5981649:Var2,[])
}
Add(Memory,12435189,336,133)
{
}

------------ Дoбавленo:

Либо как у коллеги HuKTO

карма: 9

Ответов: 184

Рейтинг: 4

#3: 2007-11-29 19:56:30 ЛС | профиль | цитата

А так?


#sha
Add(MainForm,10224900,91,196)
{
 Left=20
 Top=105
 Width=300
 Color=8421376
 Caption=":("
 BorderStyle=3
 link(onCreate,6212362:doFor,[])
}
Add(PointXY,15100460,287,175)
{
 link(X,209782:Var2,[])
}
Add(PointXY,16495902,322,175)
{
 Y=308
 link(X,209782:Var3,[(328,163)])
}
Add(Img_Line,1179663,280,231)
{
 Point(Color)
 link(Bitmap,9772470:Bitmap,[])
 link(Point1,15100460:Point,[])
 link(Point2,16495902:Point,[(300,219)(328,219)])
}
Add(For,6212362,147,231)
{
 End=300
 Step=5
 onBreakEnable=0
 link(onEvent,15720007:doData,[])
}
Add(PaintBox,9772470,280,112)
{
 Left=10
 Top=10
 Width=309
 Height=309
 Align=5
 Point(Width)
 Point(Height)
}
Add(GetDataEx,209782,280,154)
{
 Angle=3
 link(Data,6212362:Position,[(271,163)(271,277)(153,277)])
}
Add(DoData,15720007,210,231)
{
 link(onEventData,1179663:doDraw,[])
}

------------ Дoбавленo:

Опоздал на пару секунд...

карма: 1

Статус строка какая-то, сейчас посмотрім: %time%

Ответов: 899

Рейтинг: 43

#4: 2007-11-29 21:17:41 ЛС | профиль | цитата

Galkov писал(а):

Либо так

так вопрос не стоит, как обойти проблему, я просто указал на ошибку

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 9906

Рейтинг: 351

#5: 2007-11-29 21:22:24 ЛС | профиль | цитата

unalex писал(а):

я просто указал на ошибку

Это не ошибка, коллега, а Ваше непонимание функционирования элемента

Настаиваю, что вопрос стоит именно так

карма: 9

Администрация

Ответов: 15295

Рейтинг: 1519

#6: 2007-11-29 21:25:45 ЛС | профиль | цитата

не ошибка - истинно

карма: 27

https://hiasm.com

Разработчик

Ответов: 26163

Рейтинг: 2127

#7: 2007-11-29 21:42:25 ЛС | профиль | цитата

Galkov писал(а):

непонимание функционирования элемента

Совершенно верно. В данном случае цепочное чтение данных (MT-поток). Два есть, одного нет (цвета), откуда берем -- из потока, а в потоке что -- данные с For'a, вот и вся проблема.

карма: 22

Ответов: 2060

Рейтинг: 28

#8: 2007-11-29 21:43:26 ЛС | профиль | цитата

unalex, если не понятно, то объясняю. Тут цвет надо указать явным образом, в пративном случае цвет берёться из потока, т. е. с FOR.

карма: 1

Ответов: 899

Рейтинг: 43

#9: 2007-11-29 23:03:50 ЛС | профиль | цитата

Эдик писал(а):

Тут цвет надо указать явным образом, в пративном случае цвет берёться из потока

ну куда уж понятнее

Вопрос
а почему если я указываю в свойствах цвет отличный от черного - таких фокусов не происходит

[size=-2]------ Добавлено в 23:03
вот

code_2030.txt

карма: 0

Время верстки: %cr_time% Текущее время: %time%

файлы: 1

code_2030.txt [1001B] [188]

Администрация

Ответов: 15295

Рейтинг: 1519

#10: 2007-11-29 23:04:03 ЛС | профиль | цитата

черный цвет это 0, а 0 в механизме доступа к данным стандартного пакета говорит о незаданности св-ва.

карма: 27

https://hiasm.com

Ответов: 899

Рейтинг: 43

#11: 2007-11-29 23:11:54 ЛС | профиль | цитата

Dilma писал(а):

а 0 в механизме доступа к данным стандартного пакета говорит о незаданности св-ва.

аааа, вот теперь понятно

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Разработчик

Ответов: 26163

Рейтинг: 2127

#12: 2007-11-29 23:17:29 ЛС | профиль | цитата

unalex, помнишь, я сказал про MT-поток, вот схема, которая показывает, как из потока загружать данный в компонент при помощи MT, всего по одному каналу и без верхних точек


#sha
Add(MainForm,2260457,210,315)
{
 Left=20
 Top=105
 Width=300
 Color=8421376
 Caption=":("
 BorderStyle=3
 link(onCreate,952493:doFor,[])
}
Add(GetDataEx,5981649,308,280)
{
 Angle=3
 link(Data,952493:Position,[(294,289)(294,394)(272,394)])
}
Add(PaintBox,9622693,448,301)
{
 Left=10
 Top=10
 Width=309
 Height=309
 Align=5
 Point(Width)
 Point(Height)
}
Add(For,952493,266,350)
{
 End=300
 Step=5
 onBreakEnable=0
 link(onEvent,11196687:doAdd,[])
}
Add(Img_Line,15461523,448,350)
{
 link(Bitmap,9622693:Bitmap,[])
}
Add(PointXY,13474959,357,301)
{
 Y=308
 link(X,5981649:Var3,[(363,289)])
}
Add(PointXY,7052863,315,301)
{
 link(X,5981649:Var2,[])
}
Add(MT_Add,11196687,315,350)
{
 InputMT=2
 link(onAdd,13361430:doAdd,[])
 link(Data,7052863:Point,[])
}
Add(MT_Add,13361430,357,350)
{
 link(onAdd,1233116:doAdd,[])
 link(Data,13474959:Point,[])
}
Add(MT_Add,1233116,399,350)
{
 link(onAdd,15461523:doDraw,[])
 link(Data,11466222:Value,[])
}
Add(Memory,11466222,399,301)
{
 Default=Integer(255)
}

В компоненте Memory можешь поставить 0 и цвет будет черным. Можно вообще выкинуть эту спарку Memory+MT_Add, если нужен только черный цвет

Я привел эту схему в только в качестве познавательной по MT-потокам.

В завершение приведу еще одну интересную схему


#sha
Add(MainForm,2260457,231,315)
{
 Left=20
 Top=105
 Width=300
 Color=8421376
 Caption=":("
 BorderStyle=3
 link(onCreate,952493:doFor,[])
}
Add(GetDataEx,5981649,378,280)
{
 Angle=3
 link(Data,952493:Position,[(340,289)(340,394)(293,394)])
}
Add(PaintBox,9622693,343,301)
{
 Width=294
 Height=268
 Align=5
 Point(Width)
 Point(Height)
}
Add(For,952493,287,350)
{
 End=300
 Step=5
 onBreakEnable=0
 link(onEvent,13802182:doAdd,[])
}
Add(Img_Line,15461523,518,350)
{
}
Add(PointXY,13474959,427,301)
{
 Y=308
 link(X,5981649:Var3,[(433,289)])
}
Add(PointXY,7052863,385,301)
{
 link(X,5981649:Var2,[])
}
Add(MT_Add,11196687,385,350)
{
 link(onAdd,13361430:doAdd,[])
 link(Data,7052863:Point,[])
}
Add(MT_Add,13361430,427,350)
{
 link(onAdd,1233116:doAdd,[])
 link(Data,13474959:Point,[])
}
Add(MT_Add,1233116,469,350)
{
 link(onAdd,15461523:doDraw,[])
 link(Data,11466222:Value,[])
}
Add(Memory,11466222,469,301)
{
 Default=Integer(255)
}
Add(MT_Add,13802182,343,350)
{
 InputMT=2
 link(onAdd,11196687:doAdd,[])
 link(Data,9622693:Bitmap,[])
}

В этой схеме получается вообще виртуальная (безлинковая) связь компонента Line с PaintBox'ом.

карма: 22

Форумы Ошибки в компонентахИскажение цвета в PaintBox ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)