# Duilib for Delphi

**Repository Path**: blake2002/Duilib-for-Delphi

## Basic Information

- **Project Name**: Duilib for Delphi
- **Description**: DDuilib是一个建立在C++开源项目duilib之上，且最大限度不去修改duilib源代码从而可以应用在Delphi或者FreePascal中构建漂亮的UI的Pascal语言开源项目。
- **Primary Language**: Unknown
- **License**: LGPL-2.1
- **Default Branch**: master
- **Homepage**: None
- **GVP Project**: No

## Statistics

- **Stars**: 0
- **Forks**: 0
- **Created**: 2015-12-29
- **Last Updated**: 2020-12-19

## Categories & Tags

**Categories**: Uncategorized

**Tags**: None

## README

###DDuilib
*** 
#### **目录**
* [项目介绍](#项目介绍)
* [其它说明](#其它说明)
* [初次使用](#初次使用)
* [自行编译](#自行编译)
* [目录详情](#目录详情)
* [Demo截图](#截图)
* [作者信息](#作者信息)

***
#### **项目介绍** 

什么是DDuilib(原名“Duilib for Delphi”)？ DDuilib是一个建立在C++开源项目[duilib](https://github.com/duilib/duilib)之上，且最大限度不去修改duilib源代码从而可以应用在Delphi或者FreePascal中构建漂亮的UI的Pascal语言开源项目。**在此也非常感谢duilib作者的辛劳，没有他的库也许就没有现在这DDuilib** 更多关于项目的开发可以访问[我的博客](http://blog.csdn.net/zyjying520/article/details/49976667)。


#### **其它说明** 

考虑到github经常被墙和访问慢的缘故，这里使用了2个地址存放代码以满足不同用户访问：
1、[Github项目地址](https://github.com/ying32/duilib-for-Delphi/) 
2、[OSC项目地址](http://git.oschina.net/ying32/Duilib-for-Delphi)

PS: 另欢迎大家加入QQ群[429151353](http://shang.qq.com/wpa/qunwpa?idkey=de0faba813de168a104d9160c9271d9873a8c91f30b416c11ff89cb2bdf6564b) 一起学习，共同进步。作者其实也是一边学Duilib一边写这个库的，所有时候有可能也无法回答一些问题，但大家可以一起讨论，共同解决。
 
##### **--重要说明--** 
所有的代码都是在DelphiXE6下编写的，后来考虑到低版本的用户无法使用，就对代码做了兼容性调整，目前可以应用在Delphi7或者高于Delphi7版本和FreePascal中。**但这里作者不推荐使用不支持Unicode的Delphi版本**。
**另有时候可能没有太多时间对非Unicode版本做兼容性测试，希望大家见谅，但一有空就会修复兼容性问题。**


#### **初次使用**  
使用DDuilib需要具备一定的Delphi基础，其次，最好了解下[duilib](https://github.com/duilib/duilib)以及如何建立UI的xml布局文件，这样学习起来会少走很多弯路。

> 简单示例：完整示例可查看[Duilib for Delphi入门](http://blog.csdn.net/zyjying520/article/details/50184759)

```delphi

// dpr文件
program Apps;

uses
  DuiWindowImplBase;

constructor TAppsWindow.Create;
begin
  inherited Create('MainWindow.xml', 'skin\Apps');
  CreateWindow(0, 'Apps', UI_WNDSTYLE_FRAME, WS_EX_WINDOWEDGE);
end;

destructor TAppsWindow.Destroy;
begin
  inherited;
end;

function TAppsWindow.DoCreateControl(pstrStr: string): CControlUI;
begin
  Result := nil;
end;

procedure TAppsWindow.DoHandleMessage(var Msg: TMessage; var bHandled: BOOL);
begin
  inherited;
end;

procedure TAppsWindow.DoInitWindow;
begin
  inherited;
end;

procedure TAppsWindow.DoNotify(var Msg: TNotifyUI);
var
  LType, LCtlName: string;
begin
  inherited;
  LType := Msg.sType;
  LCtlName := Msg.pSender.Name;
  if LType.Equals(DUI_MSGTYPE_CLICK) then
  begin
    if LCtlName.Equals(kclosebtn) then
      DuiApplication.Terminate
    else if LCtlName.Equals(krestorebtn) then
      Restore
    else if LCtlName.Equals(kmaxbtn) then
      Maximize
    else if LCtlName.Equals(kminbtn) then
      Minimize;
  end;
end;

{$R *.res}

begin
  DuiApplication.Initialize;
  AppsWindow := TAppsWindow.Create;
  AppsWindow.Show;
  DuiApplication.Run;
  AppsWindow.Free;
end.

``` 

#### **自行编译** 
正常情况下本人已经提供了编译好后的各个版本duilib二进制，存放在**Duilib\bin**目录下。
自行编译时准备好所需的外，另需查看根目录中**ReadMe.txt**来确定哪些需要修改和include到duilib工程中的。  


#### **目录详情** 
> 
* 1、 DDuilib
   * duilib for Delphi源目录。
> 
* 2、 DuilibExport
   * 需要加入到原[duilib](https://github.com/duilib/duilib)工程中编译的c++源文件。
>
* 3、Demo
   * 新的Demo工程目录
 >  
* 4、Duilib
   * 存放原[duilib](https://github.com/duilib/duilib)工程目录，这里不提供原[duilib](https://github.com/duilib/duilib)的源码，请自行下载。
   * 4.1、 bin
      * 存放编译后的二进制及图片和xml资源，里面有的包含原duilib的资源文件  
>	  
* 5、ThirdParty
   * 存放一些第三方的库或者二进制文件


#### **截图**

![截图2](https://raw.githubusercontent.com/ying32/duilib-for-Delphi/master/screenshot3.png) 
![截图1](https://raw.githubusercontent.com/ying32/duilib-for-Delphi/master/screenshot1.png)  
![截图2](https://raw.githubusercontent.com/ying32/duilib-for-Delphi/master/screenshot2.png)  


#### **作者信息** 
[ying32](mailto:1444386932@qq.com)