安装，先在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 提供支持。