Вверх ↑
Этот топик читают: Гость
Ответов: 9
Рейтинг: 2
#1: 2010-07-20 14:54:08 ЛС | профиль | цитата
Поискал на форуме - не нашел как осуществить сабж.
Попробовал сделать сам.
Привожу получившийся код (перебрасывать можно строки из правой таблицы в левую).
Может кому-то пригодится.
Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,119,224)
{
Left=300
Top=300
}
Add(StringTableMT,9534166,427,238)
{
Left=200
Top=20
Width=190
Height=210
Columns=#9:колонка 1|9:колонка 2|
IconsCheck=[]
MiscIcons=[]
Icons=[]
StringsStrLst=#15:привет;как дела|16:нормально;хорошо|
AutoTblStrLst=0
Point(onMouseDown)
Point(onMouseUp)
Point(onMouseMove)
Point(Index)
link(onMouseDown,3892061:doValue,[])
link(onMouseUp,1877318:doWork2,[])
}
Add(StringTableMT,9108934,182,252)
{
Top=20
Width=190
Height=210
Columns=#9:Колонка 1|9:Колонка 2|
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(onMouseDown)
Point(onMouseUp)
Point(onMouseMove)
link(onMouseUp,5330706:doEvent1,[])
}
Add(Memory,3892061,532,245)
{
Default=Integer(5)
}
Add(Memory,14579211,294,266)
{
Default=Integer(5)
}
Add(Hub,5330706,231,266)
{
OutCount=4
link(onEvent1,3027771:doWork2,[])
link(onEvent2,5783490:doCompare,[(269,279)(269,377)])
link(onEvent3,1877318:doWork3,[(487,286)])
link(onEvent4,3027771:doWork3,[(277,293)])
}
Add(If_else,5783490,294,371)
{
link(onTrue,149880:doEvent1,[])
link(Op1,14579211:Value,[])
link(Op2,3892061:Value,[(307,348)(538,348)])
}
Add(HubEx,1877318,483,252)
{
link(onEvent,3892061:doClear,[])
}
Add(HubEx,3027771,273,266)
{
link(onEvent,14579211:doValue,[])
}
Add(DoData,4941050,378,371)
{
link(onEventData,9108934:doAdd,[(422,377)(422,317)(170,317)(170,258)])
link(Data,9534166:Select,[(384,331)(440,331)])
}
Add(Hub,149880,336,371)
{
link(onEvent1,4941050:doData,[])
link(onEvent2,16673475:doData,[(367,384)(367,412)])
}
Add(DoData,16673475,420,406)
{
link(onEventData,9534166:doDelete,[(464,412)(464,342)(415,342)(415,258)])
link(Data,9534166:Index,[(426,361)(447,361)])
}
------------ Дoбавленo в 10.06:
Не учел OnSelect - надо с него тоже отправлять связь на очистку Memory
------------ Дoбавленo в 14.54:
Хм.
Обработку OnSelect добавляю, но когда повторно кликаешь по выделенному элементу, то onMouseDown фиксируется, а onMouseUp - нет. И поэтому получается, что как-будто я нажал мышку и держу.
Кто-нибудь подскажет как в таком случае быть? Или мне этот вопрос перенести в Help?
карма: 0

0
файлы: 1code_19609.txt [1.7KB] [90]
Ответов: 2438
Рейтинг: 693
#2: 2010-07-20 17:37:00 ЛС | профиль | цитата
iLq, вот небольшой набросок: code_19612.txt
карма: 11

0
файлы: 1code_19612.txt [4.7KB] [222]
Ответов: 9
Рейтинг: 2
#3: 2010-07-21 11:35:50 ЛС | профиль | цитата
Идею отображения переносимой строки понял.
Перенос осуществляется только второй строки и если перед этим ничего нажато не было.
Буду разбираться.
карма: 0

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