anchor.diff:    LResourcePath: string;
     pRoot: CControlUI;
     LResStream: TResourceStream;
  -  LMemStream: TMemoryStream;
   begin
     if FIsUIInitd then Exit;
     FCanProcessDuiMsg := True;
  
positive.code: 
  initialization
    DDuiApp := TDDuiApp.Create(nil);
  
  finalization
    DDuiApp.Free;
  
  end.
  
negative.code:   Inc(ARect.Bottom, DY);
  end;
  
  procedure TDDuiForm.ReloadSkin;
  begin
    if FSkinKind in [{skZipResource, }skZip] then
    begin
      if FSkinKind = skZip then
        uZipFileCache.LoadFromFile(FPaintMgr.GetResourcePath + FSkinZipFile);
      FPaintMgr.SetResourceZip(uZipFileCache.Memory, uZipFileCache.Size)
    end;
  end;
  
  procedure TDDuiForm.SetSkinXml(const Value: TStrings);
  begin
    FSkinXml.Assign(Value);
  