圣诞节，ThinkPHP发布了新版本，同时有网友提供的ThinkPHP项目结构的生成程序。本来我想写个Python版的项目生成程序，现在的我对Python最拿手，可有人抢先一步。
我只好折腾一个其他的，我看了一下Python版和Ruby版的都是命令行的。好在D语言是做桌面程序的行家。现学现卖，终于给弄出来了一个，不敢藏私，拿出来给TPer们使用。

东东在这里 http://bbs.thinkphp.cn/read.php?tid=37

No related posts.

以上关联文章由 Yet Another Related Posts Plugin 提供支持。

安装，先在D盘创建一个目录ddev：
将dmd.zip、dmc.zip解压到d，其中dmc.zip中的dm目录会覆盖dmd.zip的dm目录。
将dfl09601.exe和entice084.exe安装到目录

设置，将环境变量中的Path中添加 D:\ddev\dmd\bin;D:\ddev\dm\bin;

第一个程序，文件first.d代码

#!/usr/bin/dmd
/*
My First D Win32 Progamme
*/

private import dfl.all;

class MyForm: dfl.form.Form
{
    // Do not modify or move this block of variables.
    dfl.label.Label LblPrompt;
    dfl.button.Button BtClose;

    this()
    {
        initializeMyForm();
        //@ Other MyForm initialization code here.
    }

    private void initializeMyForm()
    {
        // Do not manually modify this function.
        //~DFL Form
        opacity = 0.70;
        text = “测试”;
        clientSize = dfl.all.Size(292, 266);

        //~DFL dfl.label.Label=LblPrompt
        with(LblPrompt = new dfl.label.Label)
        {
            name = “LblPrompt”;
            backColor = dfl.all.SystemColors.info;
            font = new dfl.all.Font(”Microsoft Sans Serif”, 11f, dfl.all.FontStyle.BOLD);
            foreColor = dfl.all.SystemColors.highlight;
            text = “您好，欢迎测试DFL”;
            textAlign = dfl.all.ContentAlignment.MIDDLE_CENTER;
            bounds = dfl.all.Rect(64, 32, 156, 31);
            parent = this;
        }

        //~DFL dfl.button.Button=BtClose
        with(BtClose = new dfl.button.Button)
        {
            name = “BtClose”;
            text = “关 闭”;
            bounds = dfl.all.Rect(96, 176, 75, 23);
            parent = this;
            click ~= |exit_click;
        }
    }

    private void exit_click(Object sender, EventArgs ea)
    {
        Application.exitThread();
    }
}

int main()
{
    int result = 0;
    try
    {
        Application.enableVisualStyles();
        //@ Other application initialization code here.
        Application.run(new MyForm());
    }
    catch(Object o)
    {
        msgBox(o.toString(), “Fatal Error”, MsgBoxButtons.OK, MsgBoxIcon.ERROR);
        result = 1;
    }
    return result;
}

编译，打开dos窗口，切换到代码所在目录，编译
dfl -gui first.d

得到了first.exe程序

No related posts.

以上关联文章由 Yet Another Related Posts Plugin 提供支持。