HiAsm
HiAsm
Вверх ↑
ФорумыКомпонентыWMPlaer ← Ctrl1234Ctrl →
Этот топик читают: Гость
Ответов: 5227
Рейтинг: 587
#1: 2012-12-06 09:00:03 ЛС | профиль | цитата
радио + плюс плейлисты, реинкорнация скриптового варианта в компоненте, (только для делфи компилятора). wmplayer v1.0.zip
p.s припадок ностальгии перед концом света, который похоже не лечиться
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 8930
Рейтинг: 823
#2: 2012-12-06 10:52:07 ЛС | профиль | цитата
andrestudio,
карма: 19

0
Ответов: 165
Рейтинг: 6
#3: 2012-12-07 00:26:20 ЛС | профиль | цитата
"Формат файлов поддерживаемых штатным WMPlayer" - учитывая форматы при установленном K-Lite Mega Codec Pack?
карма: 4

0
Ответов: 5227
Рейтинг: 587
#4: 2012-12-07 08:00:27 ЛС | профиль | цитата
Nickname, да, в любом случае о не поддерживаемом формате файла получите форточку от майкрософт (так уж устроен их контрол).
Леонид, [flood]это диагноз, с этим и живу [/flood]
------------ Дoбавленo в 08.00:
да кстати, может кто знает как в StringTable перемещать строки, сам изящного решения не нашёл (огород получался), пришлось писать процедуру, хотя задачка то два пальца об...ть, нужно обменять два значение в массиве, может у кого есть варианты? Вот шаблон если что 
Add(MainForm,2953706,49,70)
{
 Width=501
 Height=267
 link(onCreate,15529308:doFor,[])
}
Add(ListBox,6713694,329,119)
{
 Left=10
 Top=10
 Width=190
 Height=210
 Point(Index)
 Point(doUp)
 Point(doDown)
}
Add(For,15529308,112,84)
{
 End=20
 link(onEvent,11840486:doStrCat,[])
}
Add(StrCat,11840486,175,84)
{
 Str1="name- "
 link(onStrCat,534043:doEvent1,[])
}
Add(Button,13842813,238,161)
{
 Left=210
 Top=10
 Width=25
 Caption="+"
 link(onClick,6713694:doUp,[])
}
Add(Button,622049,238,203)
{
 Left=210
 Top=35
 Width=25
 Caption="-"
 link(onClick,6713694:doDown,[(300,209)(300,174)])
}
Add(Hub,534043,238,84)
{
 link(onEvent1,14305467:doAdd,[])
 link(onEvent2,6713694:doAdd,[(290,97)(290,125)])
}
Add(StringTable,14305467,504,84)
{
 Left=250
 Top=10
 Width=190
 Height=210
 Columns=#4:name|
 Point(Strings)
 Point(Index)
}
Add(Button,4403132,427,161)
{
 Left=450
 Top=10
 Width=25
 Caption="+"
}
Add(Button,2173848,427,203)
{
 Left=450
 Top=35
 Width=25
 Caption="-"
}
Add(InfoTip,13190151,504,161)
{
 Info=#0:|1:?|
 Font=[MS Sans Serif,24,0,255,1]
 Height=74
}
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1536
Рейтинг: 176
#5: 2012-12-07 09:14:30 ЛС | профиль | цитата
andrestudio писал(а):
как в StringTable перемещать строки

andrestudio, MST_RowAction
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#6: 2012-12-07 09:22:52 ЛС | профиль | цитата
ser_davkin, а прочитать внимательнее

andrestudio писал(а):
как в StringTable перемещать строки

где там сказано про MTStrTbl
карма: 22

0
Ответов: 1536
Рейтинг: 176
#7: 2012-12-07 09:28:59 ЛС | профиль | цитата
nesco писал(а):
где там сказано про MTStrTbl
Так, чтобы не строить огород из StringTable, я бы пошёл более коротким путём, используя индиго-брата близнеца MTStrTbl. Тем более, в ссылке есть соответственный пример использования.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 5227
Рейтинг: 587
#8: 2012-12-07 10:14:21 ЛС | профиль | цитата
ser_davkin, что поделать, видать я слишком консервативный (нигде не применял этой таблицы, да и не изучал её собственно).
Я так понимаю в составе элементов для работы с массивами нет такой возможности, nesco, неужели это так .
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Разработчик
Ответов: 26170
Рейтинг: 2127
#9: 2012-12-07 10:22:13 ЛС | профиль | цитата
andrestudio писал(а):
Я так понимаю в составе элементов для работы с массивами нет такой возможности

Да никто и не думал об этом. К тому же, в таблице нет основного массива, там -- матрица. А это уже двумерный массив, к нему компоненты обычного массива не покатят
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#10: 2012-12-07 11:02:12 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2025-01-19 12:47:42
карма: 0

0
Ответов: 8930
Рейтинг: 823
#11: 2012-12-07 11:12:38 ЛС | профиль | цитата
andrestudio, менять местами строки: code_29686.txt
карма: 19

1
файлы: 1code_29686.txt [1.4KB] [444]
Голосовали:andrestudio
Ответов: 1536
Рейтинг: 176
#12: 2012-12-07 11:20:10 ЛС | профиль | цитата
г. ость, третий вариант:
Add(MainForm,14090987,112,140)
{
 Width=475
 Height=202
 BorderStyle=1
 Position=1
 link(onCreate,4805812:doEnum,[])
}
Add(StringTable,14305467,266,154)
{
 Left=105
 Top=10
 Width=190
 Height=105
 Columns=#4:name|3:cnt|
 Point(Strings)
 Point(Index)
 Point(doSelect)
 Point(onKeyDown)
}
Add(UpDown,11193467,238,238)
{
 Left=305
 Top=10
 Max=0
 Min=1
 link(onPosition,2787311:doWork1,[])
}
Add(MultiElement,2787311,280,238)
{
 link(onEvent1,14305467:doSelect,[(341,244)(341,220)(254,220)(254,195)])
 link(Data1,14305467:Strings,[])
 link(Data2,14305467:Index,[])
}
BEGIN_SDK
  Add(EditMulti,7282851,91,77)
  {
   EventCount=1
   WorkCount=1
   DataCount=2
   Width=328
   Height=158
   link(doWork1,5200950:doCalc,[(119,83)(119,160)])
  }
  Add(ArrayRW,101488,308,154)
  {
   link(onRead,13875084:doEvent1,[])
   link(Array,2731264:Var3,[(314,103)])
   link(Index,585156:Var3,[(321,96)])
   link(Value,4225177:Item,[(328,145)(290,145)(290,193)(258,193)])
  }
  Add(ArrayRW,4225177,252,154)
  {
   link(onRead,101488:doRead,[])
   link(Array,2731264:Var2,[])
   link(Index,5200950:Result,[(265,139)(234,139)(234,198)(153,198)])
   link(Value,101488:Item,[(272,135)(388,135)(388,209)(314,209)])
  }
  Add(Hub,13875084,350,154)
  {
   link(onEvent1,4225177:doWrite,[(379,160)(379,201)(240,201)(240,167)])
   link(onEvent2,101488:doWrite,[(370,167)(370,192)(297,192)(297,167)])
  }
  Add(GetDataEx,2731264,252,98)
  {
   Angle=3
   link(Data,7282851:Data1,[(97,103)])
  }
  Add(GetDataEx,585156,154,91)
  {
   Angle=3
   link(Data,7282851:Data2,[(104,96)])
  }
  Add(Hub,14870610,196,154)
  {
   link(onEvent1,4225177:doRead,[])
   link(onEvent2,7282851:onEvent1,[(223,167)(223,83)])
  }
  Add(MathParse,5200950,147,154)
  {
   MathStr="(%1=0)*(%2-1)+
(%1=1)*(%2+1)"
   link(onResult,14870610:doEvent1,[])
   link(X2,585156:Var2,[])
  }
END_SDK
Add(ArrayEnum,4805812,168,154)
{
 link(onItem,10451949:doStrCat,[])
 link(Array,9184011:Array,[])
}
Add(StrCat,10451949,210,154)
{
 Str2=";23"
 link(onStrCat,14305467:doAdd,[])
}
Add(StrList,9184011,154,91)
{
 Strings=#8:Строка 0|8:Строка 1|8:Строка 2|8:Строка 3|8:Строка 4|8:Строка 5|
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

1
Голосовали:andrestudio
Ответов: 5227
Рейтинг: 587
#13: 2012-12-07 11:29:31 ЛС | профиль | цитата
Леонид, зачётная схема, я тоже хабами хотел было делать, но так замкнуло что-то что и не смог
Вот на всякий пожарный ic сделал. Может кому сгодится code_29687.txt
------------ Дoбавленo в 11.29:
ser_davkin, отлично.

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_29687.txt [843B] [305]
Разработчик
Ответов: 26170
Рейтинг: 2127
#14: 2012-12-07 13:19:50 ЛС | профиль | цитата
Мои пять копеек -- никаких массивов

Add(MainForm,1094691,210,154)
{
 Width=501
 Height=267
 link(onCreate,15529308:doFor,[])
}
Add(For,15529308,273,168)
{
 End=20
 link(onEvent,11840486:doStrCat,[])
}
Add(StrCat,11840486,322,168)
{
 Str1="name- "
 link(onStrCat,2911099:doEvent1,[])
}
Add(StringTable,14305467,602,175)
{
 Left=250
 Top=10
 Width=190
 Height=210
 Columns=#4:name|
 Point(Strings)
 Point(Index)
 Point(doInsert)
 Point(doSelect)
 Point(doSetFocus)
 link(Str,10081559:Value,[])
}
Add(Button,4403132,203,315)
{
 Left=450
 Top=10
 Width=25
 Caption="+"
 Data=Integer(-1)
 link(onClick,4725501:doWork2,[])
}
Add(Button,2173848,203,364)
{
 Left=450
 Top=35
 Width=25
 Caption="-"
 Data=Integer(2)
 link(onClick,4725501:doWork3,[(284,370)])
}
Add(Memory,10081559,602,119)
{
}
Add(DoData,812015,609,315)
{
 link(onEventData,10189420:doWork1,[(653,321)(653,174)])
 link(Data,14305467:Select,[])
}
Add(Hub,2911099,525,168)
{
 link(onEvent1,10189420:doWork2,[])
 link(onEvent2,14305467:doAdd,[])
}
Add(Math,12921552,308,315)
{
 ResultType=0
 link(onResult,1261539:doCompare,[])
 link(Op1,10397462:Var1,[(314,257)])
}
Add(If_else,8551131,413,315)
{
 Type=3
 link(onTrue,7053708:doEvent1,[])
 link(onFalse,12053238:doWork3,[(458,328)])
 link(Op2,14305467:Count,[(426,249)(608,249)])
}
Add(Hub,7053708,469,315)
{
 OutCount=5
 link(onEvent1,812015:doData,[])
 link(onEvent2,14305467:doInsert,[(580,328)(580,216)])
 link(onEvent3,1363019:doValue,[(508,335)(508,279)])
 link(onEvent4,1335981:doCalc,[])
 link(onEvent5,5289824:doWork3,[(499,349)])
}
Add(Memory,1363019,525,273)
{
 Point(Data)
 link(onData,14305467:doDelete,[(571,279)(571,195)])
 link(Data,10397462:Var2,[])
}
Add(If_else,1261539,357,315)
{
 Type=5
 Op2=Integer(-1)
 link(onTrue,8551131:doCompare,[])
 link(onFalse,12053238:doWork2,[(402,328)(402,230)])
}
Add(MathParse,1335981,518,336)
{
 MathStr="(((%1 - %2) < 0) * (%1 - %2)) + (((%1 - %2) > 0) * ((%1 - %2) / 2)) + %2 "
 ResultType=0
 link(onResult,14305467:doSelect,[(589,342)(589,223)])
 link(X2,1363019:Value,[])
}
Add(HubEx,10189420,567,168)
{
 Angle=3
 link(onEvent,10081559:doValue,[(571,125)])
}
Add(GetDataEx,10397462,525,252)
{
 Angle=1
 link(Data,14305467:Index,[(629,257)])
}
Add(HubEx,5289824,495,224)
{
 link(onEvent,14305467:doSetFocus,[])
}
Add(HubEx,12053238,454,224)
{
 link(onEvent,5289824:doWork2,[])
}
Add(HubEx,4725501,280,315)
{
 link(onEvent,12921552:doOperation,[])
}
карма: 22

0
Ответов: 1536
Рейтинг: 176
#15: 2012-12-07 14:06:17 ЛС | профиль | цитата
andrestudio, усовершенствовал прошлую свою схему, добавив сохранение выделенной строки:
Add(MainForm,14090987,357,126)
{
 Width=475
 Height=202
 BorderStyle=1
 Position=1
 link(onCreate,4805812:doEnum,[])
}
Add(StringTable,14305467,476,140)
{
 Left=105
 Top=10
 Width=190
 Height=140
 Columns=#4:name|3:cnt|
 Point(Strings)
 Point(Index)
 Point(doSelect)
 Point(onKeyDown)
}
Add(UpDown,11193467,441,224)
{
 Left=305
 Top=10
 Max=0
 Min=1
 link(onPosition,2787311:doWork1,[])
}
Add(MultiElement,2787311,483,224)
{
 link(onEvent1,14305467:doSelect,[(551,230)(551,206)(464,206)(464,181)])
 link(Data1,14305467:Count,[(489,204)(482,204)])
 link(Data2,14305467:Strings,[])
 link(Data3,14305467:Index,[])
}
BEGIN_SDK
  Add(EditMulti,7282851,91,77)
  {
   EventCount=1
   WorkCount=1
   DataCount=3
   Width=356
   Height=158
   link(doWork1,5200950:doCalc,[(133,83)(133,160)])
  }
  Add(ArrayRW,101488,329,154)
  {
   link(onRead,13875084:doEvent1,[])
   link(Array,2731264:Var3,[(335,103)])
   link(Index,2385474:Var3,[(342,96)])
   link(Value,4225177:Item,[(349,145)(311,145)(311,193)(279,193)])
  }
  Add(ArrayRW,4225177,273,154)
  {
   link(onRead,101488:doRead,[])
   link(Array,2731264:Var2,[])
   link(Index,5200950:Result,[(286,141)(246,141)(246,198)(160,198)])
   link(Value,101488:Item,[(293,135)(409,135)(409,209)(335,209)])
  }
  Add(Hub,13875084,371,154)
  {
   link(onEvent1,4225177:doWrite,[(400,160)(400,201)(261,201)(261,167)])
   link(onEvent2,101488:doWrite,[(391,167)(391,192)(318,192)(318,167)])
  }
  Add(GetDataEx,2731264,273,98)
  {
   Angle=3
   link(Data,7282851:Data2,[(104,103)])
  }
  Add(Hub,14870610,203,154)
  {
   link(onEvent1,4225177:doRead,[])
   link(onEvent2,7282851:onEvent1,[(231,167)(231,83)])
  }
  Add(MathParse,5200950,154,154)
  {
   DataCount=3
   MathStr="((%1=0)and(%3>0))*(%3-1)+
((%1=1)and((%3+1)<%2))*(%3+1)+
((%1=1)and((%3+1)=%2))*(%2-1)"
   link(onResult,14870610:doEvent1,[])
   link(X2,7282851:Data1,[(167,116)(97,116)])
   link(X3,2385474:Var2,[])
  }
  Add(GetDataEx,2385474,168,91)
  {
   Angle=3
   link(Data,7282851:Data3,[(111,96)])
  }
END_SDK
Add(ArrayEnum,4805812,413,140)
{
 link(onItem,14305467:doAdd,[])
 link(Array,9184011:Array,[])
}
Add(StrList,9184011,399,77)
{
 Strings=#12:Строка 0;про|12:Строка 1;про|12:Строка 2;про|12:Строка 3;про|12:Строка 4;про|12:Строка 5;про|
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
ФорумыКомпонентыWMPlaer ← Ctrl1234Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика