int WINAPI _tWinMain(HINSTANCE hInstance, HINSTANCE /*hPrevInstance*/, LPTSTR /*lpstrCmdLine*/, int /*nCmdShow*/)
{//必须要调用OleInitialize来初始化运行环境HRESULT hRes = OleInitialize(NULL);SASSERT(SUCCEEDED(hRes));
//     LoadLibrary(L"E:\\soui.taobao\\richedit\\Debug\\riched20.dll");int nRet = 0; SComMgr *pComMgr = new SComMgr;{//...//定义一个唯一的SApplication对象，SApplication管理整个应用程序的资源SApplication *theApp=new SApplication(pRenderFactory,hInstance);#ifdef DLL_CORE//加载LUA脚本模块，注意，脚本模块只有在SOUI内核是以DLL方式编译时才能使用。bLoaded=pComMgr->CreateScrpit_Lua((IObjRef**)&pScriptLua);SASSERT_FMT(bLoaded,_T("load interface [%s] failed!"),_T("scirpt_lua"));theApp->SetScriptFactory(pScriptLua);
#endif//DLL_CORE//加载全局资源描述XMLtheApp->Init(_T("xml_init")); {//创建并显示使用SOUI布局应用程序窗口,为了保存窗口对象的析构先于其它对象，把它们缩进一层。
            CMainDlg dlgMain;  dlgMain.Create(GetActiveWindow(),0,0,800,600);dlgMain.GetNative()->SendMessage(WM_INITDIALOG);dlgMain.CenterWindow();dlgMain.ShowWindow(SW_SHOWNORMAL);nRet=theApp->Run(dlgMain.m_hWnd);}//应用程序退出
        delete theApp; //...
    }
exit:delete pComMgr;OleUninitialize();return nRet;
}

<SOUI trCtx="dlg_main" title="SOUI-DEMO version:%ver%" bigIcon="LOGO:32" smallIcon="LOGO:16" width="600" height="400" appWnd="1" margin="5,5,5,5"  resizable="1" translucent="1" alpha="255"><skin><!--局部skin对象--><gif name="gif_penguin" src="gif:gif_penguin"/><apng name="apng_haha" src="apng:apng_haha"/></skin><style><!--局部style对象--><class name="cls_edit" ncSkin="_skin.sys.border" margin-x="2" margin-y="2" /></style><script src="lua:lua_test"><!--当没有指定src属性时从cdata段中加载脚本--><![CDATA[function on_init(args)SMessageBox(0,T "execute script function: on_init", T "msgbox", 1);endfunction on_exit(args)SMessageBox(0,T "execute script function: on_exit", T "msgbox", 1);endfunction onEvtTest2(args)SMessageBox(0,T "onEvtTest2", T "msgbox", 1);return 1;endfunction onEvtTstClick(args)local txt3=SStringW(L"append",-1);local sender=toSWindow(args.sender);sender:GetParent():CreateChildrenFromString(L"<button pos=\"0,0,150,30\" on_command=\"onEvtTest2\">lua btn 中文</button>");sender:SetVisible(0,1);return 1;end]]></script><root class="cls_dlg_frame" cache="1" on_init="on_init" on_exit="on_exit"><caption pos="0,0,-0,30" show="1" font="adding:8"><icon pos="10,8" src="LOGO:16"/><text class="cls_txt_red">SOUI-DEMO version:%ver%</text><imgbtn id="1" skin="_skin.sys.btn.close"    pos="-45,0" tip="close" animate="1"/><imgbtn id="2" skin="_skin.sys.btn.maximize"  pos="-83,0" animate="1" /><imgbtn id="3" skin="_skin.sys.btn.restore"  pos="-83,0" show="0" animate="1" /><imgbtn id="5" skin="_skin.sys.btn.minimize" pos="-121,0" animate="1" /><imgbtn name="btn_menu" skin="skin_btn_menu" pos="-151,2" animate="1" /></caption><other/></root>
</SOUI>

<?xml version="1.0" encoding="utf-8"?>
<include><window size="full,full" name="game_wnd" on_size="on_canvas_size" id="300"><text pos="0,0,-0,@30" colorBkgnd="#cccccc" colorText="#ff0000" align="center">SOUI + LUA 跑马机</text><window pos="0,[0,-0,-50"><window pos="0,0,-64,-0" name="game_canvas" clipClient="1" colorBkgnd="#ffffff"><!--比赛场地--><gifplayer name="player_1" float="1" skin="gif_horse"><text pos="0,%1" colorText="rgb(255,0,0)" font="size:20">1</text></gifplayer><gifplayer name="player_2" float="1" skin="gif_horse"><text pos="0,0" colorText="rgb(255,0,0)" font="size:20">2</text></gifplayer><gifplayer name="player_3" float="1" skin="gif_horse"><text pos="0,0" colorText="rgb(255,0,0)" font="size:20">3</text></gifplayer><gifplayer name="player_4" float="1" skin="gif_horse"><text pos="0,0" colorText="rgb(255,0,0)" font="size:20">4</text></gifplayer><gifplayer name="flag_win" float="1" skin="gif_win" show="0" id="400"/><text pos="|0,0">赔率:</text><text pos="[0,0,@20,[0" colorText="#ff0000" name="txt_rate">4</text><hr pos="-1,0,-0,-0" mode="vertical" colorLine="#ff0000"/></window><window pos="[0,0,-0,-0"><window pos="0,%12.5,@64,@64" offset="0,-0.5" skin="img_coin" id="1" tip="下注1号马" on_command="on_bet">0</window><window pos="0,%37.5,@64,@64" offset="0,-0.5" skin="img_coin" id="2" tip="下注2号马" on_command="on_bet">0</window><window pos="0,%62.5,@64,@64" offset="0,-0.5" skin="img_coin" id="3" tip="下注3号马" on_command="on_bet">0</window><window pos="0,%87.5,@64,@64" offset="0,-0.5" skin="img_coin" id="4" tip="下注4号马" on_command="on_bet">0</window></window></window><window pos="10,[5,-0,-0" name="game_toolbar"><button name="btn_run" pos="0,|0,@100,@30" offset="0,-0.5" tip="run the game" on_command="on_run">run</button><text pos="]-5,0,@-1,-0" offset="-1,0">现有金币:</text><text pos="-64,0,@64,-0" name="txt_coins" align="center">100</text></window></window>
</include>

    class SOUI_EXP EventCmd : public TplEventArgs<EventCmd>{SOUI_CLASS_NAME(EventCmd,L"on_command")public:EventCmd(SObject *pSender):TplEventArgs<EventCmd>(pSender){}enum{EventID=EVT_CMD};};

win = nil;
tid = 0;
gamewnd = nil;
gamecanvas = nil;
players = {};
flag_win = nil;coins_all = 100;    --现有资金
coins_bet = {0,0,0,0} --下注金额
bet_rate = 4;        --赔率
prog_max     = 200;    --最大步数
prog_all = {0,0,0,0} --马匹进度function on_init(args)--初始化全局对象win = toHostWnd(args.sender);gamewnd = win:GetRoot():FindChildByNameA("game_wnd",-1);gamecanvas = gamewnd:FindChildByNameA("game_canvas",-1);flag_win = gamewnd:FindChildByNameA("flag_win",-1);players = {gamecanvas:FindChildByNameA("player_1",-1),gamecanvas:FindChildByNameA("player_2",-1),gamecanvas:FindChildByNameA("player_3",-1),gamecanvas:FindChildByNameA("player_4",-1)};--布局on_canvas_size(nil);math.randomseed(os.time());--SMessageBox(0,T "execute script function: on_init", T "msgbox", 1);
endfunction on_exit(args)--SMessageBox(0,T "execute script function: on_exit", T "msgbox", 1);
endfunction on_timer(args)if(gamewnd ~= nil) thenlocal rcCanvas = gamecanvas:GetWindowRect2();local heiCanvas = rcCanvas:Height();local widCanvas = rcCanvas:Width();local rcPlayer =  players[1]:GetWindowRect2();local wid = rcPlayer:Width();local hei = rcPlayer:Height();local win_id = 0;for i = 1,4 dolocal prog = prog_all[i];if(prog<prog_max) thenprog = prog + math.random(0,5);prog_all[i] = prog;local rc = players[i]:GetWindowRect2();rc.left = rcCanvas.left + (widCanvas-wid)*prog/prog_max;players[i]:Move2(rc.left,rc.top,-1,-1);elsewin_id = i;local rc = players[i]:GetWindowRect2();rc.left = rcCanvas.left + (widCanvas-wid);players[i]:Move2(rc.left,rc.top,-1,-1);endendif win_id ~= 0 thengamewnd:FindChildByNameA("btn_run",-1):FireCommand();coins_all = coins_all + coins_bet[win_id] * 4;gamewnd:FindChildByNameA("txt_coins",-1):SetWindowText(T(coins_all));coins_bet = {0,0,0,0};local rcPlayer = players[win_id]:GetWindowRect2();local szFlag = flag_win:GetDesiredSize(rcPlayer);rcPlayer.right = rcPlayer.left + szFlag.cx;rcPlayer.bottom = rcPlayer.top + szFlag.cy;rcPlayer:OffsetRect(-szFlag.cx,-szFlag.cy/3);flag_win:Move(rcPlayer);flag_win:SetVisible(1,1);flag_win:SetUserData(win_id);for i= 1,4 dogamewnd:FindChildByID(i,-1):SetWindowText(T("0"));endendend
endfunction on_bet(args)if tid ~= 0 thenreturn 1;endlocal btn = toSWindow(args.sender);if coins_all >= 10 thenid = btn:GetID();coins_bet[id] = coins_bet[id] + 10;coins_all = coins_all -10;btn:SetWindowText(T(coins_bet[id]));gamewnd:FindChildByNameA("txt_coins",-1):SetWindowText(T(coins_all));endreturn 1;
endfunction on_canvas_size(args)if win == nil thenreturn 0;endlocal rcCanvas =  gamecanvas:GetWindowRect2();local heiCanvas = rcCanvas:Height();local widCanvas = rcCanvas:Width();local szPlayer = players[1]:GetDesiredSize(rcCanvas);local wid = szPlayer.cx;local hei = szPlayer.cy;local rcPlayer = CRect(0,0,wid,hei);local interval = (heiCanvas - hei*4)/5;rcPlayer:OffsetRect(rcCanvas.left,rcCanvas.top+interval);for i = 1, 4 dolocal rc = rcPlayer;rc.left = rcCanvas.left + (widCanvas-wid)*prog_all[i]/prog_max;rc.right = rc.left+wid;players[i]:Move(rc);rcPlayer:OffsetRect(0,interval+hei);endlocal win_id = flag_win:GetUserData();if win_id ~= 0 thenlocal rcPlayer = players[win_id]:GetWindowRect2();local szFlag = flag_win:GetDesiredSize(rcPlayer);flag_win:Move2(rcPlayer.left-szFlag.cx,rcPlayer.top-szFlag.cy/3,-1,-1);endreturn 1;endfunction on_run(args)local btn = toSWindow(args.sender);if tid == 0 thenprog_all = {0,0,0,0};on_canvas_size(nil);tid = win:setInterval("on_timer",200);btn:SetWindowText(T"stop");flag_win:SetVisible(0,1);elsewin:clearTimer(tid);btn:SetWindowText(T"run");tid = 0;endreturn 1;
endfunction on_btn_select_cbx(args)local btn = toSWindow(args.sender);local cbxwnd = btn:GetWindow(2);--get previous siblinglocal cbx = toComboboxBase(cbxwnd);cbx:SetCurSel(-1);
end