Вверх ↑
Этот топик читают: Гость
Ответов: 16461
Рейтинг: 1211
#1: 2012-08-24 16:16:09 ЛС | профиль | цитата
Выбранная буква должна сменить цвет.
При смене буквы, предыдущая должна вернуть себе первоначальный цвет.
code_28860.txt
Чёт меня заклинило.
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_28860.txt [1.8KB] [183]
vip
#1.1контекстная реклама от партнеров
Ответов: 1765
Рейтинг: 158
#2: 2012-08-24 16:38:57 ЛС | профиль | цитата
Что-то такое надумал, но оно почему-то работает только на дабл-клик...
карма: 5

1
файлы: 1code_28861.txt [3.5KB] [148]
Голосовали:Tad
Ответов: 1173
Рейтинг: 49
#3: 2012-08-24 16:44:40 ЛС | профиль | цитата
code_28862.txt
Извините за корявость схемы, делал на скорую руку
карма: 0

1
файлы: 1code_28862.txt [3.9KB] [186]
Голосовали:Tad
Ответов: 750
Рейтинг: 111
#4: 2012-08-24 16:47:12 ЛС | профиль | цитата
Tad писал(а):
При смене буквы, предыдущая должна вернуть себе первоначальный цвет.

Без красоты, но идея понятна
code_28863.txt
карма: 1

2
файлы: 1code_28863.txt [2.8KB] [213]
Голосовали:Ex_, Tad
Ответов: 1729
Рейтинг: 66
#5: 2012-08-24 16:49:41 ЛС | профиль | цитата
Add(MainForm,1071012,140,168)
{
Width=436
Height=565
Color=0
Caption="ТЕЛЕФОННЫЙ СПРАВОЧНИК"
BorderStyle=1
Position=1
Point(onClose)
link(onCreate,12420397:doFor,[])
}
Add(ChildPanelEx,63122,266,182)
{
Mode=1
link(onClick,15480179:doCompare,[(315,188)(315,279)(254,279)(254,244)])
}
BEGIN_SDK
Add(EditMultiEx,15987547,21,21)
{
WorkCount=#5:##add|8:##select|8:unselect|
EventCount=#7:onClick|
VarCount=#7:##index|12:##eventIndex|
Width=314
Height=144
VOffset=49
Point(##add)
Point(##select)
Point(##index)
Point(##eventIndex)
link(##add,524552:doEvent1,[])
link(##select,11068011:doFont,[(56,83)(56,90)])
link(unselect,2752956:doFont,[(49,90)(49,125)])
}
Add(Panel,10207691,203,28)
{
Left=5
Top=5
Width=30
Height=30
Layout="parent.AZB"
}
Add(Memory,14104506,203,112)
{
}
Add(Hub,524552,154,70)
{
link(onEvent1,16064671:doCaption,[])
link(onEvent2,14104506:doValue,[(186,83)(186,118)])
}
Add(DoData,6242721,280,70)
{
link(onEventData,15987547:onClick,[])
link(Data,14104506:Value,[(286,58)(248,58)(248,156)(209,156)])
}
Add(BitBtn,16064671,203,70)
{
Left=2
Top=2
Width=26
Height=26
Align=5
Font=[Arial,11,1,16711680,204]
Caption=""
Flat=1
Point(doFont)
link(onClick,6242721:doData,[])
}
Add(Font,11068011,63,84)
{
Font=[Arial,11,1,255,1]
link(onFont,8822118:doWork2,[])
}
Add(Font,2752956,98,119)
{
Font=[Arial,11,1,16711680,1]
link(onFont,8822118:doWork3,[(140,125)])
}
Add(HubEx,8822118,136,84)
{
Angle=3
link(onEvent,16064671:doFont,[(140,57)(194,57)(194,83)])
}
END_SDK
Add(GridLayout,9612136,140,203)
{
Name="AZB"
Space=5
Padding=10
Rows=15
Cols=2
}
Add(InlineCode,12420397,203,182)
{
WorkPoints=#5:doFor|
EventPoints=#5:onFor|5:onEnd|
Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|9: onFor,|19: onEnd:THI_Event;|48: procedure doFor(var _Data:TData; Index:Word);|0:|5: end;|53:const al: string=('АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЭЮЯ'); |0:|14:implementation|28:procedure THiAsmClass.doFor;|15: var i:integer;|5:begin|45: for i:=1 to 30 do _hi_onEvent(onFor,al[i]);|23: _hi_onEvent(onEnd,0);|4:end;|4:end.|
link(onFor,63122:##add,[])
link(onEnd,13709505:doWork2,[])
}
Add(If_else,15480179,266,238)
{
link(onFalse,5120808:doEvent1,[])
link(Op1,63122:##index,[])
link(Op2,3582101:Var2,[])
}
Add(Hub,5120808,329,245)
{
link(onEvent1,63122:unselect,[(363,251)(363,162)(254,162)(254,202)])
link(onEvent2,11465498:doData,[])
}
Add(DoData,11465498,378,252)
{
link(onEventData,13709505:doWork3,[(421,258)(421,157)(249,157)])
link(Data,3582101:Var3,[(384,229)])
}
Add(GetDataEx,3582101,273,224)
{
link(Data,63122:##eventIndex,[])
}
Add(HubEx,13709505,245,189)
{
link(onEvent,63122:##select,[])
}



Маленький фикс
карма: 1

2
Голосовали:Tad, ser_davkin
Ответов: 1043
Рейтинг: 33
#6: 2012-08-24 16:57:04 ЛС | профиль | цитата
свое намалевал ради прикола
code_28865.txt
карма: 0

1
файлы: 1code_28865.txt [3.4KB] [179]
Голосовали:Tad
Гость
Ответов: 17029
Рейтинг: 0
#7: 2012-08-24 17:22:19 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2017-06-21 01:52:40
карма: 0

0
Ответов: 1841
Рейтинг: 362
#8: 2012-08-24 17:25:04 ЛС | профиль | цитата
code_28867.txt
p.s. Ура, я дома!
карма: 1
2
файлы: 1code_28867.txt [2.3KB] [179]
Голосовали:Ex_, Tad
Ответов: 1173
Рейтинг: 49
#9: 2012-08-24 17:34:41 ЛС | профиль | цитата
CriDos, perfect
карма: 0

0
Ответов: 1043
Рейтинг: 33
#10: 2012-08-24 17:38:58 ЛС | профиль | цитата
CriDos, отлично! и мне помог
карма: 0

0
Ответов: 16461
Рейтинг: 1211
#11: 2012-08-24 19:51:26 ЛС | профиль | цитата
Всем спасибо!
CriDos, лимит закончился
Своё получишь завтра.
Извини ...
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1841
Рейтинг: 362
#12: 2012-08-24 20:12:13 ЛС | профиль | цитата
Tad писал(а):
CriDos, лимит закончился
Своё получишь завтра.


карма: 1
0
Ответов: 16461
Рейтинг: 1211
#13: 2012-08-24 20:37:11 ЛС | профиль | цитата
А куда денешься.
Интересно, а повыше званием тоже лимитированы ?
карма: 22
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1765
Рейтинг: 158
#14: 2012-08-24 21:27:41 ЛС | профиль | цитата
Tad, вроде нет, им можно хоть 9000 раз голосовать.
карма: 5

0
Гость
Ответов: 17029
Рейтинг: 0
#15: 2012-08-24 22:06:55 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2017-06-21 01:52:40
карма: 0

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