Вверх ↑
Ответов: 2059
Рейтинг: 132
#1: 2018-02-12 19:41:35 ЛС | профиль | цитата
Вот такой вопрос:
Нужна консоль, кто нибудь занимался? (Чтоб велосипед не изобретать).
Такое известно:

Add(MainForm,2953706,21,105)
{
Width=570
Height=217
}
Add(InlineCode,9268460,308,84)
{
WorkPoints=#6:doWork|
EventPoints=#6:onTrue|0:|
DataPoints=#6:Param1|6:Param2|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Windows,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|8: |10: public|21: Param1: THI_Event;|22: Param2: THI_Event; |19: onTrue: THI_Event;|3: |49: Procedure doWork(var _Data:TData; Index:Word); |0:|5: end;|0:|2: |15: implementation|0:|3: |29:Procedure THiAsmClass.doWork;|0:|0:|0:|3:var|12: s: string;|5:begin|15: AllocConsole;|5: try|23: SetConsoleCP(1251);|29: SetConsoleOutputCP(1251);|51: Write('Введите любое слово и нажмите ENTER: ');|14: Readln(s);|28: writeln('Вы ввели ',s );|40: Write('Нажмите ENTER для выхода: ');|11: readln;|9: finally|16: FreeConsole;|6: end;|1: |4:end;|0:|0:|4:end.|
}
Add(Button,575765,224,84)
{
Left=20
Top=30
link(onClick,9268460:doWork,[])
}
Да, все получаю и в ответ туда вешаю, а что нибудь поизящней, как в Half-Life 2, или подобного нет?
Через вот такое:
Add(Edit,10062559,252,77)
{
Left=250
Top=75
}

не греет.
Анимация - излишне, и экран не обязательно чёрный, или прозрачный, и буковки не обязательно зелёные.
карма: 6

0
Редактировалось 9 раз(а), последний 2018-02-13 01:23:35