HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуФорма в виде текста ← Ctrl123456Ctrl →
Этот топик читают: Гость
Ответов: 196
Рейтинг: 2
#1: 2010-03-16 01:35:12 ЛС | профиль | цитата
Форма в виде текста, где-то видел но никак не могу найти
карма: 0

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#2: 2010-03-16 01:46:10 ЛС | профиль | цитата
А вот так не пойдет 


Add(MainForm,2953706,105,196)
{
 Ctl3D=0
 WinStyle=1
 BorderStyle=6
 DragForm=0
 TransparentColor=0
 Position=1
 Point(onPaint)
 Point(Handle)
 Point(doPicture)
 Point(onKeyDown)
 link(onCreate,9456606:doCreate,[])
 link(onKeyDown,16474900:doCase,[])
}
Add(Bitmap,9456606,203,196)
{
 HWidth=400
 HHeight=300
 Point(doCreate)
 Point(onCreate)
 link(onCreate,7039838:doDraw,[])
}
Add(Img_Text,7039838,259,196)
{
 Font=[Arial,72,1,8388608,204]
 link(onDraw,14421831:doData,[])
 link(Bitmap,10349121:Var1,[(265,184)(237,184)])
 link(Text,1372527:Value,[])
}
Add(Memory,1372527,266,140)
{
 Default=String(Привет!)
}
Add(DoData,14421831,315,196)
{
 link(onEventData,2953706:doPicture,[(362,202)(362,269)(93,269)(93,230)])
 link(Data,10349121:Var3,[(321,184)(284,184)(284,240)])
}
Add(GetDataEx,10349121,231,235)
{
 Angle=3
 link(Data,9456606:Bitmap,[(209,240)])
}
Add(Case,16474900,154,224)
{
 Value=Integer(27)
 link(onTrue,2953706:doClose,[(198,237)(198,261)(84,261)(84,223)])
}
карма: 22

1
Голосовали:lisnic
Ответов: 196
Рейтинг: 2
#3: 2010-03-16 01:55:42 ЛС | профиль | цитата
Cпасибо .
------------ Дoбавленo в 02.38:
Какой символ преводит строку.... Пока не нашел
карма: 0

0
Ответов: 3349
Рейтинг: 233
#4: 2010-03-16 05:37:37 ЛС | профиль | цитата

- вот
карма: 1

0
Ответов: 196
Рейтинг: 2
#5: 2010-03-16 13:27:09 ЛС | профиль | цитата
Это я пробовал, не переводит
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#6: 2010-03-16 13:30:27 ЛС | профиль | цитата
Img_text выводит текст без учета символов перевода строки
карма: 27
https://hiasm.com
0
Разработчик
Ответов: 26305
Рейтинг: 2146
#7: 2010-03-16 13:39:04 ЛС | профиль | цитата
lisnic, все правильно Dilma говорит, так что, перевод каретки надо делать вручную, смещением текста по-вертикали. А интересно бы посмотреть, как народ справится с такой задачей, если народу, конечено, интересно будет
карма: 22

0
Разработчик
Ответов: 4698
Рейтинг: 426
#8: 2010-03-16 13:44:34 ЛС | профиль | цитата
nesco писал(а):
интересно бы посмотреть, как народ справится с такой задачей, если народу, конечено, интересно будет

Да тут все просто 
Add(MainForm,4459961,266,210)
{
 Ctl3D=0
 WinStyle=1
 BorderStyle=6
 DragForm=0
 TransparentColor=0
 Position=1
 Point(onPaint)
 Point(Handle)
 Point(doPicture)
 Point(onKeyDown)
 link(onCreate,9456606:doCreate,[])
 link(onKeyDown,16474900:doCase,[])
}
Add(Bitmap,9456606,364,210)
{
 HWidth=400
 HHeight=300
 Point(doCreate)
 Point(onCreate)
 link(onCreate,12666314:doEnum,[])
}
Add(Img_Text,7039838,462,210)
{
 Font=[Arial,36,1,8388608,204]
 Point(Y)
 link(onDraw,14421831:doData,[(506,216)(506,240)(450,240)(450,265)])
 link(Bitmap,10349121:Var1,[(468,198)(398,198)])
 link(Text,12666314:Part,[(475,198)(451,198)(451,254)(426,254)])
 link(Y,285536:reCalc,[])
}
Add(DoData,14421831,462,259)
{
 link(onEventData,4459961:doPicture,[(506,265)(506,296)(255,296)(255,244)])
 link(Data,10349121:Var3,[(468,254)])
}
Add(GetDataEx,10349121,392,249)
{
 Angle=3
 link(Data,9456606:Bitmap,[(370,254)])
}
Add(Case,16474900,315,238)
{
 Value=Integer(27)
 link(onTrue,4459961:doClose,[(359,251)(359,275)(245,275)(245,237)])
}
Add(Str_Enum,12666314,413,210)
{
 Delimiter="
"
 link(onEnum,7039838:doDraw,[])
 link(String,13507701:Value,[])
}
Add(Memory,13507701,413,147)
{
 Default=String(ПРИВЕТ!
МИР!)
}
Add(MathParse,285536,469,147)
{
 DataCount=1
 MathStr="%1 + %0"
 ResultType=0
 Point(reCalc)
 link(X1,7039838:TextHeight,[(475,136)(517,136)(517,249)(475,249)])
}
карма: 10
Мой сайт, Мои рассказы
0
Разработчик
Ответов: 26305
Рейтинг: 2146
#9: 2010-03-16 13:53:32 ЛС | профиль | цитата
Assasin писал(а):
Да тут все просто

А проще, нельзя
карма: 22

0
Администрация
Ответов: 15295
Рейтинг: 1519
#10: 2010-03-16 13:54:09 ЛС | профиль | цитата
nesco писал(а):
А интересно бы посмотреть, как народ справится с такой задачей, если народу, конечено, интересно будет

задача решается схемой на один элемент большей, чем исходный вариант. Самое время понижать советников в статусах
карма: 27
https://hiasm.com
0
Разработчик
Ответов: 26305
Рейтинг: 2146
#11: 2010-03-16 13:55:53 ЛС | профиль | цитата
[flood]
Dilma писал(а):
Самое время понижать советников в статусах

Ну вот, началась раздача тумаков, а как все хорошо начиналось [/flood]
карма: 22

0
Разработчик
Ответов: 4698
Рейтинг: 426
#12: 2010-03-16 14:00:00 ЛС | профиль | цитата
Ну хорошо, хорошо Убрал свой позорный Counter
------------ Дoбавленo в 14.00:
[offtop]DIlma, я надеюсь на счет понижения ты шутишь
Как ни крути, а повышение круче [/offtop]
карма: 10
Мой сайт, Мои рассказы
0
Ответов: 294
Рейтинг: 64
#13: 2010-03-16 14:43:46 ЛС | профиль | цитата 
Add(MainForm,15016744,238,203)
{
 Ctl3D=0
 WinStyle=1
 BorderStyle=6
 DragForm=0
 TransparentColor=0
 Position=1
 Point(onPaint)
 Point(Handle)
 Point(doPicture)
 Point(onKeyDown)
 link(onCreate,9456606:doCreate,[])
 link(onKeyDown,16474900:doCase,[(281,237)(281,251)])
}
Add(Bitmap,9456606,336,203)
{
 HWidth=400
 HHeight=300
 Point(doCreate)
 Point(onCreate)
 link(onCreate,7039838:doDraw,[])
}
Add(Img_Text,7039838,392,203)
{
 Font=[Arial,72,1,8388608,204]
 Text="Привет!"
 Point(Y)
 link(onDraw,9666020:doDraw,[])
 link(Bitmap,10349121:Var1,[(398,191)(377,191)])
}
Add(DoData,14421831,532,203)
{
 link(onEventData,15016744:doPicture,[(576,209)(576,288)(226,288)(226,237)])
 link(Data,10962324:Var3,[(538,191)(516,191)(516,247)])
}
Add(GetDataEx,10349121,371,242)
{
 Angle=3
 link(Data,9456606:Bitmap,[(342,247)])
}
Add(Case,16474900,294,245)
{
 Value=Integer(27)
 link(onTrue,15016744:doClose,[(347,258)(347,302)(217,302)(217,230)])
}
Add(Img_Text,9666020,455,203)
{
 Y=100
 Font=[Arial,72,1,8388608,204]
 Text="Пока!"
 Point(Y)
 link(onDraw,14421831:doData,[])
 link(Bitmap,10962324:Var1,[(461,191)(433,191)])
}
Add(GetDataEx,10962324,427,242)
{
 Angle=3
 link(Data,10349121:Var3,[])
}



Может так?
карма: 0

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#14: 2010-03-16 14:45:27 ЛС | профиль | цитата
Quest писал(а):
Может так?

Не катит для любого текста
карма: 22

0
Разработчик
Ответов: 4698
Рейтинг: 426
#15: 2010-03-16 14:48:06 ЛС | профиль | цитата
С какой хоть вкладки компонент этот один нужный
карма: 10
Мой сайт, Мои рассказы
0
ФорумыПомощь по пакетуФорма в виде текста ← Ctrl123456Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика