HiAsm
HiAsm
Вверх ↑
ФорумыПрочееВывод текста как строки в таблице многострочно - как? ← Ctrl12345678910111213Ctrl →
Этот топик читают: Гость
Разработчик
Ответов: 26322
Рейтинг: 2147
#91: 2010-05-08 22:55:36 ЛС | профиль | цитата
Tad писал(а):
Я сегодня пас - отмечаем Победу !

Так официальный еще не наступил, или у вас 8-го
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#92: 2010-05-08 23:22:46 ЛС | профиль | цитата
nesco, 8-го мая в 22.43 по Берлинскому времени была подписана капитуляция, а так как в Москве уже было 9-е (00.43), то и получился бардак с датой.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 49
Рейтинг: 11
#93: 2010-05-08 23:41:33 ЛС | профиль | цитата
Только успевай разгребать.... Это я про работу. Там клиент оказался тупой, не скормить ему по UDP строку больше 512 байт, пришлось поступить так:
code_18154.txt

Надеюсь, верно.
А заодно всплывает задача полного сохранения данных всех окон по Exit и их восстановления при загрузке.
И еще хотят создание новых пустых строк в правой таблице для вставки нового текста вручную уже по ходу эфира, когда левая панель уже заблокирована. И еще менять порядок строк таблицы, и было бы неплохо, чтобы таблица была в виде дерева (т.е. ветка "Сюжет Иванова", а в ней ветки "часть первая", "часть вторая" итд,) ибо резать тексты редакторы будут мелко, чтобы можно было прервать сюжет досрочно вместе с бегушей строкой, или выкинуть часть. Я понял что пора садиться за картежи.

Короче после праздника скучно не будет.

PS а ваши предложения я просматриваю все. Кстати наше начальство отреагировало на вашу поддержку:"Такого в форумах не бывает, особенно если касается поддержки." Они ведь общаются с американцами, немцами и англичанами, у них такого нет кроме Yes и No.
карма: 1

0
файлы: 1code_18154.txt [3.4KB] [182]
Разработчик
Ответов: 26322
Рейтинг: 2147
#94: 2010-05-09 02:57:21 ЛС | профиль | цитата
vovcheck писал(а):
Я понял что пора садиться за картежи

Там еще те приколы
------------ Дoбавленo в 02.10:
vovcheck, вот твой модуль перевода кириллических символов в нижний регистр, начиная со второй буквы 



Add(MultiElementEx,15389493,469,532)
{
 @Hint=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|0:|14:Новая редакция|
 AddHint(-219,-114,200,104,@Hint)
}
BEGIN_SDK
  Add(EditMultiEx,1610369,49,91)
  {
   WorkCount=#6:doLoad|0:|
   EventCount=#12:ResultString|0:|
   DataCount=#4:Data|
   Width=531
   Height=214
   VOffset=14
   HOffset=49
   link(doLoad,6142680:doEvent1,[])
  }
  Add(InfoTip,14515840,28,14)
  {
   Info=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|
   Width=358
   Height=60
  }
  Add(StrCase,3040051,427,210)
  {
   link(onModify,8570262:doWork3,[(473,216)])
  }
  Add(HubEx,8570262,469,203)
  {
   link(onEvent,402667:doStrCat,[])
  }
  Add(Str_Enum,9992685,182,189)
  {
   Delimiter=""
   link(onEnum,6752549:doEvent1,[])
  }
  Add(Convertor,10707034,273,203)
  {
   Mode=3
   link(onResult,10321937:doCalc,[])
  }
  Add(StrCat,402667,518,203)
  {
   Point(doClear)
   link(Str1,14681209:Var1,[(524,194)(503,194)(503,247)])
  }
  Add(GetDataEx,14681209,518,242)
  {
   link(Data,402667:Result,[])
  }
  Add(Hub,6142680,63,105)
  {
   OutCount=3
   link(onEvent1,402667:doClear,[(497,111)(497,216)])
   link(onEvent2,1961720:doEnum,[(87,118)(87,195)])
   link(onEvent3,5683228:doTrim,[(489,125)(489,265)])
  }
  Add(Str_Enum,1961720,98,189)
  {
   Delimiter=" "
   link(onEnum,10077282:doStrCat,[])
   link(String,1610369:Data,[])
  }
  Add(MathParse,10321937,322,203)
  {
   MathStr="((%1 = 168) + (%1 >= 192) * (%1 <= 223)) * %2"
   link(onResult,4918618:doEvent,[])
   link(X2,14966587:Value,[])
  }
  Add(StrCat,10077282,140,189)
  {
   Str2=" "
   link(onStrCat,9992685:doEnum,[])
  }
  Add(Trim,5683228,518,259)
  {
   Char=" "
   link(onTrim,1610369:ResultString,[(558,265)(558,111)])
   link(Text,14681209:Var2,[])
  }
  Add(Hub,6752549,224,189)
  {
   OutCount=3
   link(onEvent1,14966587:doClear,[(315,195)(315,167)])
   link(onEvent2,10220044:doEvent,[(256,202)(256,153)])
   link(onEvent3,10707034:doConvert,[])
  }
  Add(Memory,14966587,329,154)
  {
   Default=Integer(1)
  }
  Add(IndexToChanel,4918618,378,203)
  {
   Point(Data)
   link(onEvent1,8570262:doWork2,[])
   link(onEvent2,3040051:doModify,[])
   link(Data,9992685:Part,[(384,191)(367,191)(367,241)(195,241)])
  }
  Add(IndexToChanel,10220044,273,147)
  {
   Point(Index)
   link(onEvent2,14966587:doValue,[])
   link(Index,9992685:NumSubStr,[(279,135)(233,135)(233,233)(188,233)])
  }
END_SDK

------------ Дoбавленo в 02.57:
А вот весь твой клавиатурный интерфейс редактора 


Add(MainForm,3011605,273,217)
{
}
Add(Memo,7766550,434,217)
{
 Left=10
 Top=5
 Width=265
 Height=250
 Font=[MS Sans Serif,10,0,0,1]
 Strings=#20:Привет от HiAsmZz-a!|
 Point(onKeyDown)
 Point(SelText)
 Point(doSetSelect)
 link(onKeyDown,2105727:doWork,[])
}
Add(MultiElementEx,12888806,455,448)
{
 @Hint=#56:Переводит кириллические символы в верхний/нижний регистр|
 link(ResultString,8160523:doWork2,[])
 link(Data,7766550:SelText,[])
}
BEGIN_SDK
  Add(EditMultiEx,1610369,21,21)
  {
   WorkCount=#4:doUp|6:doDown|
   EventCount=#12:ResultString|0:|
   DataCount=#4:Data|
   Width=426
   Height=242
   VOffset=56
   HOffset=35
   link(doUp,10405018:doWork2,[])
   link(doDown,10405018:doWork3,[])
  }
  Add(Shape,15843163,21,273)
  {
   Width=277
   Text="а-я== 224-255  А-Я== 192-223  Ё== 168  ё== 184 "
   PWidth=2
  }
  Add(StrCase,3040051,266,161)
  {
   Type=1
   link(onModify,8570262:doWork2,[])
  }
  Add(StrCase,7786281,266,203)
  {
   link(onModify,8570262:doWork3,[(333,209)])
  }
  Add(HubEx,8570262,329,161)
  {
   link(onEvent,402667:doStrCat,[])
  }
  Add(Str_Enum,9992685,56,154)
  {
   Delimiter=""
   link(onEnum,10707034:doConvert,[])
   link(String,1610369:Data,[])
  }
  Add(MathParse,10321937,154,154)
  {
   MathStr="((%1 = 168) + (%1 = 184) + (%1 >= 192) * (%1 <= 255)) * %2"
   link(onResult,11377910:doEvent,[])
   link(X2,1494482:Value,[])
  }
  Add(Convertor,10707034,105,154)
  {
   Mode=3
   link(onResult,10321937:doCalc,[])
  }
  Add(StrCat,402667,371,161)
  {
   Point(doClear)
   link(Str1,14681209:Var1,[(377,152)(359,152)(359,205)])
  }
  Add(DoData,14419447,371,217)
  {
   link(onEventData,1610369:ResultString,[(419,223)(419,83)])
   link(Data,14681209:Var2,[])
  }
  Add(GetDataEx,14681209,371,200)
  {
   link(Data,402667:Result,[])
  }
  Add(Hub,6142680,231,70)
  {
   OutCount=3
   link(onEvent1,402667:doClear,[(351,76)(351,174)])
   link(onEvent2,9992685:doEnum,[(260,83)(260,39)(39,39)(39,160)])
   link(onEvent3,14419447:doData,[(343,90)(343,223)])
  }
  Add(Memory,1494482,161,70)
  {
   link(onData,6142680:doEvent1,[])
  }
  Add(ChanelToIndex,10405018,105,70)
  {
   Count=3
   link(onIndex,1494482:doValue,[])
  }
  Add(IndexToChanel,11377910,210,154)
  {
   Count=3
   Point(Data)
   link(onEvent1,8570262:doWork1,[(254,160)(254,149)(333,149)])
   link(onEvent2,3040051:doModify,[])
   link(onEvent3,7786281:doModify,[(254,174)(254,209)])
   link(Data,9992685:Part,[(216,142)(195,142)(195,198)(69,198)])
  }
END_SDK
Add(KeyMask,2531088,378,441)
{
 @Hint=#7:Ctrl-Up|
 Ctrl=1
 Key=38
 link(onFalse,13703566:doCheckMask,[(422,447)(422,426)(366,426)(366,405)])
 link(onTrue,12888806:doUp,[])
 AddHint(-110,-18,47,13,@Hint)
}
Add(KeyMask,10403116,378,483)
{
 @Hint=#9:Ctrl-Down|
 Ctrl=1
 Key=40
 link(onFalse,2531088:doCheckMask,[(422,489)(422,468)(366,468)(366,447)])
 link(onTrue,12888806:doDown,[(432,496)(432,461)])
 AddHint(-110,-16,61,13,@Hint)
}
Add(Check,2105727,483,224)
{
 Caption="onKeyDown"
 link(onEvent,10403116:doCheckMask,[(573,230)(573,190)(253,190)(253,489)])
}
Add(Check,6781570,546,448)
{
 Caption="doSetSelect"
 link(onEvent,7766550:doSetSelect,[(645,454)(645,293)(422,293)(422,265)])
}
Add(Button,11969675,371,217)
{
 Left=285
 Top=45
 Data=String(dgxdrxd)
 link(onClick,7766550:doAdd,[])
}
Add(KeyMask,11074046,378,357)
{
 @Hint=#2:F3|
 Key=114
 link(onFalse,2952773:doCheckMask,[(422,363)(422,342)(366,342)(366,321)])
 link(onTrue,7640352:doData,[])
 AddHint(-110,-16,27,13,@Hint)
}
Add(KeyMask,13703566,378,399)
{
 @Hint=#2:F2|
 Key=113
 link(onFalse,11074046:doCheckMask,[(422,405)(422,384)(366,384)(366,363)])
 link(onTrue,13047884:doWork,[])
 AddHint(-110,-20,27,13,@Hint)
}
Add(KeyMask,2952773,378,315)
{
 @Hint=#2:F4|
 Key=115
 link(onTrue,16014019:doData,[])
 AddHint(-109,-14,27,13,@Hint)
}
Add(Check,13047884,469,406)
{
 Caption="Parse"
}
Add(DoData,7640352,469,364)
{
 Data=String(*\*1310)
 link(onEventData,10933775:doWork2,[])
}
Add(HubEx,8160523,518,448)
{
 link(onEvent,6781570:doWork,[])
}
Add(DoData,16014019,469,322)
{
 Data=String(1310=====1310)
 link(onEventData,10933775:doWork1,[(522,328)])
}
Add(HubEx,10933775,518,364)
{
 Angle=1
 link(onEvent,8160523:doWork1,[])
}

И нафиг там больше ничего не надо
карма: 22

1
Голосовали:Tad
Ответов: 16884
Рейтинг: 1239
#95: 2010-05-09 12:22:39 ЛС | профиль | цитата
Ты смотри - оказывается можно и без таймеров что-то сделать.
nesco писал(а):
И нафиг там больше ничего не надо

Еще формирование строки для StringTable и имитатор бегущей строки.

------------ Дoбавленo в 11.47:
nesco, ещё бы KeyMask в свойствах Key выпадающий список всех клавиш ему бы цены небыло.
Интересно, кто-то помнит коды всех клавиш наизусть ?
------------ Дoбавленo в 12.20:
С удалением ударений какая-то непонятка. 

Add(MainForm,3011605,182,91)
{
 Width=575
}
Add(Memo,7766550,322,133)
{
 Left=10
 Top=5
 Width=455
 Height=250
 Font=[MS Sans Serif,10,0,0,1]
 Strings=#98:ДОбрый вЕчер! В эфИре - «ВЕсти» из ПетербУрга. В стУдии новостЕй Игорь Страхов. КОротко о глАвном.|0:|85:ВулканИческое Облако над ЕврОпой. ПЕпел ИслАндии изменИл расписАние рЕйсов в ПУлково.|70:МОжно потрАтить бОльше. В городскОм правИтельстве корректИруют бюджЕт.|81:ЛЕнин - снОва с нАми. БрОнзовый вождь вернУлся на плОщадь у ФинлЯндского вокзАла.|94:СлИшком бЫстро рослА и мешАла жить другИм. В Зоопарк из Океанариума переехала реликтовая рыба.|77:Масштабная выставка Исаака Левитана. Русский музей отмечает юбилей художника.|0:|
 Point(onKeyDown)
 Point(SelText)
 Point(doSetSelect)
 link(onKeyDown,4019486:doCheckMask,[(398,146)(398,244)(331,244)(331,209)])
}
Add(MultiElementEx,4019486,343,203)
{
 link(Data,7766550:SelText,[])
 link(onEvent,7766550:doSetSelect,[(387,209)(387,193)(312,193)(312,181)])
}
BEGIN_SDK
  Add(EditMultiEx,9457069,21,21)
  {
   WorkCount=#11:doCheckMask|
   EventCount=#7:onEvent|
   DataCount=#4:Data|
   Height=242
   link(doCheckMask,10403116:doCheckMask,[(35,27)(35,223)])
  }
  Add(MultiElementEx,12888806,126,182)
  {
   @Hint=#56:Переводит кириллические символы в верхний/нижний регистр|
   link(ResultString,8160523:doWork2,[])
   link(Data,9457069:Data,[(132,102)(27,102)])
  }
  BEGIN_SDK
    Add(EditMultiEx,1610369,21,21)
    {
     WorkCount=#4:doUp|6:doDown|
     EventCount=#12:ResultString|0:|
     DataCount=#4:Data|
     Width=426
     Height=270
     VOffset=56
     HOffset=35
     link(doUp,10405018:doWork2,[])
     link(doDown,10405018:doWork3,[])
    }
    Add(Shape,15843163,35,224)
    {
     Width=277
     Text="а-я== 224-255  А-Я== 192-223  Ё== 168  ё== 184 "
     PWidth=2
    }
    Add(StrCase,3040051,266,133)
    {
     Type=1
     link(onModify,8570262:doWork2,[])
    }
    Add(StrCase,7786281,266,175)
    {
     link(onModify,8570262:doWork3,[(333,181)])
    }
    Add(HubEx,8570262,329,133)
    {
     link(onEvent,402667:doStrCat,[(352,139)(352,69)])
    }
    Add(Str_Enum,9992685,56,126)
    {
     Delimiter=""
     link(onEnum,10707034:doConvert,[])
     link(String,1610369:Data,[])
    }
    Add(MathParse,10321937,154,126)
    {
     MathStr="((%1 = 168) + (%1 = 184) + (%1 >= 192) * (%1 <= 255)) * %2"
     link(onResult,11377910:doEvent,[])
     link(X2,1494482:Value,[])
    }
    Add(Convertor,10707034,105,126)
    {
     Mode=3
     link(onResult,10321937:doCalc,[])
    }
    Add(StrCat,402667,371,63)
    {
     Point(doClear)
     link(Str1,14681209:Var1,[(377,54)(411,54)(411,107)])
    }
    Add(DoData,14419447,371,119)
    {
     link(onEventData,1610369:ResultString,[(419,125)(419,83)])
     link(Data,14681209:Var2,[])
    }
    Add(GetDataEx,14681209,371,102)
    {
     link(Data,402667:Result,[])
    }
    Add(Hub,6142680,231,70)
    {
     OutCount=3
     link(onEvent1,402667:doClear,[])
     link(onEvent2,9992685:doEnum,[(260,83)(260,39)(39,39)(39,132)])
     link(onEvent3,14419447:doData,[(364,90)(364,125)])
    }
    Add(Memory,1494482,161,70)
    {
     link(onData,6142680:doEvent1,[])
    }
    Add(ChanelToIndex,10405018,105,70)
    {
     Count=3
     link(onIndex,1494482:doValue,[])
    }
    Add(IndexToChanel,11377910,210,126)
    {
     Count=3
     Point(Data)
     link(onEvent1,8570262:doWork1,[(254,132)(254,121)(333,121)])
     link(onEvent2,3040051:doModify,[])
     link(onEvent3,7786281:doModify,[(254,146)(254,181)])
     link(Data,9992685:Part,[(216,114)(195,114)(195,170)(69,170)])
    }
  END_SDK
  Add(KeyMask,2531088,49,175)
  {
   @Hint=#7:Ctrl-Up|
   Ctrl=1
   Key=38
   link(onFalse,13703566:doCheckMask,[(93,181)(93,160)(37,160)(37,139)])
   link(onTrue,12888806:doUp,[])
   AddHint(-110,-18,47,13,@Hint)
  }
  Add(KeyMask,10403116,49,217)
  {
   @Hint=#9:Ctrl-Down|
   Ctrl=1
   Key=40
   link(onFalse,2531088:doCheckMask,[(93,223)(93,202)(37,202)(37,181)])
   link(onTrue,12888806:doDown,[(103,230)(103,195)])
   AddHint(-110,-16,61,13,@Hint)
  }
  Add(Check,6781570,217,182)
  {
   Caption="doSetSelect"
   link(onEvent,9457069:onEvent,[(308,188)(308,27)])
  }
  Add(KeyMask,11074046,49,91)
  {
   @Hint=#2:F3|
   Key=114
   link(onFalse,2952773:doCheckMask,[(93,97)(93,76)(37,76)(37,55)])
   link(onTrue,7640352:doData,[])
   AddHint(-110,-16,27,13,@Hint)
  }
  Add(KeyMask,13703566,49,133)
  {
   @Hint=#2:F2|
   Key=113
   link(onFalse,11074046:doCheckMask,[(93,139)(93,118)(37,118)(37,97)])
   link(onTrue,13047884:doWork,[])
   AddHint(-110,-20,27,13,@Hint)
  }
  Add(KeyMask,2952773,49,49)
  {
   @Hint=#2:F4|
   Key=115
   link(onTrue,16014019:doData,[])
   AddHint(-109,-14,27,13,@Hint)
  }
  Add(Check,13047884,140,140)
  {
   Caption="Parse"
  }
  Add(DoData,7640352,140,98)
  {
   Data=String(*\*1310)
   link(onEventData,10933775:doWork2,[])
  }
  Add(HubEx,8160523,189,182)
  {
   link(onEvent,6781570:doWork,[])
  }
  Add(DoData,16014019,140,56)
  {
   Data=String(1310=====1310)
   link(onEventData,10933775:doWork1,[(193,62)])
  }
  Add(HubEx,10933775,189,98)
  {
   Angle=1
   link(onEvent,8160523:doWork1,[])
  }
END_SDK
Add(Button,12153148,182,175)
{
 Left=470
 Top=10
 Width=80
 Caption="ударЕние"
 link(onClick,15389493:doLoad,[])
}
Add(MultiElementEx,15389493,245,175)
{
 @Hint=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|0:|14:Новая редакция|
 link(ResultString,7766550:doText,[(299,181)(299,160)])
 link(Data,7766550:Text,[(251,163)(288,163)(288,199)(328,199)])
 AddHint(-47,-124,200,104,@Hint)
}
BEGIN_SDK
  Add(EditMultiEx,1610369,49,91)
  {
   WorkCount=#6:doLoad|0:|
   EventCount=#12:ResultString|0:|
   DataCount=#4:Data|
   Width=531
   Height=214
   VOffset=14
   HOffset=49
   link(doLoad,6142680:doEvent1,[])
  }
  Add(InfoTip,14515840,28,14)
  {
   Info=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|
   Width=358
   Height=60
  }
  Add(StrCase,3040051,427,210)
  {
   link(onModify,8570262:doWork3,[(473,216)])
  }
  Add(HubEx,8570262,469,203)
  {
   link(onEvent,402667:doStrCat,[])
  }
  Add(Str_Enum,9992685,182,189)
  {
   Delimiter=""
   link(onEnum,6752549:doEvent1,[])
  }
  Add(Convertor,10707034,273,203)
  {
   Mode=3
   link(onResult,10321937:doCalc,[])
  }
  Add(StrCat,402667,518,203)
  {
   Point(doClear)
   link(Str1,14681209:Var1,[(524,194)(503,194)(503,247)])
  }
  Add(GetDataEx,14681209,518,242)
  {
   link(Data,402667:Result,[])
  }
  Add(Hub,6142680,63,105)
  {
   OutCount=3
   link(onEvent1,402667:doClear,[(497,111)(497,216)])
   link(onEvent2,1961720:doEnum,[(87,118)(87,195)])
   link(onEvent3,5683228:doTrim,[(489,125)(489,265)])
  }
  Add(Str_Enum,1961720,98,189)
  {
   Delimiter=" "
   link(onEnum,10077282:doStrCat,[])
   link(String,1610369:Data,[])
  }
  Add(MathParse,10321937,322,203)
  {
   MathStr="((%1 = 168) + (%1 >= 192) * (%1 <= 223)) * %2"
   link(onResult,4918618:doEvent,[])
   link(X2,14966587:Value,[])
  }
  Add(StrCat,10077282,140,189)
  {
   Str2=" "
   link(onStrCat,9992685:doEnum,[])
  }
  Add(Trim,5683228,518,259)
  {
   Char=" "
   link(onTrim,1610369:ResultString,[(558,265)(558,111)])
   link(Text,14681209:Var2,[])
  }
  Add(Hub,6752549,224,189)
  {
   OutCount=3
   link(onEvent1,14966587:doClear,[(315,195)(315,167)])
   link(onEvent2,10220044:doEvent,[(256,202)(256,153)])
   link(onEvent3,10707034:doConvert,[])
  }
  Add(Memory,14966587,329,154)
  {
   Default=Integer(1)
  }
  Add(IndexToChanel,4918618,378,203)
  {
   Point(Data)
   link(onEvent1,8570262:doWork2,[])
   link(onEvent2,3040051:doModify,[])
   link(Data,9992685:Part,[(384,191)(367,191)(367,241)(195,241)])
  }
  Add(IndexToChanel,10220044,273,147)
  {
   Point(Index)
   link(onEvent2,14966587:doValue,[])
   link(Index,9992685:NumSubStr,[(279,135)(233,135)(233,233)(188,233)])
  }
END_SDK
Add(Button,11969675,182,133)
{
 Left=470
 Top=45
 Width=80
 Data=String(dgxdrxd)
 link(onClick,7766550:doAdd,[])
}


------------ Дoбавленo в 12.22:
или я не верно подключил ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26322
Рейтинг: 2147
#96: 2010-05-09 12:42:34 ЛС | профиль | цитата
Tad писал(а):
или я не верно подключил ?

Да нет -- верно. А что не так Первые буквы-то не изменяются
------------ Дoбавленo в 12.42:
Tad писал(а):
и без таймеров что-то сделать

А зачем они там Там же не надобности выполнять действия из другой очереди событий
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#97: 2010-05-09 14:11:11 ЛС | профиль | цитата
nesco писал(а):
А что не так
Обрати внимание на первые буквы следующих предложений в нижнем окне."
" наверное путаются под ногами.
Нужно наверное построчно перебрать, а не гамузом.
Не у всех текстовых редакторов строки разделяются
и неизвестно, какими редакторами готовятся дикторские тексты.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1first.png [32.3KB] [248]
Разработчик
Ответов: 26322
Рейтинг: 2147
#98: 2010-05-09 15:28:07 ЛС | профиль | цитата
Tad писал(а):
наверное путаются под ногами

Тогда так

--- Удалено. См ниже --

Там еще одна неточность была в плане первой буквы -- брала абсолютную, а надо первую кириллическую
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#99: 2010-05-09 15:41:47 ЛС | профиль | цитата
Вы что, перед тем как выложить, не проверяете.
code_18157.txt у меня не работает.
При нажатии на "ударение" срабатывает как "удаление " и Memo очищается.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26322
Рейтинг: 2147
#100: 2010-05-09 15:45:25 ЛС | профиль | цитата
Tad писал(а):
у меня не работает

Не может быть, только что загрузил с него и проверил, у меня работает. Не, ну стал бы я выкладывать нерабочий код
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#101: 2010-05-09 15:46:43 ЛС | профиль | цитата
Tad писал(а):
code_18157.txt у меня не работает.
При нажатии на "ударение" срабатывает как "удаление " и Memo очищается.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26322
Рейтинг: 2147
#102: 2010-05-09 15:58:43 ЛС | профиль | цитата
Tad, да, извини, я проверял на правленном KOL'e. Сейчас посмотрю, в чем проблема
------------ Дoбавленo в 15.58:
Тогда, вот так работает 


Add(MainForm,3011605,231,259)
{
 Width=565
}
Add(Memo,7766550,385,217)
{
 Left=10
 Top=5
 Width=455
 Height=250
 Font=[MS Sans Serif,10,0,0,1]
 FileName="Original.txt"
 Strings=#98:ДОбрый вЕчер! В эфИре - «ВЕсти» из ПетербУрга. В стУдии новостЕй Игорь Страхов. КОротко о глАвном.|0:|85:ВулканИческое Облако над ЕврОпой. ПЕпел ИслАндии изменИл расписАние рЕйсов в ПУлково.|70:МОжно потрАтить бОльше. В городскОм правИтельстве корректИруют бюджЕт.|81:ЛЕнин - снОва с нАми. БрОнзовый вождь вернУлся на плОщадь у ФинлЯндского вокзАла.|94:СлИшком бЫстро рослА и мешАла жить другИм. В Зоопарк из Океанариума переехала реликтовая рыба.|77:Масштабная выставка Исаака Левитана. Русский музей отмечает юбилей художника.|0:|
 Point(onKeyDown)
 Point(SelText)
 Point(doSetSelect)
 link(onKeyDown,4019486:doCheckMask,[(460,230)(460,339)(394,339)(394,307)])
}
Add(MultiElementEx,4019486,406,301)
{
 link(onEvent,7766550:doSetSelect,[(451,314)(451,199)(373,199)(373,265)])
 link(Data,7766550:SelText,[])
}
BEGIN_SDK
  Add(EditMultiEx,9457069,28,21)
  {
   WorkCount=#11:doCheckMask|
   EventCount=#8:onEvent1|7:onEvent|
   DataCount=#4:Data|
   Width=318
   Height=249
   VOffset=196
   HOffset=105
   link(doCheckMask,10403116:doCheckMask,[])
  }
  Add(MultiElementEx,12888806,133,182)
  {
   @Hint=#56:Переводит кириллические символы в верхний/нижний регистр|
   link(ResultString,8160523:doWork2,[])
   link(Data,9457069:Data,[])
  }
  BEGIN_SDK
    Add(EditMultiEx,1610369,21,21)
    {
     WorkCount=#4:doUp|6:doDown|
     EventCount=#12:ResultString|0:|
     DataCount=#4:Data|
     Width=426
     Height=270
     VOffset=56
     HOffset=35
     link(doUp,10405018:doWork2,[])
     link(doDown,10405018:doWork3,[])
    }
    Add(Shape,15843163,35,224)
    {
     Width=277
     Text="а-я== 224-255  А-Я== 192-223  Ё== 168  ё== 184 "
     PWidth=2
    }
    Add(StrCase,3040051,266,133)
    {
     Type=1
     link(onModify,8570262:doWork2,[])
    }
    Add(StrCase,7786281,266,175)
    {
     link(onModify,8570262:doWork3,[(333,181)])
    }
    Add(HubEx,8570262,329,133)
    {
     link(onEvent,402667:doStrCat,[(352,139)(352,69)])
    }
    Add(Str_Enum,9992685,56,126)
    {
     Delimiter=""
     link(onEnum,10707034:doConvert,[])
     link(String,1610369:Data,[])
    }
    Add(MathParse,10321937,154,126)
    {
     MathStr="((%1 = 168) + (%1 = 184) + (%1 >= 192) * (%1 <= 255)) * %2"
     link(onResult,11377910:doEvent,[])
     link(X2,1494482:Value,[])
    }
    Add(Convertor,10707034,105,126)
    {
     Mode=3
     link(onResult,10321937:doCalc,[])
    }
    Add(StrCat,402667,371,63)
    {
     Point(doClear)
     link(Str1,14681209:Var1,[(377,54)(411,54)(411,107)])
    }
    Add(DoData,14419447,371,119)
    {
     link(onEventData,1610369:ResultString,[(419,125)(419,83)])
     link(Data,14681209:Var2,[])
    }
    Add(GetDataEx,14681209,371,102)
    {
     link(Data,402667:Result,[])
    }
    Add(Hub,6142680,231,70)
    {
     OutCount=3
     link(onEvent1,402667:doClear,[])
     link(onEvent2,9992685:doEnum,[(260,83)(260,39)(39,39)(39,132)])
     link(onEvent3,14419447:doData,[(364,90)(364,125)])
    }
    Add(Memory,1494482,161,70)
    {
     link(onData,6142680:doEvent1,[])
    }
    Add(ChanelToIndex,10405018,105,70)
    {
     Count=3
     link(onIndex,1494482:doValue,[])
    }
    Add(IndexToChanel,11377910,210,126)
    {
     Count=3
     Point(Data)
     link(onEvent1,8570262:doWork1,[(254,132)(254,121)(333,121)])
     link(onEvent2,3040051:doModify,[])
     link(onEvent3,7786281:doModify,[(254,146)(254,181)])
     link(Data,9992685:Part,[(216,114)(195,114)(195,170)(69,170)])
    }
  END_SDK
  Add(KeyMask,2531088,56,175)
  {
   @Hint=#7:Ctrl-Up|
   Ctrl=1
   Key=38
   link(onFalse,13703566:doCheckMask,[(100,181)(100,160)(44,160)(44,139)])
   link(onTrue,12888806:doUp,[])
   AddHint(50,-17,47,13,@Hint)
  }
  Add(KeyMask,10403116,56,217)
  {
   @Hint=#9:Ctrl-Down|
   Ctrl=1
   Key=40
   link(onFalse,2531088:doCheckMask,[(100,223)(100,202)(44,202)(44,181)])
   link(onTrue,12888806:doDown,[(110,230)(110,195)])
   AddHint(52,18,61,13,@Hint)
  }
  Add(Check,6781570,217,182)
  {
   Caption="doSetSelect"
   link(onEvent,9457069:onEvent,[(312,188)(312,230)])
  }
  Add(KeyMask,11074046,56,91)
  {
   @Hint=#2:F3|
   Key=114
   link(onFalse,2952773:doCheckMask,[(100,97)(100,76)(44,76)(44,55)])
   link(onTrue,7640352:doData,[])
   AddHint(50,-18,27,13,@Hint)
  }
  Add(KeyMask,13703566,56,133)
  {
   @Hint=#2:F2|
   Key=113
   link(onFalse,11074046:doCheckMask,[(100,139)(100,118)(44,118)(44,97)])
   link(onTrue,13047884:doWork,[])
   AddHint(48,-17,27,13,@Hint)
  }
  Add(KeyMask,2952773,56,49)
  {
   @Hint=#2:F4|
   Key=115
   link(onTrue,16014019:doData,[])
   AddHint(49,-16,27,13,@Hint)
  }
  Add(Check,13047884,147,140)
  {
   Caption="Parse"
   link(onEvent,9457069:onEvent1,[(320,146)(320,223)])
  }
  Add(DoData,7640352,147,98)
  {
   Data=String(*\\*\13\10)
   link(onEventData,10933775:doWork2,[])
  }
  Add(HubEx,8160523,196,182)
  {
   link(onEvent,6781570:doWork,[])
  }
  Add(DoData,16014019,147,56)
  {
   Data=String(\13\10=====\13\10)
   link(onEventData,10933775:doWork1,[(200,62)])
  }
  Add(HubEx,10933775,196,98)
  {
   Angle=1
   link(onEvent,8160523:doWork1,[])
  }
END_SDK
Add(Button,12153148,231,301)
{
 Left=470
 Top=10
 Width=80
 Caption="ударЕние"
 link(onClick,15389493:doLoad,[])
}
Add(MultiElementEx,15389493,294,301)
{
 @Hint=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|0:|14:Новая редакция|
 link(Data,7766550:Array,[(300,285)(405,285)])
 link(onEvent4,7766550:doText,[(356,307)(356,244)])
 AddHint(-215,45,200,104,@Hint)
}
BEGIN_SDK
  Add(EditMultiEx,1610369,28,91)
  {
   WorkCount=#6:doLoad|0:|
   EventCount=#8:onEvent4|
   DataCount=#4:Data|
   Width=713
   Height=277
   VOffset=28
   HOffset=42
   link(doLoad,2545313:doEvent1,[])
  }
  Add(InfoTip,14515840,28,14)
  {
   Info=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|
   Width=358
   Height=60
  }
  Add(StrCase,3040051,539,210)
  {
   link(onModify,8570262:doWork2,[])
  }
  Add(HubEx,8570262,581,210)
  {
   link(onEvent,402667:doStrCat,[])
  }
  Add(Str_Enum,9992685,287,196)
  {
   Delimiter=""
   link(onEnum,6752549:doEvent1,[])
  }
  Add(Convertor,10707034,371,154)
  {
   Mode=3
   link(onResult,10321937:doCalc,[])
  }
  Add(StrCat,402667,623,210)
  {
   Point(doClear)
   link(Str1,14681209:Var1,[(629,201)(608,201)(608,254)])
  }
  Add(GetDataEx,14681209,623,249)
  {
   link(Data,402667:Result,[])
  }
  Add(Hub,6142680,126,126)
  {
   OutCount=3
   link(onEvent1,402667:doClear,[(601,132)(601,223)])
   link(onEvent2,1961720:doEnum,[(150,139)(150,174)])
   link(onEvent3,5683228:doTrim,[(594,146)(594,272)])
  }
  Add(Str_Enum,1961720,161,168)
  {
   Delimiter=" "
   link(onEnum,10077282:doStrCat,[])
  }
  Add(MathParse,10321937,413,154)
  {
   DataCount=1
   MathStr="(%1 = 168) + (%1 = 184) + (%1 >= 192) * (%1 <= 255)"
   ResultType=0
   link(onResult,8306629:doCase,[])
  }
  Add(StrCat,10077282,203,168)
  {
   Str2=" "
   link(onStrCat,13276338:doEvent1,[])
  }
  Add(Trim,5683228,623,266)
  {
   Char=" "
   link(onTrim,9824336:doAdd,[])
   link(Text,14681209:Var2,[])
  }
  Add(Hub,6752549,336,196)
  {
   link(onEvent1,10707034:doConvert,[(360,202)(360,160)])
   link(onEvent2,5987410:doEvent,[])
  }
  Add(ArrayEnum,7677271,70,126)
  {
   link(onItem,6142680:doEvent1,[])
   link(onEndEnum,8975739:doData,[(118,139)(118,335)])
   link(Array,1610369:Data,[])
  }
  Add(Counter,10115951,497,154)
  {
   Max=1000
   Default=1
  }
  Add(IndexToChanel,5987410,413,203)
  {
   Point(Index)
   Point(Data)
   link(onEvent1,8570262:doWork1,[(585,209)])
   link(onEvent2,5628265:doCompare,[])
   link(Index,10321937:Result,[])
   link(Data,9992685:Part,[(426,194)(457,194)(457,242)(300,242)])
  }
  Add(Hub,13276338,245,168)
  {
   link(onEvent1,10115951:doReset,[])
   link(onEvent2,9992685:doEnum,[(273,181)(273,202)])
  }
  Add(If_else,5628265,497,210)
  {
   Type=2
   Op2=Integer(1)
   link(onTrue,3040051:doModify,[])
   link(onFalse,8570262:doWork3,[(585,223)])
   link(Op1,10115951:Count,[])
  }
  Add(Case,8306629,455,154)
  {
   DataOnTrue=Integer(0)
   link(onNextCase,10115951:doNext,[])
  }
  Add(StrList,9824336,679,266)
  {
  }
  Add(DoData,8975739,679,329)
  {
   link(onEventData,1610369:onEvent4,[(726,335)(726,125)])
   link(Data,9824336:Text,[])
  }
  Add(Hub,2545313,42,119)
  {
   link(onEvent1,9824336:doClear,[(659,125)(659,279)])
   link(onEvent2,7677271:doEnum,[])
  }
END_SDK
Add(Button,11969675,231,217)
{
 Left=470
 Top=45
 Width=80
 Data=String(dgxdrxd)
 link(onClick,7766550:doAdd,[])
}
карма: 22

0
файлы: 1keyboardinterface_6.sha [9KB] [196]
Ответов: 8974
Рейтинг: 824
#103: 2010-05-09 15:59:58 ЛС | профиль | цитата
nesco, админы просто обязаны "купить трамвай и ездить, как все" - иметь для пробы чистую, не правленную версию HiAsm
карма: 19

0
Разработчик
Ответов: 26322
Рейтинг: 2147
#104: 2010-05-09 16:02:08 ЛС | профиль | цитата
Почему-то ArrayRW не хочет работать совместно ArrayEnum в стандартном KOL, честно -- не помню с чем это связано, но в исправленом KOL все нормально
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#105: 2010-05-09 16:03:33 ЛС | профиль | цитата
Зато под FPC работает отлично.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
ФорумыПрочееВывод текста как строки в таблице многострочно - как? ← Ctrl12345678910111213Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика