Достаточтно нажать Ctrl+С - копировать Ctrl+V - Вставить.

[code:1]Add(RadioButton,14165101,119,35) {
Left=115
Top=35
Font=[MS Sans Serif,8,0,0]
link(onSelect,4082201:doText,[])
}
Add(RadioButton,15032737,126,91)
{
Left=115
Top=60
Font=[MS Sans Serif,8,0,0]
link(onSelect,2110645:doText,[])
}
Add(Label,4082201,182,35)
{
Left=195
Top=35
Font=[MS Sans Serif,8,0,0]
link(Text,14165101:Selected,[(188,25)(167,25)(167,77)(125,77)])
}
Add(Label,2110645,182,91)
{
Left=195
Top=65
Font=[MS Sans Serif,8,0,0]
link(Text,15032737:Selected,[(188,81)(170,81)(170,133)(132,133)])
}[/code:1]

Что сдесь не так и почему "1" на "0" и на оборот не меняется.
[b]MarGoo[/b],спасибо, это я знаю а вот горячая Ctrl+R почемуто не срабатывает.

[code:1]Add(RadioButton,14165101,266,84) {
Left=115
Top=35
Font=[MS Sans Serif,8,0,0]
link(onSelect,12776194:doEvent1,[(308,90)(308,131)(178,131)(178,195)])
}
Add(RadioButton,15032737,273,203)
{
Left=115
Top=60
Font=[MS Sans Serif,8,0,0]
link(onSelect,12776194:doEvent2,[(321,209)(321,244)(179,244)(179,202)])
}
Add(Label,4082201,350,140)
{
Left=195
Top=35
Font=[MS Sans Serif,8,0,0]
}
Add(Label,2110645,357,252)
{
Left=195
Top=65
Font=[MS Sans Serif,8,0,0]
}
Add(DoData,14703931,266,140)
{
link(onEventData,4082201:doText,[(313,146)(313,146)])
link(Data,14165101:Selected,[(272,128)(272,128)])
}
Add(DoData,1362125,273,252)
{
link(onEventData,2110645:doText,[(327,258)(327,258)])
link(Data,15032737:Selected,[])
}
Add(Hub,12776194,189,189)
{
InCount=2
link(onEvent1,14703931:doData,[(243,195)(243,146)])
link(onEvent2,1362125:doData,[(247,202)(247,258)])
}
[/code:1]

[code:1]Add(RadioButton,9308004,77,56) {
Left=75
Top=25
Font=[MS Sans Serif,8,0,0]
}
Add(RadioButton,7677590,77,112)
{
Left=75
Top=80
Font=[MS Sans Serif,8,0,0]
}
Add(Label,10707346,196,63)
{
Left=155
Top=30
Font=[MS Sans Serif,8,0,0]
link(Text,9308004:Selected,[(202,46)(132,46)(132,98)(83,98)])
}
Add(Label,16626578,154,112)
{
Left=155
Top=80
Font=[MS Sans Serif,8,0,0]
link(Text,7677590:Selected,[(160,102)(132,102)(132,154)(83,154)])
}
Add(Timer,14120186,70,14)
{
Interval=100
link(onTimer,5739930:doEvent1,[(117,20)(117,13)])
}
Add(Hub,5739930,133,7)
{
link(onEvent1,10707346:doText,[(180,13)(180,69)])
link(onEvent2,16626578:doText,[(175,20)(175,75)(144,75)(144,118)])
}
[/code:1]
А так тоже можно.

Tad, вот наблюдаю я, что в этом топике Вы ненавязчиво подняли следующие вопросы:
1) Шаблонный вывод числовых значений
2) Разница в контекстных меню элементов Memo и RichEdit
3) Сбой среды при игрушках с окнами.
4) Заказ на на иную логику работы AutoSize в Label
5) Обсуждение параметров тренажера "Морзянка"
6) Неработоспособность хоткэев (Ctrl+R)
7) Вопрос - как работать с РадиоБатоном.
===============================
Все эти вопросы бесконечно интересны, безусловно. Если бы находились в разных топиках. Причем, далеко не все из выше перечисленного закончено - трудно как-то разговаривать дальше. В смысле, не ясно, о чем вести речь.

Уверяю Вас, это помогло бы другим нашим коллегам лучше ориентироваться в происходящем.
Форум все же публичное место - не только для себя пишем, ИМХО

Galkov, Вы безусловно правы! Это просто случайно получилось. Увидел "По тестовой версии 3.5 138" и начал писать здесь. За морзянку-виноват. Признаю. В дальнейшем буду осмотрительней... Вообще то искать проблемы в программах - это моя бывшая специальность. Сейчас на пенсии. Увидел HiAsm и потянуло на старое. Если что не так - извините

хотелось бы не только, но и символьных и в перемешку.

С Dll при изменении значений не хотит работать схемка
выдает Runtime 216 at 00001c94 со второго вызова при компилятре Delphi, а с FPC приложению и с первого вызова кердык
-- ежели запускать несколько приложений усе нормально но только с первым вызовом

схемка
[code:1]Add(MainForm,12565666,21,105) {
Left=20
Top=105
Font=[MS Sans Serif,8,0,0]
}
Add(Button,3946625,28,42)
{
Left=10
Top=20
Font=[MS Sans Serif,8,0,0]
link(onClick,8792762:Rez,[(100,48)(100,139)])
}
Add(Edit,2634159,105,42)
{
Left=75
Top=20
Font=[MS Sans Serif,8,0,0]
Text=""
DataType=1
}
Add(Edit,16327866,154,35)
{
Left=150
Top=20
Font=[MS Sans Serif,8,0,0]
Text=""
DataType=1
}
Add(Label,1957284,245,49)
{
Left=110
Top=60
Font=[MS Sans Serif,8,0,0]
}
Add(UseHiDLL,8792762,140,133)
{
DLLName="dll"
link(Sum,1957284:doText,[(194,139)(194,55)])
link(1,2634159:Text,[(146,104)(111,104)])
link(2,16327866:Text,[(153,104)(160,104)])
}
[/code:1]

Dll-ка
[code:1]Add(DLL,5275894,105,56) {
WorkPoints='Sum'
EventPoints='Rez'
VarPoints='1','2'
link(Rez,7705706:doOperation,[(147,62)(147,100)(95,100)(95,153)])
}
Add(Math,7705706,105,147)
{
link(onResult,5275894:Sum,[(147,153)(147,118)(95,118)(95,62)])
link(Op1,5275894:1,[])
link(Op2,5275894:2,[])
}
[/code:1]

Да, это происходит при использовании UseHiDll
c CallDll по другому, с FPC все нормально а с Delphi
c с первого раза независимо от задаваемых чисел будет 0 а потом не понял от чего зависит когда посчитает а в большинстве 0

Не пойму...когда ставишь 3 формфы...то всё скрывается и показывается нормально, а когда 4 и более, то бида...
[code:1] Add(ChildPanel,13413743,537,259)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,7400185,3,3)
{
WorkCount=1
link(doWork1,16022919:doVisible,[(19,9)(19,125)])
}
Add(Panel,16022919,35,105)
{
Left=158
Top=7
Font=[MS Sans Serif,8,0,0]
Caption="1"
Point(doVisible)
}
END_SDK
Add(ChildPanel,2274701,536,301)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,6540460,3,3)
{
WorkCount=1
link(doWork1,6760292:doVisible,[(19,9)(19,125)])
}
Add(Panel,6760292,35,105)
{
Left=158
Top=61
Font=[MS Sans Serif,8,0,0]
Visible=1
Caption="2"
Point(doVisible)
}
END_SDK
Add(ChildPanel,13275477,544,351)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,3061569,3,3)
{
WorkCount=1
link(doWork1,13858361:doVisible,[(19,9)(19,125)])
}
Add(Panel,13858361,35,105)
{
Left=157
Top=114
Font=[MS Sans Serif,8,0,0]
Visible=1
Caption="3"
Point(doVisible)
}
END_SDK
Add(ChildPanel,9964884,545,395)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,1968692,3,3)
{
WorkCount=1
link(doWork1,5139760:doVisible,[(19,9)(19,125)])
}
Add(Panel,5139760,34,105)
{
Left=157
Top=168
Font=[MS Sans Serif,8,0,0]
Visible=1
Caption="4"
Point(doVisible)
}
END_SDK
Add(ChanelToIndex,94870,190,365)
{
Count=4
link(onIndex,16460938:doRead,[(248,371)(248,370)])
}
Add(IntToBits,85704,334,361)
{
Count=4
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,13413743:doWork1,[(451,367)(451,265)])
link(onBit2,2274701:doWork1,[(451,374)(451,307)])
link(onBit3,13275477:doWork1,[(455,381)(455,357)])
link(onBit4,9964884:doWork1,[(455,388)(455,401)])
}
Add(ArrayRW,16460938,266,364)
{
link(onRead,85704:doBits,[(320,370)(320,367)])
link(Array,8606622:Array,[(272,351)(266,351)])
}
Add(IntegerArray,8606622,260,306)
{
IntArray=[1=1,2=2,3=3,4=4]
UseName=0
}
Add(Button,12416009,33,283)
{
Left=344
Top=163
Font=[MS Sans Serif,8,0,0]
link(onClick,94870:doWork1,[(139,289)(139,371)])
}
Add(Button,3990437,33,325)
{
Left=344
Top=203
Font=[MS Sans Serif,8,0,0]
link(onClick,94870:doWork2,[(139,331)(139,378)])
}
Add(Button,15894551,40,367)
{
Left=354
Top=248
Font=[MS Sans Serif,8,0,0]
link(onClick,94870:doWork3,[(142,373)(142,385)])
}
Add(Button,12885575,47,416)
{
Left=360
Top=283
Font=[MS Sans Serif,8,0,0]
link(onClick,94870:doWork4,[(146,422)(146,392)])
}

[/code:1]

S_E_A, а ничего такого не подтверждается
1) Под Дельфи все нормально в любом варианте: хоть с первого, хоть со второго, хоть два проекта сразу.....
2) Под FPC dll-ка просто не компилируется:
[code:1]Compiling D:HIASMElementscodedll.dpr Compiling resource D:HIASMElementscodeallres.res
Linking D:HiAsmdll.dll
dll.dpr(144,1) Error: Error while linking
dll.dpr(144,1) Warning: Object wdllprt0.o not found, Linking may fail !
Closing script D:HiAsmppas.bat
Delete temp files
Error: D:HIASMCOMPILERFPCppc386.exe returned an error exitcode (normal if you did not specifiy a source file to be compiled)
End build
Free Pascal Compiler version 1.9.6 [2004/12/31] for i386[/code:1]
Вот и интересно, где Вы взяли wdllprt0 - нет такой буквы в этом слове :!:
3) dll-ка из под Дельфи, прога под FPC - врет собака :!: А это странно, однако........

На мой вопрос ВЫШЕ можно не отвечать...ответил сам себе

да простит нас Galkov, (за забивание топика)
[code:1]Add(ChildPanel,13413743,320,171) {
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,7400185,3,3)
{
WorkCount=1
link(doWork1,16022919:doVisible,[(19,9)(19,125)])
}
Add(Panel,16022919,35,105)
{
Left=158
Top=7
Font=[MS Sans Serif,8,0,0]
Caption="1"
Point(doVisible)
}
END_SDK
Add(ChildPanel,2274701,319,206)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,6540460,3,3)
{
WorkCount=1
link(doWork1,6760292:doVisible,[(19,9)(19,125)])
}
Add(Panel,6760292,35,105)
{
Left=158
Top=61
Font=[MS Sans Serif,8,0,0]
Visible=1
Caption="2"
Point(doVisible)
}
END_SDK
Add(ChildPanel,13275477,320,242)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,3061569,3,3)
{
WorkCount=1
link(doWork1,13858361:doVisible,[(19,9)(19,125)])
}
Add(Panel,13858361,35,105)
{
Left=157
Top=114
Font=[MS Sans Serif,8,0,0]
Visible=1
Caption="3"
Point(doVisible)
}
END_SDK
Add(ChildPanel,9964884,321,277)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,1968692,3,3)
{
WorkCount=1
link(doWork1,5139760:doVisible,[(19,9)(19,125)])
}
Add(Panel,5139760,34,105)
{
Left=157
Top=168
Font=[MS Sans Serif,8,0,0]
Visible=1
Caption="4"
Point(doVisible)
}
END_SDK
Add(Hub,861234,182,171)
{
InCount=4
OutCount=1
link(onEvent1,85704:doBits,[])
}
Add(IntToBits,85704,236,171)
{
Count=4
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,13413743:doWork1,[(294,177)(294,177)])
link(onBit2,2274701:doWork1,[(310,184)(310,212)])
link(onBit3,13275477:doWork1,[(302,191)(302,248)])
link(onBit4,9964884:doWork1,[(294,198)(294,283)])
}
Add(Button,15894551,103,246)
{
Left=264
Top=143
Font=[MS Sans Serif,8,0,0]
Data=Integer(4)
link(onClick,861234:doEvent3,[(163,252)(163,191)])
}
Add(Button,12885575,103,283)
{
Left=265
Top=198
Font=[MS Sans Serif,8,0,0]
Data=Integer(8)
link(onClick,861234:doEvent4,[(170,289)(170,198)])
}
Add(Button,12416009,103,171)
{
Left=264
Top=38
Font=[MS Sans Serif,8,0,0]
Data=Integer(1)
link(onClick,861234:doEvent1,[(235,177)(165,177)])
}
Add(Button,3990437,103,206)
{
Left=264
Top=88
Font=[MS Sans Serif,8,0,0]
Data=Integer(2)
link(onClick,861234:doEvent2,[(158,212)(158,184)])
}
[/code:1]

Случайно 2 раза послал

Serj, в чем бИда-то, любый друже
Есть такая система исчисления - двоичная, однако:
[code:1]Add(ChildPanel,13413743,560,98) {
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,7400185,3,3)
{
WorkCount=1
link(doWork1,16022919:doVisible,[(19,9)(19,125)])
}
Add(Panel,16022919,35,105)
{
Left=158
Top=7
Font=[MS Sans Serif,8,0,0]
Caption="1"
Point(doVisible)
}
END_SDK
Add(ChildPanel,2274701,560,140)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,6540460,3,3)
{
WorkCount=1
link(doWork1,6760292:doVisible,[(19,9)(19,125)])
}
Add(Panel,6760292,35,105)
{
Left=158
Top=61
Font=[MS Sans Serif,8,0,0]
Visible=1
Caption="2"
Point(doVisible)
}
END_SDK
Add(ChildPanel,13275477,560,182)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,3061569,3,3)
{
WorkCount=1
link(doWork1,13858361:doVisible,[(19,9)(19,125)])
}
Add(Panel,13858361,35,105)
{
Left=157
Top=114
Font=[MS Sans Serif,8,0,0]
Visible=1
Caption="3"
Point(doVisible)
}
END_SDK
Add(ChildPanel,9964884,560,224)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,1968692,3,3)
{
WorkCount=1
link(doWork1,5139760:doVisible,[(19,9)(19,125)])
}
Add(Panel,5139760,34,105)
{
Left=157
Top=168
Font=[MS Sans Serif,8,0,0]
Visible=1
Caption="4"
Point(doVisible)
}
END_SDK
Add(ChanelToIndex,94870,343,203)
{
Count=4
link(onIndex,16460938:doRead,[(402,209)(402,209)])
}
Add(IntToBits,85704,483,203)
{
Count=4
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,13413743:doWork1,[(528,209)(528,104)])
link(onBit2,2274701:doWork1,[(535,216)(535,146)])
link(onBit3,13275477:doWork1,[(553,223)(553,188)])
link(onBit4,9964884:doWork1,[(553,230)(553,230)])
}
Add(ArrayRW,16460938,420,203)
{
link(onRead,85704:doBits,[(474,209)(474,209)])
link(Array,8606622:Array,[])
}
Add(IntegerArray,8606622,420,140)
{
IntArray=[0=1,1=2,2=4,3=8]
}
Add(Button,12416009,252,147)
{
Left=259
Top=13
Font=[MS Sans Serif,8,0,0]
link(onClick,94870:doWork1,[(329,153)(329,209)])
}
Add(Button,3990437,252,182)
{
Left=259
Top=68
Font=[MS Sans Serif,8,0,0]
link(onClick,94870:doWork2,[(300,188)(300,216)])
}
Add(Button,15894551,252,217)
{
Left=259
Top=128
Font=[MS Sans Serif,8,0,0]
link(onClick,94870:doWork3,[(296,223)(296,223)])
}
Add(Button,12885575,252,252)
{
Left=260
Top=183
Font=[MS Sans Serif,8,0,0]
link(onClick,94870:doWork4,[(300,258)(300,230)])
}[/code:1]

///lf я сказал же что всё уже понял...только понял после клика ОТПРАВИТЬ делов то...