Вверх ↑
Этот топик читают: Гость
Ответов: 1536
Рейтинг: 176
#1: 2013-02-07 23:17:37 ЛС | профиль | цитата
Опять вопрос с шаблоном. В примере визуализируется стрелка часов слишком просто. А, мне нужно добавить к ней это > чтобы получилось так -> из того же Img_Line. Покажите в примере.
Add(MainForm,2953706,224,217)
{
Width=385
Height=234
link(onCreate,8945661:doCreate,[])
}
Add(Img_Line,50094,336,273)
{
Point2=4063294
Size=5
Point(Pattern)
Point(Point1)
Point(Point2)
link(onDraw,10452502:doRefresh,[(381,279)(381,320)(282,320)(282,174)])
link(Bitmap,15221006:Var3,[(342,264)])
link(Point1,8094521:Point,[])
}
Add(PointXY,8094521,343,224)
{
link(X,8726150:Result,[])
link(Y,11972114:Result,[(356,202)(391,202)])
}
Add(Img_Bmp,1684670,294,273)
{
link(onDraw,50094:doDraw,[])
link(Bitmap,15221006:Var2,[])
link(SourceBitmap,8945661:Bitmap,[])
}
Add(GetDataEx,15221006,294,259)
{
link(Data,10452502:Bitmap,[])
}
Add(PaintBox,10452502,294,168)
{
Width=124
Height=124
Color=16777215
Point(onMouseDown)
}
Add(TrackBar,111702,161,140)
{
Left=5
Top=145
Width=355
Max=60
link(onPosition,7901522:doEvent1,[])
}
Add(Hub,7901522,203,140)
{
OutCount=3
link(onEvent1,8726150:doCalc,[])
link(onEvent2,11972114:doCalc,[])
link(onEvent3,10594624:doData,[])
}
Add(DoData,10594624,231,154)
{
link(onEventData,1684670:doDraw,[(273,160)(273,279)])
}
Add(MathParse,11972114,385,147)
{
MathStr="sin(((%1-15)*6)/180*pi)*55+62"
}
Add(MathParse,8726150,343,140)
{
MathStr="cos(((%1-15)*6)/180*pi)*55+62"
}
Add(Bitmap,8945661,301,217)
{
HWidth=124
HHeight=124
FillColor=-16777211
Point(doCreate)
}

карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2013-02-07 23:32:04 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:00:50
карма: 0

0
Ответов: 1536
Рейтинг: 176
#3: 2013-02-07 23:36:47 ЛС | профиль | цитата
mm-158-174-84-93.dynamic. писал(а):
примеры: WindowsExampleDrawDemoOct.sha
о ёшкин пельмень. Я туда уже забыл когда заглядывал. Спасибо.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2013-02-07 23:41:59 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 08:00:50
карма: 0

0
Ответов: 1536
Рейтинг: 176
#5: 2013-02-08 10:38:55 ЛС | профиль | цитата
mm-158-174-84-93.dynamic. писал(а):
Странно, у вас в коде все есть
Этот пример создан не мной.

Возник новый вопрос. Мне нужно, чтобы всё та же стрелка НЕ была привязана, как на аналоговом циферблате. Т.е. я ввожу любые координаты линии (основы стрелки), при этом кончик стрелки, НЕзависимо от длины основной линии, подстраивался к направлению.
Стрелки.jpg
Шаблон:
Add(MainForm,8079491,266,189)
{
Width=690
Height=412
Position=1
link(onCreate,8945661:doCreate,[])
}
Add(Img_Line,50094,350,259)
{
Point2=4063294
Size=5
Point(Pattern)
Point(Point1)
Point(Point2)
link(onDraw,6535726:doRedraw,[])
link(Bitmap,15221006:Var3,[(356,243)])
link(Point1,8094521:Point,[])
link(Point2,9122573:Point,[(370,243)(412,243)])
}
Add(PointXY,8094521,357,196)
{
link(X,10220111:Position,[(363,114)(321,114)])
link(Y,9053656:Position,[])
}
Add(Img_Bmp,1684670,308,259)
{
link(onDraw,50094:doDraw,[])
link(Bitmap,15221006:Var2,[])
link(SourceBitmap,8945661:Bitmap,[])
}
Add(GetDataEx,15221006,308,238)
{
link(Data,10452502:Bitmap,[])
}
Add(PaintBox,10452502,308,140)
{
Left=10
Top=40
Width=664
Height=329
Color=16777215
Name="00"
Point(onMouseDown)
}
Add(DoData,10594624,259,259)
{
link(onEventData,1684670:doDraw,[])
}
Add(Bitmap,8945661,315,189)
{
HWidth=664
HHeight=329
FillColor=-16777211
Point(doCreate)
}
Add(TrackBar,8310828,406,49)
{
Left=360
Top=5
Width=140
Max=664
link(onPosition,13867769:doWork2,[])
}
Add(PointXY,9122573,406,196)
{
link(X,8310828:Position,[])
link(Y,6058104:Position,[(419,135)(454,135)])
}
Add(TrackBar,6058104,448,63)
{
Left=505
Top=5
Width=150
Max=329
link(onPosition,8893969:doWork2,[])
}
Add(TrackBar,10220111,315,21)
{
Left=5
Top=5
Width=140
Max=664
link(onPosition,12578453:doWork1,[(506,27)])
}
Add(TrackBar,9053656,364,35)
{
Left=150
Top=5
Width=150
Max=329
link(onPosition,12578453:doWork2,[])
}
Add(RedrawManager,6535726,399,259)
{
ControlManager="00"
}
Add(HubEx,8893969,502,63)
{
Angle=1
link(onEvent,10594624:doData,[(506,89)(247,89)(247,265)])
}
Add(HubEx,13867769,502,49)
{
Angle=1
link(onEvent,8893969:doWork1,[])
}
Add(HubEx,12578453,502,35)
{
Angle=1
link(onEvent,13867769:doWork1,[])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#6: 2013-02-08 11:22:26 ЛС | профиль | цитата
ser_davkin, зациклился ? Ну и рисуй ТРИ линии, у которых x1,y1 общие . Рисуешь "основную", а две других под углом +30° и -30°.
В чем проблема ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1536
Рейтинг: 176
#7: 2013-02-08 11:52:52 ЛС | профиль | цитата
Tad, это я и сам представляю. Не понимаю, как реализовать на конструкторе.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 8930
Рейтинг: 823
#8: 2013-02-08 14:12:27 ЛС | профиль | цитата
ser_davkin, коллега Tad всегда советует сначала на бумажке изобразить -- и всё станет ясным
code_30285.txt
карма: 19

3
файлы: 1code_30285.txt [5.9KB] [256]
Голосовали:ser_davkin, Tad, tig-rrr
Ответов: 16884
Рейтинг: 1239
#9: 2013-02-08 14:35:49 ЛС | профиль | цитата
Леонид, я не только советую, я и сам - сначала бумага.
А на месте ser_davkin-а уже давно бы сделал или IC или компонент для отрисовки стрелок по образу и подобию Img_Line.
Потому и спрашивал:
Tad писал(а):
В чем проблема ?

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1536
Рейтинг: 176
#10: 2013-02-09 10:12:07 ЛС | профиль | цитата
Браво! Леонид
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 8930
Рейтинг: 823
#11: 2013-02-09 13:01:58 ЛС | профиль | цитата
ser_davkin, не мог не воспользоваться clock2.rar Ой, часики!
карма: 19

2
файлы: 1clock2.rar [19.9KB] [143]
Голосовали:Tad, ser_davkin
Ответов: 16884
Рейтинг: 1239
#12: 2013-02-09 13:59:18 ЛС | профиль | цитата
Леонид, ещё бы учесть разрешение экрана.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8930
Рейтинг: 823
#13: 2013-02-09 17:40:09 ЛС | профиль | цитата
Tad, нет уж, увольте Это я для ser_davkin формулу поворота осей координат показал, может запомнит
карма: 19

1
Голосовали:ser_davkin
13
Сообщение
...
Прикрепленные файлы
(файлы не залиты)