转载

每日一博 | 100 行 Lua 代码实现简单目录浏览器

--lua代码

--辅助接口

LXZDoFile("LXZHelper.lua");

LXZDoFile("serial.lua");

--每帧调用,root窗口status中IsActive设置为true,即可触发OnUpdate事件。

local function OnUpdate(window, msg, sender)

UpdateWindow();

end

local function UpdateDirectry(dir)

local root = HelperGetRoot();

--set current dir.

lfs.chdir(dir);

HelperSetWindowText(root:GetLXZWindow("directry"), dir);

local items = root:GetLXZWindow("folders:area:items"); --目录文件容器

local item = root:GetLXZWindow("folders:item"); --目录文件项

local path = lfs.currentdir();

--清除容器中内容

items:ClearChilds();

local cnt = 0;

for file in lfs.dir(lfs.currentdir()) do

local wnd = item:Clone(); --克隆一个目录文件项"folders:item"

wnd:Show(); --显示

HelperSetWindowText(wnd:GetChild("text"), file); --设置目录或者文件名

items:AddChild(wnd); --加入items容器中

local f = path.." //"..file ;

local attr = lfs.attributes(f);

if attr and attr.mode=="directory" then

wnd:GetChild("icon"):SetState(0); --通过0状态设置目录图标

else

wnd:GetChild("icon"):SetState(1);--通过1状态设置文件名图标

end

cnt=cnt+1;

end

--如果无法访问该目录，则添加"."与".."

if cnt==0 then

local wnd = item:Clone();

wnd:Show();

HelperSetWindowText(wnd:GetChild("text"), ".");

items:AddChild(wnd);

local wnd = item:Clone();

wnd:Show();

HelperSetWindowText(wnd:GetChild("text"), "..");

items:AddChild(wnd);

end

--垂直滚动条适应内容大小。

local msg = CLXZMessage:new_local();

local wnd = root:GetLXZWindow("folders:vertical slider");

wnd:ProcMessage("OnReset", msg, wnd);

end

--点击目录或者文件项

local function OnClickItem(window, msg, sender)

local file=HelperGetWindowText(sender:GetChild("text"));

local path = lfs.currentdir();

local f = path.." //"..file ;

local attr,err = lfs.attributes (f)

if attr== nil then

LXZMessageBox("error:"..err);

return;

end

-- LXZMessageBox("type(attr)"..type(attr).."f:"..f)

assert (type(attr) == "table");

if attr.mode == "directory" then --如果是目录

UpdateDirectry(f);

end

--ui加载时触发该事件

local function OnLoad(window, msg, sender)

local root = HelperGetRoot();

--set default.

local default_dir = "c://";

HelperSetWindowText(root:GetLXZWindow("directry"), default_dir);

--set folder list.

UpdateDirectry(default_dir);

end

--事件与接口绑定

local event_callback = {}

event_callback ["OnUpdate"] = OnUpdate;

event_callback ["OnLoad"] = OnLoad;

event_callback ["OnClickItem"] = OnClickItem;

--事件分发器

function main_dispacher(window, cmd, msg, sender)

--- LXZAPI_OutputDebugStr("cmd 1:"..cmd);

if(event_callback[cmd] ~= nil) then

-- LXZAPI_OutputDebugStr("cmd 2:"..cmd);

event_callback[cmd](window, msg, sender);

end

每日一博 | 100 行 Lua 代码实现简单目录浏览器

原文 http://my.oschina.net/u/1030910/blog/700744

正文到此结束

所属分类：编程技术

本文标签： root CTO update 代码目录 API IDE message UI http src cmd list tab 遍历
版权声明： 本文为互联网转载文章，出处已在文章中说明(部分除外)。如果侵权，请联系本站长删除，谢谢。
本文海报： 生成海报一生成海报二

其他链接

关于本站

本站定位：个人技术类博客

本站作用：写博客、记日志、闲聊扯淡鼓捣技术。

问题交流

每日一博 | 100 行 Lua 代码实现简单目录浏览器

热门推荐

相关文章

说给你听

本文目录

随机标签

书籍教程

近期评论

网站信息

其他链接

关于本站

问题交流