Вверх ↑
Этот топик читают: Гость
Ответов: 1173
Рейтинг: 49
#16: 2012-08-22 18:23:22 ЛС | профиль | цитата
Tad, что за нападки? Я никого ни в чём не упрекаю.
Tad писал(а):
А в расчете на то, что дядя сделает, далеко не уедешь.
Я никуда не "еду", просто ответил на
ashkalov писал(а):
значит hiasm уже не избавить от ошибок и глюков???

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#17: 2012-08-22 18:47:04 ЛС | профиль | цитата
Ex_ писал(а):
что за нападки?
где нападки ?
А избавить от ошибок и глюков, теоретически, можно всё - было-бы желание.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1043
Рейтинг: 33
#18: 2012-08-22 19:52:44 ЛС | профиль | цитата
Tad писал(а):
где нападки ?

я тоже таковых не увидил
------------ Дoбавленo в 19.15:

я вот компонент под себя сделал...
скажите пожалуйста, на сколько он стабилен и что можно улучшить

Add(MainForm,10144629,112,210)
{
Width=1295
Height=535
}
Add(DoData,2593486,245,210)
{
link(onEventData,14224277:doWork1,[])
link(Data,4315224:Text,[])
}
Add(Button,10205346,168,210)
{
Left=35
Top=450
Color=450
link(onClick,2593486:doData,[])
}
Add(StrList,4315224,245,140)
{
Strings=#23:ЛИЦЕНЗИОННОЕ СОГЛАШЕНИЕ|251:Прочтите условия лицензионного соглашения прежде, чем использовать данную программу. Вы имеете право согласиться с ним или отклонить. Если Вы уже используете эту программу, то это означает автоматическое принятие Вами условий лицензионного соглашения.|217:Настоящее Лицензионное Соглашение является Договором между Вами, физическим или юридическим лицом (далее - Пользователь), правомерно владеющим экземпляром программы "DiLine", и разработчиком (далее - Правообладатель).|135:Исключительные имущественные авторские права на ПРОГРАММУ и документацию в печатном и/или электронном виде принадлежат Правообладателю.|259:В случае, если Вы принимаете условия лицензионного соглашения, Вы получаете право на использование программы в соответствии с условиями настоящего лицензионного соглашения. В противном случае, Вы должны прекратить установку или использование данной программы.|101:1. Все авторские права на данную программу принадлежат только Правообладателю - Magic-soft publisher.|118:2. Правообладатель оставляет за собой право отменить действие данной лицензии для любой из следующих версий программы.|102:3. Вы имеете право использовать данную программу на любом количестве компьютеров совершенно бесплатно.|59:4. Коммерческое распространение данной программы запрещено.|146:5. Вы не можете включать эту программу и/или ее компоненты в состав любых других программных продуктов без письменного разрешения Правообладателя.|91:6. Запрещается использовать материалы данной программы с целью создания подобной программы.|39:7. Правообладатель и/или его партнеры: |142:- не несут ответственности за какой-либо ущерб (прямой или косвенный), связанный с использованием или невозможностью использования программы. |121:- не несут никаких гарантийных обязательств за недоработки, ошибки и прочие неисправности, связанные с работой программы |81:- не обеспечивают Пользователя технической поддержкой в рамках данного соглашения|174:За нарушение авторских прав на программу нарушитель несет гражданскую, административную или уголовную ответственность в соответствии с законодательством Российской Федерации.|
}
Add(ChildScrollBox,14224277,315,210)
{
}
BEGIN_SDK
Add(EditMulti,6493703,21,21)
{
WorkCount=1
link(doWork1,5065272:doWork1,[(78,27)(78,111)])
}
Add(ScrollBox,8042337,35,105)
{
Width=1279
Height=435
Align=2
}
Add(ChildPanel,5065272,135,105)
{
@Hint=#15:Надпись (Label)|
@Color=16733695
AddHint(-36,-34,94,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,12519210,21,21)
{
WorkCount=1
Width=755
Height=361
link(doWork1,763760:doEvent1,[(35,27)(35,55)])
}
Add(Panel,15829934,658,161)
{
@Color=16755370
Width=53
Height=23
Color=32768
BorderWidth=0
BevelWidth=0
Point(doWidth)
Point(doHeight)
Point(Width)
}
Add(Img_Text,8622803,371,112)
{
@Hint=#13:Размер текста|
@Color=11184810
X=100
Y=100
Font=[MS Sans Serif,10,0,0,204]
Point(Y)
link(Text,7621041:Value,[])
AddHint(-145,-31,91,13,@Hint)
}
Add(Memory,7621041,378,63)
{
@Hint=#5:текст|
@Color=5636010
Default=String(Label)
AddHint(-9,-35,43,13,@Hint)
}
Add(DoData,3320611,371,168)
{
@Hint=#12:длина текста|
@Color=16755455
link(onEventData,15829934:doWidth,[])
link(Data,9321583:Var2,[])
AddHint(123,-56,82,13,@Hint)
}
Add(Timer,7095165,231,161)
{
@Hint=#20:Инициализация текста|
@Color=11141290
Interval=0
AutoStop=1
link(onTimer,14553421:doEvent1,[])
AddHint(-174,5,132,13,@Hint)
}
Add(Hub,606319,329,161)
{
link(onEvent1,8622803:doDraw,[(358,167)(358,118)])
link(onEvent2,1202085:doWork2,[])
}
Add(Label,1992588,105,49)
{
@Color=16755370
Width=28
Height=13
Align=5
Color=32768
Font=[MS Sans Serif,10,0,0,204]
AutoSize=1
}
Add(Hub,763760,49,49)
{
@Color=11184725
link(onEvent1,1992588:doText,[])
link(onEvent2,3545276:In,[(84,62)(84,97)])
}
Add(HubEx,2955868,315,161)
{
link(onEvent,606319:doEvent1,[])
}
Add(Hub,6792132,301,231)
{
OutCount=4
link(onEvent1,7621041:doValue,[(464,237)(464,51)(331,51)(331,69)])
link(onEvent2,7283960:doNext,[])
link(onEvent3,12456617:doOperation,[(367,251)(367,265)])
link(onEvent4,8512667:doCompare,[(329,258)(329,286)])
}
Add(Math,12456617,413,259)
{
@Hint=#13:высота текста|
@Color=16755455
OpType=2
link(onResult,7259035:doWork3,[(478,265)])
link(Op1,10603970:Var2,[(419,230)(384,230)])
link(Op2,7283960:Count,[(426,229)(553,229)(553,283)(517,283)])
AddHint(-32,66,89,13,@Hint)
}
Add(Counter,7283960,511,238)
{
Min=1
Max=100000000
Default=1
}
Add(HubEx,1202085,357,168)
{
link(onEvent,3320611:doData,[])
}
Add(LineBreak,7553109,112,224)
{
Caption="перебор строк"
Color=15780518
link(Out,4561332:doEnum,[])
Primary=[3545276,-7,-133]
}
Add(MultiElementEx,4561332,231,224)
{
@Hint=#13:Разбор текста|
@Color=11184640
link(onEvent2,2955868:doWork3,[(319,230)])
link(onFalse,6792132:doEvent1,[])
AddHint(-33,57,89,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,9618699,21,21)
{
WorkCount=#21:doEnum=Перебор текста|
EventCount=#22:onEvent2=первая строка|45:onFalse=Последующие строки с переводом строки|
Width=384
Height=151
link(doEnum,8064238:doEnum,[(35,27)(35,97)])
}
Add(Replace,9299849,105,91)
{
@Color=16755285
SubStr="
"
link(onReplace,4313847:doCase,[])
}
Add(Case,4313847,154,91)
{
@Color=16755285
link(onNextCase,8940609:doCompare,[])
}
Add(Str_Enum,8064238,49,91)
{
@Color=16755285
Delimiter=""
link(onEnum,9299849:doReplace,[])
}
Add(Memory,15111216,224,35)
{
@Color=16755455
Default=Integer(0)
}
Add(If_else,8940609,224,91)
{
@Color=16755370
Op2=Integer(0)
link(onTrue,10935733:doEvent1,[])
link(onFalse,9618699:onFalse,[(281,104)(281,34)])
link(Op1,15111216:Value,[])
}
Add(Hub,10935733,329,91)
{
@Color=16755285
link(onEvent1,13684373:doWork2,[(348,97)(348,73)(149,73)(149,48)])
link(onEvent2,9618699:onEvent2,[(374,104)(374,27)])
}
Add(ChanelToIndex,13684373,161,35)
{
@Color=16755455
link(onIndex,15111216:doValue,[])
}
Add(Icon,14776484,357,133)
{
@Hint=#5:#main|
@Color=11184810
Icon=[ZIPBE10000078DA63606004420505062050605821C0C02006646980790C0C0E40CC08663180E546C1281805A3603082FFFFFF531D936A3FB5FD336AFFF0B49F98F4456BFB5564DEE2D5438EFD303DC8342E0CB21FE6066C7651CB7E983D8430BA7DF4B61FD90DE4963F43D97E5A853F3DD3DF40E7BFA152FE8CD63FC3D3FE816C7F8D8201697313040F80CADEFFFF878AFF8070DDFFA70C7240CC07C42C50CC071603C981D5A0E97B8066250061EF20E4]
}
END_SDK
Add(Icon,7926656,560,28)
{
@Hint=#5:#main|
@Color=11184810
Icon=[ZIPBE10000078DA63606004420505062050605821C0C02006646980790C0C0E40CC08663180E546C1281805C313D8EA683114A4240D88DD317E3E0C870E1C60B87CF93283BBB909CDEC097175665016E0C5EAF71B376E80DDE064A44F33FBF565A4186EDFBC89E20690DFB76ED8C070FBF66D309B960064FFD7AF5F51DCE068A0CBF0E8D12386D3274F82D9B4B6FFC78F1F286E58BD7409C3B367CF1842DD5C689ECE40F6FFFEFD1BC50DEFDEBD6378F5EA15386DA0635AD8FFF7EF5F14377CFCF811EE065038C0E28256F6FFFFFF1FAF1B2E9E3F4F13BB91EDC7E5861BD7AED1CC6E74FBD1DD70FFEE1D9ADA8DCD7E981B9E00E39CD676E3B2FFC5B3A774B11B9BFDF4B41BDD7E7ADB8D6CFF40D80DB37FA0EC86D93F5076C3EC1F05A360145007FCC70B9E03F1E1FFFF3F03F1C7F6FFFF3F80303F1033403123103303313B545CFE3FD048F9FA0FF5F7EB3FFCBF5FD9301382B759DEAF9C2309C433EF17EC9970BFA065C2FDFAFFFFEF83D4020075055805]
}
Add(Hub,14553421,280,161)
{
link(onEvent1,2955868:doWork2,[])
link(onEvent2,1648378:doData,[(306,174)(306,195)])
}
Add(DoData,1648378,420,189)
{
@Hint=#12:длина текста|
@Color=16755455
link(onEventData,7259035:doWork2,[])
link(Data,10603970:Var3,[(426,159)])
}
Add(GetDataEx,10603970,378,154)
{
link(Data,8622803:TextHeight,[])
}
Add(HubEx,7259035,474,189)
{
Angle=3
link(onEvent,15829934:doHeight,[(478,181)])
}
Add(If_else,8512667,343,280)
{
Type=2
link(onTrue,1202085:doWork3,[(387,286)(387,228)(361,228)])
link(Op1,9321583:Var1,[(349,152)])
link(Op2,15829934:Width,[(356,236)(664,236)])
}
Add(GetDataEx,9321583,371,147)
{
link(Data,8622803:TextWidth,[])
}
END_SDK
END_SDK


------------ Дoбавленo в 19.52:
[offtop]подправил[/offtop]
карма: 0

0
Ответов: 1173
Рейтинг: 49
#19: 2012-08-22 19:53:38 ЛС | профиль | цитата
[flood]
Tad писал(а):
где нападки ?
Tad писал(а):
и кто не даёт самостоятельно переписать Windows (пакет) под VCL ? Или даже под API.
Или развивать пакет FASM - он без KOL-а.
Было бы желание.
А в расчете на то, что дядя сделает, далеко не уедешь.
[/flood]
карма: 0

0
Ответов: 1043
Рейтинг: 33
#20: 2012-08-22 20:02:24 ЛС | профиль | цитата
Ex_, а ты то тут причем
Tad по моему просто объяснил ситуацию
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#21: 2012-08-22 20:02:37 ЛС | профиль | цитата
Ex_, это было сказано не в твой адрес.
ashkalov, в твоей схеме Timer и вторая DoData, по-моему, лишние.
Add(ChildPanel,5065272,322,189)
{
@Hint=#15:Надпись (Label)|
@Color=16733695
AddHint(-36,-34,94,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,12519210,21,21)
{
WorkCount=1
Width=524
Height=361
link(doWork1,763760:doEvent1,[(35,27)(35,55)])
}
Add(Panel,15829934,469,175)
{
@Color=16755370
Left=10
Top=10
Width=53
Height=23
Color=32768
BorderWidth=0
BevelWidth=0
Point(doWidth)
Point(doHeight)
Point(Width)
}
Add(Img_Text,8622803,371,119)
{
@Hint=#13:Размер текста|
@Color=11184810
X=100
Y=100
Font=[MS Sans Serif,10,0,0,204]
Point(Y)
link(Text,7621041:Value,[])
AddHint(-145,-31,91,13,@Hint)
}
Add(Memory,7621041,378,70)
{
@Hint=#5:текст|
@Color=5636010
Default=String(Label)
AddHint(-9,-35,43,13,@Hint)
}
Add(DoData,3320611,371,182)
{
@Hint=#12:длина текста|
@Color=16755455
link(onEventData,15829934:doWidth,[])
link(Data,9321583:Var2,[])
AddHint(69,-33,82,13,@Hint)
}
Add(Hub,606319,322,175)
{
link(onEvent1,8622803:doDraw,[(358,181)(358,125)])
link(onEvent2,1202085:doWork2,[])
}
Add(Label,1992588,105,49)
{
@Color=16755370
Width=53
Height=23
Align=5
Color=65535
Font=[MS Sans Serif,10,0,0,204]
Caption=""
AutoSize=1
}
Add(Hub,763760,49,49)
{
@Color=11184725
link(onEvent1,1992588:doText,[])
link(onEvent2,3545276:In,[(84,62)(84,97)])
}
Add(Hub,6792132,280,231)
{
OutCount=4
link(onEvent1,7621041:doValue,[(305,237)(305,76)])
link(onEvent2,7283960:doNext,[])
link(onEvent3,12456617:doOperation,[(386,251)(386,293)])
link(onEvent4,8512667:doCompare,[])
}
Add(Math,12456617,406,287)
{
@Hint=#13:высота текста|
@Color=16755455
OpType=2
link(onResult,15829934:doHeight,[(453,293)(453,195)])
link(Op1,8622803:TextHeight,[(412,167)(384,167)])
link(Op2,7283960:Count,[])
AddHint(-20,41,89,13,@Hint)
}
Add(Counter,7283960,413,238)
{
Min=1
Max=100000000
Default=1
}
Add(HubEx,1202085,357,182)
{
link(onEvent,3320611:doData,[])
}
Add(LineBreak,2861223,133,224)
{
Caption="перебор строк"
Color=15780518
link(Out,4561332:doEnum,[])
Primary=[3545276,-28,-133]
}
Add(MultiElementEx,4561332,231,224)
{
@Hint=#13:Разбор текста|
@Color=11184640
link(onEvent2,606319:doEvent1,[(313,230)(313,181)])
link(onFalse,6792132:doEvent1,[])
AddHint(-77,43,89,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,9618699,21,21)
{
WorkCount=#21:doEnum=Перебор текста|
EventCount=#22:onEvent2=первая строка|45:onFalse=Последующие строки с переводом строки|
Width=384
Height=151
link(doEnum,8064238:doEnum,[(35,27)(35,97)])
}
Add(Replace,9299849,105,91)
{
@Color=16755285
SubStr="
"
link(onReplace,4313847:doCase,[])
}
Add(Case,4313847,161,91)
{
@Color=16755285
link(onNextCase,8940609:doCompare,[])
}
Add(Str_Enum,8064238,49,91)
{
@Color=16755285
Delimiter=""
link(onEnum,9299849:doReplace,[])
}
Add(Memory,15111216,224,35)
{
@Color=16755455
Default=Integer(0)
}
Add(If_else,8940609,224,91)
{
@Color=16755370
Op2=Integer(0)
link(onTrue,10935733:doEvent1,[])
link(onFalse,9618699:onFalse,[(281,104)(281,34)])
link(Op1,15111216:Value,[])
}
Add(Hub,10935733,329,91)
{
@Color=16755285
link(onEvent1,13684373:doWork2,[(348,97)(348,73)(149,73)(149,48)])
link(onEvent2,9618699:onEvent2,[(374,104)(374,27)])
}
Add(ChanelToIndex,13684373,161,35)
{
@Color=16755455
link(onIndex,15111216:doValue,[])
}
Add(Icon,14776484,357,133)
{
@Hint=#5:#main|
@Color=11184810
Icon=[ZIPBE10000078DA63606004420505062050605821C0C02006646980790C0C0E40CC08663180E546C1281805A3603082FFFFFF531D936A3FB5FD336AFFF0B49F98F4456BFB5564DEE2D5438EFD303DC8342E0CB21FE6066C7651CB7E983D8430BA7DF4B61FD90DE4963F43D97E5A853F3DD3DF40E7BFA152FE8CD63FC3D3FE816C7F8D8201697313040F80CADEFFFF878AFF8070DDFFA70C7240CC07C42C50CC071603C981D5A0E97B8066250061EF20E4]
}
END_SDK
Add(Icon,7926656,469,91)
{
@Hint=#5:#main|
@Color=11184810
Icon=[ZIPBE10000078DA63606004420505062050605821C0C02006646980790C0C0E40CC08663180E546C1281805C313D8EA683114A4240D88DD317E3E0C870E1C60B87CF93283BBB909CDEC097175665016E0C5EAF71B376E80DDE064A44F33FBF565A4186EDFBC89E20690DFB76ED8C070FBF66D309B960064FFD7AF5F51DCE068A0CBF0E8D12386D3274F82D9B4B6FFC78F1F286E58BD7409C3B367CF1842DD5C689ECE40F6FFFEFD1BC50DEFDEBD6378F5EA15386DA0635AD8FFF7EF5F14377CFCF811EE065038C0E28256F6FFFFFF1FAF1B2E9E3F4F13BB91EDC7E5861BD7AED1CC6E74FBD1DD70FFEE1D9ADA8DCD7E981B9E00E39CD676E3B2FFC5B3A774B11B9BFDF4B41BDD7E7ADB8D6CFF40D80DB37FA0EC86D93F5076C3EC1F05A360145007FCC70B9E03F1E1FFFF3F03F1C7F6FFFF3F80303F1033403123103303313B545CFE3FD048F9FA0FF5F7EB3FFCBF5FD9301382B759DEAF9C2309C433EF17EC9970BFA065C2FDFAFFFFEF83D4020075055805]
}
Add(If_else,8512667,315,252)
{
Type=2
link(onTrue,1202085:doWork3,[(361,258)])
link(Op1,9321583:Var1,[(321,166)])
link(Op2,15829934:Width,[(328,226)(475,226)])
}
Add(GetDataEx,9321583,371,161)
{
link(Data,8622803:TextWidth,[])
}
END_SDK



карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:ashkalov
Ответов: 1043
Рейтинг: 33
#22: 2012-08-22 20:03:30 ЛС | профиль | цитата
исправил чуть чуть
Add(MainForm,10144629,112,210)
{
Width=1295
Height=535
}
Add(DoData,2593486,245,210)
{
link(onEventData,14224277:doWork1,[])
link(Data,4315224:Text,[])
}
Add(Button,10205346,168,210)
{
Left=35
Top=450
Color=450
link(onClick,2593486:doData,[])
}
Add(StrList,4315224,245,140)
{
Strings=#23:ЛИЦЕНЗИОННОЕ СОГЛАШЕНИЕ|251:Прочтите условия лицензионного соглашения прежде, чем использовать данную программу. Вы имеете право согласиться с ним или отклонить. Если Вы уже используете эту программу, то это означает автоматическое принятие Вами условий лицензионного соглашения.|217:Настоящее Лицензионное Соглашение является Договором между Вами, физическим или юридическим лицом (далее - Пользователь), правомерно владеющим экземпляром программы "DiLine", и разработчиком (далее - Правообладатель).|135:Исключительные имущественные авторские права на ПРОГРАММУ и документацию в печатном и/или электронном виде принадлежат Правообладателю.|259:В случае, если Вы принимаете условия лицензионного соглашения, Вы получаете право на использование программы в соответствии с условиями настоящего лицензионного соглашения. В противном случае, Вы должны прекратить установку или использование данной программы.|101:1. Все авторские права на данную программу принадлежат только Правообладателю - Magic-soft publisher.|118:2. Правообладатель оставляет за собой право отменить действие данной лицензии для любой из следующих версий программы.|102:3. Вы имеете право использовать данную программу на любом количестве компьютеров совершенно бесплатно.|59:4. Коммерческое распространение данной программы запрещено.|146:5. Вы не можете включать эту программу и/или ее компоненты в состав любых других программных продуктов без письменного разрешения Правообладателя.|91:6. Запрещается использовать материалы данной программы с целью создания подобной программы.|39:7. Правообладатель и/или его партнеры: |142:- не несут ответственности за какой-либо ущерб (прямой или косвенный), связанный с использованием или невозможностью использования программы. |121:- не несут никаких гарантийных обязательств за недоработки, ошибки и прочие неисправности, связанные с работой программы |81:- не обеспечивают Пользователя технической поддержкой в рамках данного соглашения|174:За нарушение авторских прав на программу нарушитель несет гражданскую, административную или уголовную ответственность в соответствии с законодательством Российской Федерации.|
}
Add(ChildScrollBox,14224277,315,210)
{
}
BEGIN_SDK
Add(EditMulti,6493703,21,21)
{
WorkCount=1
link(doWork1,5065272:doWork1,[(78,27)(78,111)])
}
Add(ScrollBox,8042337,35,105)
{
Width=1279
Height=435
Align=2
}
Add(ChildPanel,5065272,135,105)
{
@Hint=#15:Надпись (Label)|
@Color=16733695
AddHint(-36,-34,94,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,12519210,21,21)
{
WorkCount=1
Width=755
Height=361
link(doWork1,763760:doEvent1,[(35,27)(35,55)])
}
Add(Panel,15829934,658,161)
{
@Color=16755370
Width=53
Height=23
Color=32768
BorderWidth=0
BevelWidth=0
Point(doWidth)
Point(doHeight)
Point(Width)
}
Add(Img_Text,8622803,371,112)
{
@Hint=#13:Размер текста|
@Color=11184810
X=100
Y=100
Font=[MS Sans Serif,10,0,0,204]
Point(Y)
link(Text,7621041:Value,[])
AddHint(-144,-8,91,13,@Hint)
}
Add(Memory,7621041,378,56)
{
@Hint=#5:текст|
@Color=5636010
Default=String(Label)
AddHint(-9,-32,43,13,@Hint)
}
Add(DoData,3320611,371,168)
{
@Hint=#12:длина текста|
@Color=16755455
link(onEventData,15829934:doWidth,[])
link(Data,9321583:Var2,[])
AddHint(123,-56,82,13,@Hint)
}
Add(Timer,7095165,231,161)
{
@Hint=#20:Инициализация текста|
@Color=11141290
Interval=0
AutoStop=1
link(onTimer,14553421:doEvent1,[])
AddHint(-174,5,132,13,@Hint)
}
Add(Hub,606319,329,161)
{
link(onEvent1,8622803:doDraw,[(358,167)(358,118)])
link(onEvent2,1202085:doWork2,[])
}
Add(Label,1992588,105,49)
{
@Color=16755370
Width=28
Height=13
Align=5
Color=32768
Font=[MS Sans Serif,10,0,0,204]
AutoSize=1
}
Add(Hub,763760,49,49)
{
@Color=11184725
OutCount=3
link(onEvent1,1992588:doText,[])
link(onEvent2,5941777:doEvent1,[])
link(onEvent3,3545276:In,[(84,69)(84,97)])
}
Add(HubEx,2955868,315,161)
{
link(onEvent,606319:doEvent1,[])
}
Add(Hub,6792132,301,231)
{
OutCount=4
link(onEvent1,15440497:doWork2,[(464,237)(464,51)(312,51)(312,62)])
link(onEvent2,7283960:doNext,[])
link(onEvent3,12456617:doOperation,[(367,251)(367,265)])
link(onEvent4,8512667:doCompare,[(329,258)(329,286)])
}
Add(Math,12456617,413,259)
{
@Hint=#13:высота текста|
@Color=16755455
OpType=2
link(onResult,7259035:doWork3,[(478,265)])
link(Op1,10603970:Var2,[(419,230)(384,230)])
link(Op2,7283960:Count,[(426,229)(553,229)(553,283)(517,283)])
AddHint(-31,82,89,13,@Hint)
}
Add(Counter,7283960,511,238)
{
Min=1
Max=100000000
Default=1
}
Add(HubEx,1202085,357,168)
{
link(onEvent,3320611:doData,[])
}
Add(LineBreak,7553109,112,224)
{
Caption="перебор строк"
Color=15780518
link(Out,4561332:doEnum,[])
Primary=[3545276,-7,-133]
}
Add(MultiElementEx,4561332,231,224)
{
@Hint=#13:Разбор текста|
@Color=11184640
link(onEvent2,2955868:doWork3,[(319,230)])
link(onFalse,6792132:doEvent1,[])
AddHint(-33,57,89,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,9618699,21,21)
{
WorkCount=#21:doEnum=Перебор текста|13:doClear=сброс|
EventCount=#22:onEvent2=первая строка|45:onFalse=Последующие строки с переводом строки|
Width=384
Height=151
link(doEnum,8064238:doEnum,[(35,27)(35,97)])
link(doClear,15111216:doClear,[(123,34)(123,48)])
}
Add(Replace,9299849,105,91)
{
@Color=16755285
SubStr="
"
link(onReplace,4313847:doCase,[])
}
Add(Case,4313847,154,91)
{
@Color=16755285
link(onNextCase,8940609:doCompare,[])
}
Add(Str_Enum,8064238,49,91)
{
@Color=16755285
Delimiter=""
link(onEnum,9299849:doReplace,[])
}
Add(Memory,15111216,224,35)
{
@Color=16755455
Default=Integer(0)
}
Add(If_else,8940609,224,91)
{
@Color=16755370
Op2=Integer(0)
link(onTrue,10935733:doEvent1,[])
link(onFalse,9618699:onFalse,[(281,104)(281,34)])
link(Op1,15111216:Value,[])
}
Add(Hub,10935733,329,91)
{
@Color=16755285
link(onEvent1,13684373:doWork2,[(348,97)(348,73)(149,73)(149,48)])
link(onEvent2,9618699:onEvent2,[(374,104)(374,27)])
}
Add(ChanelToIndex,13684373,161,35)
{
@Color=16755455
link(onIndex,15111216:doValue,[])
}
Add(Icon,14776484,357,133)
{
@Hint=#5:#main|
@Color=11184810
Icon=[ZIPBE10000078DA63606004420505062050605821C0C02006646980790C0C0E40CC08663180E546C1281805A3603082FFFFFF531D936A3FB5FD336AFFF0B49F98F4456BFB5564DEE2D5438EFD303DC8342E0CB21FE6066C7651CB7E983D8430BA7DF4B61FD90DE4963F43D97E5A853F3DD3DF40E7BFA152FE8CD63FC3D3FE816C7F8D8201697313040F80CADEFFFF878AFF8070DDFFA70C7240CC07C42C50CC071603C981D5A0E97B8066250061EF20E4]
}
END_SDK
Add(Icon,7926656,735,28)
{
@Hint=#5:#main|
@Color=11184810
Icon=[ZIPBE10000078DA63606004420505062050605821C0C02006646980790C0C0E40CC08663180E546C1281805C313D8EA683114A4240D88DD317E3E0C870E1C60B87CF93283BBB909CDEC097175665016E0C5EAF71B376E80DDE064A44F33FBF565A4186EDFBC89E20690DFB76ED8C070FBF66D309B960064FFD7AF5F51DCE068A0CBF0E8D12386D3274F82D9B4B6FFC78F1F286E58BD7409C3B367CF1842DD5C689ECE40F6FFFEFD1BC50DEFDEBD6378F5EA15386DA0635AD8FFF7EF5F14377CFCF811EE065038C0E28256F6FFFFFF1FAF1B2E9E3F4F13BB91EDC7E5861BD7AED1CC6E74FBD1DD70FFEE1D9ADA8DCD7E981B9E00E39CD676E3B2FFC5B3A774B11B9BFDF4B41BDD7E7ADB8D6CFF40D80DB37FA0EC86D93F5076C3EC1F05A360145007FCC70B9E03F1E1FFFF3F03F1C7F6FFFF3F80303F1033403123103303313B545CFE3FD048F9FA0FF5F7EB3FFCBF5FD9301382B759DEAF9C2309C433EF17EC9970BFA065C2FDFAFFFFEF83D4020075055805]
}
Add(Hub,14553421,280,161)
{
link(onEvent1,2955868:doWork2,[])
link(onEvent2,1648378:doData,[(306,174)(306,195)])
}
Add(DoData,1648378,420,189)
{
@Hint=#12:длина текста|
@Color=16755455
link(onEventData,7259035:doWork2,[])
link(Data,10603970:Var3,[(426,159)])
}
Add(GetDataEx,10603970,378,154)
{
link(Data,8622803:TextHeight,[])
}
Add(HubEx,7259035,474,189)
{
Angle=3
link(onEvent,15829934:doHeight,[(478,181)])
}
Add(If_else,8512667,343,280)
{
Type=2
link(onTrue,1202085:doWork3,[(387,286)(387,228)(361,228)])
link(Op1,9321583:Var1,[(349,152)])
link(Op2,15829934:Width,[(356,236)(664,236)])
}
Add(GetDataEx,9321583,371,147)
{
link(Data,8622803:TextWidth,[])
}
Add(Hub,5941777,161,56)
{
@Hint=#12:сброс данных|
@Color=5570815
OutCount=3
link(onEvent1,7283960:doReset,[(234,62)(234,36)(492,36)(492,258)])
link(onEvent2,15789201:doData,[])
link(onEvent3,4561332:doClear,[(216,76)(216,237)])
AddHint(-40,74,85,13,@Hint)
}
Add(DoData,15789201,259,63)
{
link(onEventData,15440497:doWork3,[(354,69)])
}
Add(HubEx,15440497,350,56)
{
link(onEvent,7621041:doValue,[])
}
END_SDK
END_SDK



Tad, а чем таймер заменить
карма: 0

0
файлы: 1code_28841.txt [11.3KB] [382]
Ответов: 16884
Рейтинг: 1239
#23: 2012-08-22 20:05:31 ЛС | профиль | цитата
Смотри выше
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1043
Рейтинг: 33
#24: 2012-08-22 20:25:59 ЛС | профиль | цитата
спасибо)+
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#25: 2012-08-22 20:34:34 ЛС | профиль | цитата
ashkalov,упрощаем дальше
code_28842.txt
------------ Дoбавленo в 20.34:
и т.д. ( у самой Label можно открыть те же точки, что и у Panel)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_28842.txt [5KB] [97]
Ответов: 1043
Рейтинг: 33
#26: 2012-08-22 20:42:45 ЛС | профиль | цитата
Tad, не, панелька мне нужна для кое-чего другого

а так, вот выкладываю готовое решение... может кому пригодится)))
Add(MainForm,2953706,133,175)
{
Width=312
Height=203
Caption="Выравнивание текста"
Position=1
}
Add(ChildPanel,5065272,359,175)
{
@Hint=#15:Надпись (Label)|
@Color=16733695
AddHint(-36,-34,94,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,12519210,21,21)
{
WorkCount=1
Width=755
Height=361
link(doWork1,763760:doEvent1,[(35,27)(35,55)])
}
Add(Panel,15829934,658,161)
{
@Color=16755370
Left=25
Top=10
Width=53
Height=23
Color=32768
BorderWidth=0
BevelWidth=0
Point(doWidth)
Point(doHeight)
Point(Width)
}
Add(Img_Text,8622803,371,112)
{
@Hint=#13:Размер текста|
@Color=11184810
X=100
Y=100
Font=[MS Sans Serif,10,0,0,204]
Point(Y)
link(Text,7621041:Value,[])
AddHint(-144,-8,91,13,@Hint)
}
Add(Memory,7621041,378,56)
{
@Hint=#5:текст|
@Color=5636010
Default=String(Label)
AddHint(-9,-32,43,13,@Hint)
}
Add(DoData,3320611,371,168)
{
@Hint=#12:длина текста|
@Color=16755455
link(onEventData,15829934:doWidth,[])
link(Data,9321583:Var2,[])
AddHint(123,-56,82,13,@Hint)
}
Add(Hub,606319,301,154)
{
OutCount=3
link(onEvent1,10108704:doWork3,[(340,160)])
link(onEvent2,8622803:doDraw,[(343,167)(343,118)])
link(onEvent3,1202085:doWork2,[])
}
Add(Label,1992588,105,49)
{
@Color=16755370
Width=53
Height=23
Align=5
Color=32768
Font=[MS Sans Serif,10,0,0,204]
AutoSize=1
}
Add(Hub,763760,49,49)
{
@Color=11184725
OutCount=3
link(onEvent1,1992588:doText,[])
link(onEvent2,5941777:doEvent1,[])
link(onEvent3,3545276:In,[(84,69)(84,97)])
}
Add(Hub,6792132,301,231)
{
OutCount=4
link(onEvent1,15440497:doWork2,[(464,237)(464,51)(312,51)(312,62)])
link(onEvent2,7283960:doNext,[])
link(onEvent3,12456617:doOperation,[(367,251)(367,265)])
link(onEvent4,8512667:doCompare,[(329,258)(329,286)])
}
Add(Math,12456617,413,259)
{
@Hint=#13:высота текста|
@Color=16755455
OpType=2
link(onResult,15829934:doHeight,[(478,265)(478,181)])
link(Op1,12185108:Var2,[(419,230)(384,230)])
link(Op2,7283960:Count,[(426,229)(553,229)(553,283)(517,283)])
AddHint(-31,82,89,13,@Hint)
}
Add(Counter,7283960,511,238)
{
Min=1
Max=100000000
Default=1
}
Add(HubEx,1202085,357,168)
{
link(onEvent,3320611:doData,[])
}
Add(LineBreak,12271367,112,224)
{
Caption="перебор строк"
Color=15780518
link(Out,4561332:doEnum,[])
Primary=[3545276,-7,-133]
}
Add(MultiElementEx,4561332,231,224)
{
@Hint=#13:Разбор текста|
@Color=11184640
link(onEvent2,606319:doEvent1,[(282,230)(282,160)])
link(onFalse,6792132:doEvent1,[])
AddHint(-33,57,89,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,9618699,21,21)
{
WorkCount=#21:doEnum=Перебор текста|13:doClear=сброс|
EventCount=#22:onEvent2=первая строка|45:onFalse=Последующие строки с переводом строки|
Width=384
Height=151
link(doEnum,8064238:doEnum,[(35,27)(35,97)])
link(doClear,15111216:doClear,[(123,34)(123,48)])
}
Add(Replace,9299849,105,91)
{
@Color=16755285
SubStr="
"
link(onReplace,4313847:doCase,[])
}
Add(Case,4313847,154,91)
{
@Color=16755285
link(onNextCase,8940609:doCompare,[])
}
Add(Str_Enum,8064238,49,91)
{
@Color=16755285
Delimiter=""
link(onEnum,9299849:doReplace,[])
}
Add(Memory,15111216,224,35)
{
@Color=16755455
Default=Integer(0)
}
Add(If_else,8940609,224,91)
{
@Color=16755370
Op2=Integer(0)
link(onTrue,10935733:doEvent1,[])
link(onFalse,9618699:onFalse,[(281,104)(281,34)])
link(Op1,15111216:Value,[])
}
Add(Hub,10935733,315,91)
{
@Color=16755285
link(onEvent1,13684373:doWork2,[(341,97)(341,73)(149,73)(149,48)])
link(onEvent2,9618699:onEvent2,[(374,104)(374,27)])
}
Add(ChanelToIndex,13684373,161,35)
{
@Color=16755455
link(onIndex,15111216:doValue,[])
}
Add(Icon,14776484,357,133)
{
@Hint=#5:#main|
@Color=11184810
Icon=[ZIPBE10000078DA63606004420505062050605821C0C02006646980790C0C0E40CC08663180E546C1281805A3603082FFFFFF531D936A3FB5FD336AFFF0B49F98F4456BFB5564DEE2D5438EFD303DC8342E0CB21FE6066C7651CB7E983D8430BA7DF4B61FD90DE4963F43D97E5A853F3DD3DF40E7BFA152FE8CD63FC3D3FE816C7F8D8201697313040F80CADEFFFF878AFF8070DDFFA70C7240CC07C42C50CC071603C981D5A0E97B8066250061EF20E4]
}
END_SDK
Add(Icon,7926656,735,28)
{
@Hint=#5:#main|
@Color=11184810
Icon=[ZIPBE10000078DA63606004420505062050605821C0C02006646980790C0C0E40CC08663180E546C1281805C313D8EA683114A4240D88DD317E3E0C870E1C60B87CF93283BBB909CDEC097175665016E0C5EAF71B376E80DDE064A44F33FBF565A4186EDFBC89E20690DFB76ED8C070FBF66D309B960064FFD7AF5F51DCE068A0CBF0E8D12386D3274F82D9B4B6FFC78F1F286E58BD7409C3B367CF1842DD5C689ECE40F6FFFEFD1BC50DEFDEBD6378F5EA15386DA0635AD8FFF7EF5F14377CFCF811EE065038C0E28256F6FFFFFF1FAF1B2E9E3F4F13BB91EDC7E5861BD7AED1CC6E74FBD1DD70FFEE1D9ADA8DCD7E981B9E00E39CD676E3B2FFC5B3A774B11B9BFDF4B41BDD7E7ADB8D6CFF40D80DB37FA0EC86D93F5076C3EC1F05A360145007FCC70B9E03F1E1FFFF3F03F1C7F6FFFF3F80303F1033403123103303313B545CFE3FD048F9FA0FF5F7EB3FFCBF5FD9301382B759DEAF9C2309C433EF17EC9970BFA065C2FDFAFFFFEF83D4020075055805]
}
Add(If_else,8512667,343,280)
{
Type=2
link(onTrue,1202085:doWork3,[(387,286)(387,228)(361,228)])
link(Op1,9321583:Var1,[(349,152)])
link(Op2,15829934:Width,[(356,236)(664,236)])
}
Add(GetDataEx,9321583,371,147)
{
link(Data,8622803:TextWidth,[])
}
Add(Hub,5941777,161,56)
{
@Hint=#12:сброс данных|
@Color=5570815
OutCount=3
link(onEvent1,7283960:doReset,[(234,62)(234,36)(492,36)(492,258)])
link(onEvent2,15789201:doData,[])
link(onEvent3,4561332:doClear,[(216,76)(216,237)])
AddHint(-40,74,85,13,@Hint)
}
Add(DoData,15789201,259,63)
{
link(onEventData,10108704:doWork2,[])
}
Add(HubEx,15440497,350,56)
{
link(onEvent,7621041:doValue,[])
}
Add(GetDataEx,12185108,378,147)
{
link(Data,8622803:TextHeight,[])
}
Add(HubEx,10108704,336,63)
{
link(onEvent,15440497:doWork3,[(354,69)])
}
END_SDK
Add(DoData,2593486,266,175)
{
link(onEventData,5065272:doWork1,[])
link(Data,4315224:Text,[])
}
Add(Button,10205346,189,175)
{
Left=25
Top=130
Width=100
Color=100
Caption="Нажми на меня"
link(onClick,2593486:doData,[])
}
Add(StrList,4315224,266,105)
{
Strings=#24:Я текст вот такой длинны|27:и неважно в принципе какой,|35:потому что этот label выровняет все|9:как надо.|25:И в длинну, и в высоту =D|
}


------------ Дoбавленo в 20.42:
кому нужно, тот допилит
карма: 0

0
файлы: 1code_28843.txt [6.6KB] [101]
Гость
Ответов: 17029
Рейтинг: 0
#27: 2012-08-22 20:51:51 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-06 06:38:56
карма: 0

0
Ответов: 1173
Рейтинг: 49
#28: 2012-08-22 20:57:15 ЛС | профиль | цитата
[flood]
Tad писал(а):
это было сказано не в твой адрес
Тогда прошу прощения [/flood]
карма: 0

0
Ответов: 1043
Рейтинг: 33
#29: 2012-08-22 21:04:34 ЛС | профиль | цитата
г. ость, яб посмотрел, но кириллица извращается
карма: 0

0
Ответов: 1173
Рейтинг: 49
#30: 2012-08-22 21:25:39 ЛС | профиль | цитата
ashkalov писал(а):
кириллица извращается
Не подтверждается. Если в браузере, то попробуйте поставить кодировку UTF-8.[flood]
ashkalov писал(а):
яб
Позвольте узнать, а кто это? [/flood]
карма: 0

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