Вверх ↑
Этот топик читают: Гость
Ответов: 495
Рейтинг: 163
#1: 2012-10-15 11:32:11 ЛС | профиль | цитата
Всем здравствуйте! Явно кто-то сталкивался с такой задачей - пунктирное выделение.
Вариант моего творения не устраивает (тормозит) . Может кто подскажет в каком направлении двигаться.
Пример->Пунктирное выделение
карма: 4

0
Ответов: 8930
Рейтинг: 823
#2: 2012-10-15 12:03:49 ЛС | профиль | цитата
tig-rrr, мой компьютер отказывается скачивать с файлообменника HiAsm файлы с названием кирилицей
карма: 19

0
Ответов: 495
Рейтинг: 163
#3: 2012-10-15 12:28:29 ЛС | профиль | цитата
Леонид писал(а):
мой компьютер отказывается скачивать с файлообменника HiAsm файлы с названием кирилицей

Punktir
карма: 4

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2012-10-15 13:20:52 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 04:27:44
карма: 0

0
Ответов: 1536
Рейтинг: 176
#5: 2012-10-15 13:33:36 ЛС | профиль | цитата
tig-rrr, поставь между точками onMousMove (PaintBox) и docase (Case) вот это:
Add(Timer,16170449,819,406)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,987962:doData,[])
}
Add(Memory,6240362,777,406)
{
link(onData,16170449:doTimer,[])
}
Add(DoData,987962,861,406)
{
link(Data,6240362:Value,[(867,394)(825,394)(825,450)(783,450)])
}
Это разгрузит процесс.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

1
Голосовали:tig-rrr
Гость
Ответов: 17029
Рейтинг: 0
#6: 2012-10-15 14:29:26 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 04:27:44
карма: 0

0
Ответов: 8930
Рейтинг: 823
#7: 2012-10-15 15:00:03 ЛС | профиль | цитата
tig-rrr,
Справка писал(а):
Pen.Style – стиль линии. Принимает следующие значения.
psSolid – сплошная линия
psDash – штриховая линия
psDot – пунктирная линия
psDashDot – штрих-пунктирная линия
psDashDotDot – тире-две точки

(стр.36 *.pas -- pen := CreatePen(PS_SOLID, Round((fScale.x + fScale.y) * ReadIn..... замените на PS_DOT
А если упросить nesco, он может ввести свойство на вид линии
psdot.jpg
code_29308.txt
карма: 19

1
файлы: 2psdot.jpg [42.6KB] [708], code_29308.txt [3KB] [162]
Голосовали:tig-rrr
Ответов: 1376
Рейтинг: 197
#8: 2012-10-15 15:45:28 ЛС | профиль | цитата
tig-rrr, вот ещё вариант (с сервисом: перетаскивание и растягивание), но не пунктирный
code_29309.txt
ещё вариант

Add(MainForm,10850516,196,175)
{
Width=151
Height=128
Ctl3D=0
WinStyle=2
Caption=""
BorderStyle=0
DragForm=0
Position=1
Point(Handle)
}
Add(Image,7558073,336,217)
{
Width=131
Height=128
Align=5
ViewStyle=5
Point(onDblClick)
Point(onMouseDown)
link(onDblClick,10850516:doClose,[(378,230)(378,168)(184,168)(184,202)])
link(onMouseDown,11685691:doMove,[(378,237)(378,257)(184,257)(184,223)])
}
Add(ChildForm,11641923,287,217)
{
link(onEvent1,7558073:doLoad,[])
}
BEGIN_SDK
Add(EditMulti,4056548,3,3)
{
EventCount=1
WorkCount=1
Width=118
Height=116
link(doWork1,980558:doColor,[(32,9)(32,55)])
}
Add(MainForm,980558,42,21)
{
Left=35
Top=105
Width=128
Height=128
Color=0
Ctl3D=0
AlphaBlendValue=100
BorderStyle=7
DragForm=0
Point(Left)
Point(Top)
Point(Width)
Point(Height)
Point(onResize)
Point(onMove)
Point(doColor)
link(onResize,15427047:doWork2,[])
link(onMove,15427047:doWork3,[(88,55)])
}
Add(Img_Copy,12929925,35,77)
{
DrawSource=1
Point(Width)
Point(Height)
link(onCopy,4056548:onEvent1,[(98,83)(98,9)])
link(Source,8818213:Text,[(41,71)(27,71)])
link(X,980558:Left,[])
link(Y,980558:Top,[])
link(Width,980558:Width,[])
link(Height,980558:Height,[])
}
Add(VisualStrings,8818213,21,56)
{
Width=11
Height=10
}
Add(HubEx,15427047,84,42)
{
Angle=3
link(onEvent,12929925:doCopy,[(88,16)(17,16)(17,83)])
}
END_SDK
Add(MoveWindow,11685691,196,217)
{
link(Handle,10850516:Handle,[])
}
Add(ScrollBar,6315773,245,217)
{
Left=131
Width=20
Height=128
Align=3
Max=16777215
Kind=1
link(onPosition,11641923:doWork1,[])
}
карма: 1

1
файлы: 1code_29309.txt [1.8KB] [242]
Голосовали:tig-rrr
Ответов: 16884
Рейтинг: 1239
#9: 2012-10-15 16:34:16 ЛС | профиль | цитата
Леонид писал(а):
мой компьютер отказывается скачивать с файлообменника HiAsm файлы с названием кирилицей
Есть бог на свете.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26164
Рейтинг: 2127
#10: 2012-10-15 16:47:14 ЛС | профиль | цитата
Леонид писал(а):
А если упросить nesco, он может ввести свойство на вид линии

Уже ведь писал про это, что не стал вводить стиль линии в компоненты, потому, что работает только с толщиной линии в 1 пиксель
карма: 22

0
Ответов: 8930
Рейтинг: 823
#11: 2012-10-15 17:06:38 ЛС | профиль | цитата
nesco, извиняюсь, наверное пропустил
Tad писал(а):
Есть бог на свете
Таки да, но иногда и он промахивается
карма: 19

0
Ответов: 495
Рейтинг: 163
#12: 2012-10-15 17:58:17 ЛС | профиль | цитата
ser_davkin, минимальные изминения , вполне устраивает ,спасибо .
217.24.189.52, к сожалению в моем случае не показываются пунктирные линии , система XP( честно не разобрался ) .
37.45.127.235, элементы от sla8a отличны!, но они к сожалению не являются ПОКА стандартными ( поэтому их не рассматривал ).
Леонид, спасибо, но это изменненный вариант стандартного (для себя на заметку взял).
foksov, спасибо за оригинальные идеи!!!


карма: 4

0
Гость
Ответов: 17029
Рейтинг: 0
#13: 2012-10-15 18:44:34 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 04:27:44
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#14: 2012-10-15 19:04:37 ЛС | профиль | цитата
Леонид писал(а):
Таки да, но иногда и он промахивается
на этот раз - точно в цель.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Гость
Ответов: 17029
Рейтинг: 0
#15: 2012-10-15 21:07:32 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 04:27:45
карма: 0

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