使用qte5部分示例.

//QtE5-单一形式

导入 标.标io;
导入 qte56;          //QtE5图形库
导入 核心.运行时;      //处理输入参数

//dmd p2.d qte56.d -release -mcpu=native -m64

常 红串  ="背景:粉红色";

//____________________________________
//开始申请...
整 主(串[]参数){
    极 f调试=真;   //用调试信息加载QtE56

    //下载过程中出错,则按代码1退出
    如(1==加载qt(动态库.qte6组件,f调试))中 1;
    
    //提交主Q应用
    q应用 应用=新 q应用(&运行时.c实参.参个数,运行时.c实参.参值,1);
    //程序代码
    q组件 组件=新 q组件(无效);
    组件.置窗口标题("===[来自QtE5的问候!]===").置风格表格(红串).显示();
    //----
    中 应用.执行();
}

//(QtE5-QImage窗口中的图像)Image-打开,重新缩放

导入 标.标io;
导入 qte56;          //QtE5图形库
导入 核心.运行时;      //处理输入参数

//dmd t1.d qte56.d -release -mcpu=native -m64
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//CView图像渲染窗口
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
外(C){
    空  画组件时(c视*英国,空*ev,空*q画){(*英国).跑画(ev,q画);};
}
//____________________________________
类 c视:q组件{
    q图像 im;
    q针 指针;
    常 w窗口=800;
    本(){
        超(无效);
        //请求图像文件查看
        q文件对话 文件对话=新 q文件对话('+',无效);
        串 命令=文件对话.取开文名串("指定图形文件...","","*.jpg*.png*.ppt*.gif");
        如(命令!=""){
            im=新 q图像();im.加载(命令);
            调整(w窗口,转换(整)(转换(实)im.高度/(转换(实)im.宽度/转换(实)w窗口)));
            写行("宽度=",im.宽度,"高度=",im.高度);
            置画事件(&画组件时,一本());
            置窗口标题(命令);
        }异{
            置窗口标题("===没有选择===");
        }
    }
    //___
    //重绘自己
    空 跑画(空*ev,空*q画){//->重绘区域
        q画家 qp=新 q画家('+',q画);
        //缩放来适合小部件
        q矩 号=新 q矩();
        qp.画图像(矩内容(号),im);
        //根据主窗口宽度缩放
        调整(宽度,转换(整)(转换(实)im.高度/(转换(实)im.宽度/转换(实)宽度)));
        号.消灭();
        qp.尾();
    }
}

空 主(串[]参数){
    如(1==加载qt(动态库.qte6组件|动态库.qte6核心,假))中;
    q应用 应用=新 q应用(&运行时.c实参.参个数,运行时.c实参.参值,1);
    c视 组件=新 c视();组件.保存本(&组件);组件.显示();
    应用.执行();
}

//(QtE5-QLabel问候语)QLabel就是一个例子.
导入 qte56;//QtE5图形库
导入 核心.运行时;//处理输入参数

//dmd t1.d qte56.d -release -mcpu=native -m64

空 主(串[]参数){
    串 s="
<p><font size='34' color='red'>QtE5</font>
<font size='34' color='blue'><i>Qt-5的小包装</i></font></p>";
    如(1==加载qt(动态库.qte6组件,假))
        中;
    q应用 应用=新 q应用(&运行时.c实参.参个数,运行时.c实参.参值,1);
    q标签 lb=新 q标签(无效);
    lb.置文字(s).显示();
    应用.执行();
}