duilib-for-Delphi: A Pascal repository from monkeyxu

###DDuilib

项目介绍

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

其它说明

考虑到github经常被墙和访问慢的缘故，这里使用了2个地址存放代码以满足不同用户访问： 1、Github项目地址 2、OSC项目地址

PS: 另欢迎大家加入QQ群429151353 一起学习，共同进步。作者其实也是一边学Duilib一边写这个库的，所有时候有可能也无法回答一些问题，但大家可以一起讨论，共同解决。

--重要说明--

所有的代码都是在DelphiXE6下编写的，后来考虑到低版本的用户无法使用，就对代码做了兼容性调整，目前可以应用在Delphi7或者高于Delphi7版本和FreePascal中。
由于Delphi版本过多，可能有些没有照顾到，大家可以向我提出，我会第一时间修改。
这里作者不推荐使用不支持Unicode的Delphi版本。
另有时候可能没有太多时间对非Unicode版本做兼容性测试，希望大家见谅，但一有空就会修复兼容性问题。

初次使用

使用DDuilib需要具备一定的Delphi基础，其次，最好了解下duilib以及如何建立UI的xml布局文件，这样学习起来会少走很多弯路。

简单示例：完整示例可查看Duilib for 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.