Форма в виде текста

Форумы Помощь по пакетуФорма в виде текста ← Ctrl123 4 5 6Ctrl →

Этот топик читают: Гость

Разработчик

Ответов: 26305

Рейтинг: 2146

#16: 2010-03-16 15:03:05 ЛС | профиль | цитата

Вот так у меня получается, но что-то на один больше -- никак



Add(MainForm,13718505,259,210)
{
 Height=600
 Ctl3D=0
 WinStyle=1
 BorderStyle=6
 DragForm=0
 TransparentColor=0
 Position=1
 Point(onPaint)
 Point(doPicture)
 Point(onKeyDown)
 Point(Width)
 Point(Height)
 link(onCreate,9456606:doCreate,[])
 link(onKeyDown,16474900:doCase,[])
}
Add(Bitmap,9456606,357,210)
{
 Point(doCreate)
 Point(onCreate)
 Point(HWidth)
 Point(HHeight)
 link(onCreate,2849259:doEnum,[])
 link(HWidth,13718505:Width,[(363,203)(330,203)(330,265)(265,265)])
 link(HHeight,13718505:Height,[(370,198)(325,198)(325,260)(272,260)])
}
Add(Img_Text,7039838,490,210)
{
 Font=[Arial,72,1,8388608,204]
 Point(Y)
 link(Bitmap,2786209:Var3,[(496,198)(391,198)(391,289)])
 link(Text,2849259:Item,[(503,193)(475,193)(475,265)(426,265)])
 link(Y,3357455:reCalc,[])
}
Add(DoData,14421831,203,238)
{
 link(onEventData,13718505:doPicture,[])
 link(Data,2786209:Var1,[(209,226)(181,226)(181,289)])
}
Add(Case,16474900,308,238)
{
 Value=Integer(27)
 link(onTrue,13718505:doClose,[(353,251)(353,279)(245,279)(245,237)])
}
Add(StrList,11314900,406,133)
{
 Strings=#6:Привет|2:от|8:Hiasm-a!|
}
Add(ArrayEnum,2849259,420,210)
{
 link(onItem,7039838:doDraw,[])
 link(onEndEnum,14421831:doData,[(465,223)(465,284)(189,284)(189,244)])
 link(Array,11314900:Array,[])
}
Add(MathParse,3357455,497,147)
{
 MathStr="((%1 - 20) * %2)"
 Point(reCalc)
 link(X1,7039838:TextHeight,[(503,135)(480,135)(480,265)(503,265)])
 link(X2,2849259:Index,[(510,130)(470,130)(470,260)(433,260)])
}
Add(GetDataEx,2786209,357,284)
{
 link(Data,9456606:Bitmap,[])
}

карма: 22

Администрация

Ответов: 15295

Рейтинг: 1519

#17: 2010-03-16 15:06:30 ЛС | профиль | цитата

решившему задачу +1 к рангу

карма: 27

https://hiasm.com

Разработчик

Ответов: 4698

Рейтинг: 426

#18: 2010-03-16 15:07:21 ЛС | профиль | цитата

Так я что-то не понял, у меня то же самое, только вместо StrList и ArrayEnum стоит Memory и StrEnum!!! И чего же тут проще?
------------ Дoбавленo в 15.08:
Dilma, ставишь стимулы

карма: 10

Мой сайт, Мои рассказы

Разработчик

Ответов: 26305

Рейтинг: 2146

#19: 2010-03-16 15:08:59 ЛС | профиль | цитата

Assasin, я, кажется, понял

карма: 22

Разработчик

Ответов: 4698

Рейтинг: 426

#20: 2010-03-16 15:10:21 ЛС | профиль | цитата

Если не против, погоди чуточку, я еще подумаю (да наверное не я один)

карма: 10

Мой сайт, Мои рассказы

Ответов: 3349

Рейтинг: 233

#21: 2010-03-16 15:13:57 ЛС | профиль | цитата

А может так?


Add(Button,4130739,189,189)
{
 Left=240
 Top=170
 link(onClick,9770994:doEnum,[])
}
Add(Img_Text,12648123,385,189)
{
 DrawSource=1
 Point(Y)
 link(Bitmap,16448566:Handle,[])
 link(Text,9770994:Item,[(398,158)(438,158)(438,262)(251,262)])
 link(Y,15051253:Result,[(405,177)(429,177)(429,250)(300,250)])
}
Add(Memo,353011,231,126)
{
 Left=90
 Top=170
 Width=150
}
Add(ArrayEnum,9770994,245,189)
{
 link(onItem,15051253:doOperation,[])
 link(Array,353011:Array,[])
}
Add(Math,15051253,294,189)
{
 OpType=2
 Op2=8
 link(onResult,12963426:doWork1,[])
 link(Op1,9770994:Index,[(300,107)(167,107)(167,247)(258,247)])
}
Add(Image,16448566,378,98)
{
 Left=125
 Top=15
 Width=150
 Height=120
 Point(Handle)
}
Add(ChanelToIndex,12963426,336,189)
{
 link(onIndex,12648123:doDraw,[])
}

карма: 1

Разработчик

Ответов: 26305

Рейтинг: 2146

#22: 2010-03-16 15:35:46 ЛС | профиль | цитата

А вот еще один прикол, маразм, конечно, но работает. Меньше уже, ну никак быть не может



Add(MainForm,5203056,322,266)
{
 Ctl3D=0
 WinStyle=1
 BorderStyle=6
 DragForm=0
 TransparentColor=0
 Position=1
 Point(Handle)
 Point(doPicture)
 Point(onKeyDown)
 link(onCreate,6239817:doTimer,[])
 link(onKeyDown,16474900:doCase,[])
}
Add(Case,16474900,371,287)
{
 Value=Integer(27)
 link(onTrue,5203056:doClose,[(415,300)(415,331)(301,331)(301,293)])
}
Add(Memo,11469216,462,217)
{
 Width=480
 Height=640
 Align=5
 Color=0
 Font=[Arial,36,1,8388608,204]
 Ctl3D=1
 Strings=#6:Привет|2:от|8:HiAsm-a!|
 Point(Handle)
}
Add(ScreenShort,10384016,483,280)
{
 link(onCapture,5203056:doPicture,[(532,286)(532,339)(310,339)(310,300)])
 link(Handle,11469216:Handle,[])
}
Add(Timer,6239817,434,280)
{
 Interval=10
 Enable=1
 AutoStop=1
 link(onTimer,10384016:doCapture,[])
}

карма: 22

Разработчик

Ответов: 4698

Рейтинг: 426

#23: 2010-03-16 15:37:18 ЛС | профиль | цитата

Я в отпуск

карма: 10

Мой сайт, Мои рассказы

Ответов: 970

Рейтинг: 270

#24: 2010-03-16 15:39:52 ЛС | профиль | цитата

[offtop]nesco, я так же сделал

только с Label[/offtop]



Add(MainForm,5203056,245,231)
{
 Ctl3D=0
 WinStyle=1
 AlphaBlendValue=0
 BorderStyle=6
 DragForm=0
 Point(Handle)
 Point(doPicture)
 Point(onKeyDown)
 Point(doAlphaBlendValue)
 Point(onPaint)
 link(onCreate,6239817:doTimer,[])
 link(onKeyDown,16474900:doCase,[])
}
Add(Case,16474900,294,252)
{
 Value=Integer(27)
 link(onTrue,5203056:doClose,[(338,265)(338,296)(225,296)(225,258)])
}
Add(ScreenShort,10384016,455,245)
{
 link(onCapture,5203056:doPicture,[(506,251)(506,322)(233,322)(233,265)])
 link(Handle,4121936:Handle,[])
}
Add(Timer,6239817,357,245)
{
 Interval=25
 Enable=1
 AutoStop=1
 link(onTimer,1912762:doEvent1,[])
}
Add(DoData,8740162,182,266)
{
 Data=Integer(255)
 link(onEventData,5203056:doAlphaBlendValue,[])
}
Add(Hub,1912762,406,245)
{
 link(onEvent1,10384016:doCapture,[])
 link(onEvent2,8740162:doData,[(432,258)(432,314)(165,314)(165,272)])
}
Add(Label,4121936,448,196)
{
 Left=365
 Top=320
 Width=190
 Height=150
 Color=16777215
 Font=[Arial,30,0,0,1]
 Caption="Привет
от
HiAsm-a!"
 AutoSize=1
 Point(Handle)
}

карма: 0

Разработчик

Ответов: 26305

Рейтинг: 2146

#25: 2010-03-16 15:52:14 ЛС | профиль | цитата

Вот решение этой задачи, где компонентов больше на один, чем в первой схеме и нет морганий



Add(MainForm,5203056,322,266)
{
 Ctl3D=0
 WinStyle=1
 AlphaBlendValue=0
 BorderStyle=6
 DragForm=0
 TransparentColor=0
 Position=1
 Point(Handle)
 Point(doPicture)
 Point(onKeyDown)
 Point(doAlphaBlendValue)
 Point(onPaint)
 link(onCreate,6239817:doTimer,[])
 link(onKeyDown,16474900:doCase,[])
}
Add(Case,16474900,371,287)
{
 Value=Integer(27)
 link(onTrue,5203056:doClose,[(415,300)(415,331)(302,331)(302,293)])
}
Add(Memo,11469216,511,217)
{
 Width=400
 Height=300
 Align=5
 Color=0
 Font=[Arial,36,1,8388608,204]
 Ctl3D=1
 Strings=#6:Привет|2:от|8:HiAsm-a!|
 Point(Handle)
}
Add(ScreenShort,10384016,532,280)
{
 link(onCapture,5203056:doPicture,[(583,286)(583,357)(310,357)(310,300)])
 link(Handle,11469216:Handle,[])
}
Add(Timer,6239817,434,280)
{
 Interval=10
 Enable=1
 AutoStop=1
 link(onTimer,1912762:doEvent1,[])
}
Add(DoData,8740162,259,301)
{
 Data=Integer(255)
 link(onEventData,5203056:doAlphaBlendValue,[])
}
Add(Hub,1912762,483,280)
{
 link(onEvent1,10384016:doCapture,[])
 link(onEvent2,8740162:doData,[(509,293)(509,349)(242,349)(242,307)])
}

карма: 22

Разработчик

Ответов: 4698

Рейтинг: 426

#26: 2010-03-16 15:56:43 ЛС | профиль | цитата

nesco писал(а):

нет морганий

А как же палка позиции

карма: 10

Мой сайт, Мои рассказы

Разработчик

Ответов: 26305

Рейтинг: 2146

#27: 2010-03-16 15:58:33 ЛС | профиль | цитата

Assasin писал(а):

А как же палка позиции

TabOrder поставь на -1, и будет тебе щастье. Гы, а ты таких простых вещей не знаешь

карма: 22

Администрация

Ответов: 15295

Рейтинг: 1519

#28: 2010-03-16 16:06:30 ЛС | профиль | цитата

формально это конечно решение, но по хорошему Memo-то убрать надо. Ну и наконец каретка попадает в рисунок и оставляет вертикальную полосу

карма: 27

https://hiasm.com

Разработчик

Ответов: 26305

Рейтинг: 2146

#29: 2010-03-16 16:07:18 ЛС | профиль | цитата

Dilma писал(а):

Ну и наконец каретка попадает в рисунок и оставляет вертикальную полосу

Я же написал

nesco писал(а):

TabOrder поставь на -1

Dilma писал(а):

формально это конечно решение

Альтернативное.

карма: 22

Разработчик

Ответов: 26305

Рейтинг: 2146

#30: 2010-03-16 16:15:18 ЛС | профиль | цитата

Вот, окончательное решение моего метода



Add(MainForm,5203056,322,266)
{
 Ctl3D=0
 WinStyle=1
 AlphaBlendValue=0
 BorderStyle=6
 DragForm=0
 TransparentColor=0
 Position=1
 Point(Handle)
 Point(doPicture)
 Point(onKeyDown)
 Point(doAlphaBlendValue)
 Point(onPaint)
 link(onCreate,6239817:doTimer,[])
 link(onKeyDown,16474900:doCase,[])
}
Add(Case,16474900,371,287)
{
 Value=Integer(27)
 link(onTrue,5203056:doClose,[(415,300)(415,330)(286,330)(286,293)])
}
Add(Memo,11469216,574,210)
{
 Width=400
 Height=300
 Align=5
 Color=0
 Font=[Arial,36,1,8388608,204]
 TabOrder=-1
 Ctl3D=1
 Strings=#6:Привет|2:от|8:HiAsm-a!|
 Point(Handle)
 Point(doTop)
}
Add(ScreenShort,10384016,595,280)
{
 link(onCapture,5203056:doPicture,[(642,286)(642,361)(298,361)(298,300)])
 link(Handle,11469216:Handle,[])
}
Add(Timer,6239817,434,280)
{
 Interval=10
 Enable=1
 AutoStop=1
 link(onTimer,6431843:doData,[])
}
Add(Hub,10742053,532,280)
{
 OutCount=3
 link(onEvent1,10384016:doCapture,[])
 link(onEvent2,11469216:doTop,[(560,293)(560,258)])
 link(onEvent3,5203056:doAlphaBlendValue,[(558,300)(558,346)(310,346)(310,307)])
}
Add(DoData,6431843,483,280)
{
 Data=Integer(511)
 link(onEventData,10742053:doEvent1,[])
}

карма: 22

Форумы Помощь по пакетуФорма в виде текста ← Ctrl123 4 5 6Ctrl →


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