Вверх ↑
Ответов: 1841
Рейтинг: 369
#1: 2012-01-19 20:08:38 ЛС | профиль | цитата
miver писал(а):
PureBasic RTFG

RTCG
miver писал(а):
а ты уже что-то сделал в направлении PureBasic RTFG

делал, в основном мучаю бесконечные циклы (замыкание на себе), но сейчас пока прекратил из-за сессии...
вот кстати, в основном как я и писал, мучаю кольцевание)

http://dl.dropbox.com/u/6869303/HiAsm/PureBasic.7z
------------ Дoбавленo в 20.08:
Вот так вот у меня на примере реализован элемент Message (из области анти-кольцевания):

func Events(dt)
point = 'on' + dt
if(linked(point))
blk.inc().println('Case #ID' + dt).inc()
event(point)
end
end

func doMessage(data)
id = this.codename + '001'

if (not sys.cil(id))
cil.add(id)
//*********начало основного кода*********

//Выбор иконки
if(not isdef('Icon'))
Icon = '|#MB_ICON' + d('icon')
end

//Кнопка по умолчанию
if(not isdef('DefButton'))
DefButton = '|#MB_DEF' + d('DefButton')
end

//use WinAPI or PBLib
if(not isdef('UseLIB'))
MessageType = 'MessageBox_(0, '
else
MessageType = 'MessageRequester('
end

//Выбор
if(linked('onOK') or linked('onYES') or linked('onNO') or linked('onCANCEL') or linked('onABORT') or linked('onRETRY') or linked('onIGNORE'))
Select = 1
blk.print('Select ')
end

//формировани сообщения
blk.println(MessageType, sys.tostr(d('Message')), ', ', sys.tostr(d('Caption')), ', #MB_' ,this.props('Type'), Icon, DefButton, ')')
event('onMessage')

//События
Events('OK')
Events('YES')
Events('NO')
Events('CANCEL')
Events('ABORT')
Events('RETRY')
Events('IGNORE')

if(Select)
blk.dec().dec().println('EndSelect')
end

//*********конец основного кода*********
cil.remove(null)
else
//*********начало альтернативного кода*********

trace('Кольцевание элемента ' + this.name + ' с ID: ' + this.id)

//*********конец альтернативного кода*********
end
end
карма: 1
0