<br />
<b>Deprecated</b>:  mysql_escape_string(): This function is deprecated; use mysql_real_escape_string() instead. in <b>/www/wwwroot/www.2pascal.com/web/source/class/discuz/discuz_database.php</b> on line <b>177</b><br />
<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>2Pascal-新时代的Pascal - unigui经验区</title>
    <link>http://www.2pascal.com/forum.php?mod=forumdisplay&amp;fid=54</link>
    <description>Latest 20 threads of unigui经验区</description>
    <copyright>Copyright(C) 2Pascal-新时代的Pascal</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Wed, 09 Sep 2026 18:52:06 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>http://www.2pascal.com/static/image/common/logo_88_31.gif</url>
      <title>2Pascal-新时代的Pascal</title>
      <link>http://www.2pascal.com/</link>
    </image>
    <item>
      <title>unigui太小气了，论坛附件不是订阅用户，不能下载</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=3133</link>
      <description><![CDATA[unigui太小气了，论坛附件不是订阅用户，不能下载，本来用的人就少了，在这样限制，用的人就更少了。]]></description>
      <category>unigui经验区</category>
      <author>abea008</author>
      <pubDate>Wed, 05 Jun 2019 17:45:58 +0000</pubDate>
    </item>
    <item>
      <title>UniGui中设置uniEdit控件的fieldLabel ,emptyText等Extjs属性</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2681</link>
      <description><![CDATA[[*]在uniEdit控件的unievents属性的beforeInit事件中写入以下代码：
[*]
[*]function beforeInit(sender) 
[*]{  
[*]    sender.emptyText =\'请输入姓名\';  
[*]    sender.fieldLabel=\'姓名\';  
[*]    sender.labelStyle = \'text-align:right\';  
[*]    sender.fie ...]]></description>
      <category>unigui经验区</category>
      <author>admin</author>
      <pubDate>Wed, 31 Aug 2016 09:04:36 +0000</pubDate>
    </item>
    <item>
      <title>uniGUI中Cookies使用中文汉字的方法</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2680</link>
      <description><![CDATA[[mw_shl_code=delphi,true]procedure TMainForm.UniButton1Click(Sender: TObject); 

var 
username:string; 
begin 
UniApplication.Cookies.SetCookie(\'name\',EncodeString(\'中文汉字\')); //使用 EncodeString函数编码 
username := DecodeString(UniApplication.C ...]]></description>
      <category>unigui经验区</category>
      <author>admin</author>
      <pubDate>Wed, 31 Aug 2016 08:48:17 +0000</pubDate>
    </item>
    <item>
      <title>uniDbGrid所有单元格垂直居中</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2642</link>
      <description><![CDATA[uniDbGrid所有单元格垂直居中
将下面的CSS代码添加到ServerModule窗口的CustomCSS中:

/*dgbrid垂直居中*/
.x-grid-td {
vertical-align: middle!important;
}]]></description>
      <category>unigui经验区</category>
      <author>fireboxsoft</author>
      <pubDate>Fri, 15 Jan 2016 11:09:32 +0000</pubDate>
    </item>
    <item>
      <title>通过修改ext-4.2.2.1144\\ext-all.js中的内容，实现中文按钮</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2641</link>
      <description><![CDATA[通过修改ext-4.2.2.1144\\ext-all.js中的内容，实现按钮及提示的中文化
{saveBtnText:\&quot;更新\&quot;,cancelBtnText:\&quot;取消\&quot;,errorsText:\&quot;错误\&quot;,
如果是用记事本修改，修改后必须存成UTF-8编码，这样在浏览器中显示的才是中文，而不是乱码。

 ...]]></description>
      <category>unigui经验区</category>
      <author>fireboxsoft</author>
      <pubDate>Fri, 15 Jan 2016 11:08:54 +0000</pubDate>
    </item>
    <item>
      <title>播放声音</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2636</link>
      <description><![CDATA[main 窗体 放一个UniHTMLFrame1

[mw_shl_code=javascript,true]  
  var audio2 = document.createElement(\'audio\');
  audio2.setAttribute(\'src\', \'files/begin.wav\');  

[/mw_shl_code]



在要播放的地方写上
 UniSession.SendResponse(\'audio2.load(); audio2.pl]]></description>
      <category>unigui经验区</category>
      <author>admin</author>
      <pubDate>Fri, 27 Nov 2015 07:11:34 +0000</pubDate>
    </item>
    <item>
      <title>最简单调用锐浪报表例子</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2627</link>
      <description><![CDATA[窗体添加UniHTMLFrame控件

html属性为

[mw_shl_code=javascript,true]

  Web报表(B/S报表)演示 - 最简单例子,用插件在网页中展现报表
  
  


  
            CreatePrintViewerEx(\&quot;100%\&quot;, \&quot;100%\&quot;, \&quot;files/simple.grf\&quot;, \&quot;files/simple.xml\&quot;, true, \&quot;\&quot;);
  

[/mw_shl ...]]></description>
      <category>unigui经验区</category>
      <author>admin</author>
      <pubDate>Sun, 08 Nov 2015 03:05:33 +0000</pubDate>
    </item>
    <item>
      <title>093版启用vcl界面</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2626</link>
      <description><![CDATA[server模块里
standaloneserver改成否

094以后不支持]]></description>
      <category>unigui经验区</category>
      <author>admin</author>
      <pubDate>Sun, 08 Nov 2015 02:56:02 +0000</pubDate>
    </item>
    <item>
      <title>添加unichart报chart.dcu找不到问题</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2625</link>
      <description><![CDATA[按作者说法是xe2的毛病，我发现xe3也有，解决办法是To fix it, at unit UniChart exchange the name of units on uses session.

把unichart里use段的按下面改一下Chart -&gt; VCLTee.ChartTeEngine -&gt; VCLTee.TeEngineTeeProcs -&gt; VCLTee.TeeProcsSeries -&gt; VCLTee.Series ...]]></description>
      <category>unigui经验区</category>
      <author>admin</author>
      <pubDate>Sun, 08 Nov 2015 02:54:43 +0000</pubDate>
    </item>
    <item>
      <title>unigrid分组</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2624</link>
      <description><![CDATA[unidbgrid1.Grouping.FieldName:=\'ffenlei\';    [/backcolor]
unidbgrid1.Grouping.Enabled:=true;[/backcolor]




procedure TMainForm.UniDBGrid1ColumnSort(Column: TUniDBGridColumn;
  Direction: Boolean);
begin
  adodataset1.IndexFieldNames:=\'ffenle]]></description>
      <category>unigui经验区</category>
      <author>admin</author>
      <pubDate>Sun, 08 Nov 2015 02:53:51 +0000</pubDate>
    </item>
    <item>
      <title>unigrid行颜色</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2623</link>
      <description><![CDATA[procedure TMainForm.UniDBGrid1DrawColumnCell(Sender: TObject; ACol,
  ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs);
begin
  if adodataset1.FieldByName(\'ffenlei\').AsInteger=5 then attribs.Color:=clred;;

end;]]></description>
      <category>unigui经验区</category>
      <author>admin</author>
      <pubDate>Sun, 08 Nov 2015 02:53:08 +0000</pubDate>
    </item>
    <item>
      <title>unigrid分页数</title>
      <link>http://www.2pascal.com/forum.php?mod=viewthread&amp;tid=2622</link>
      <description><![CDATA[var 
  newpageSize: String;
begin  
  newpageSize := \'3\';
  UniSession.AddJS(\'MainForm.UniDBGrid2.getStore().pageSize = \'+newpageSize+\';\');
  UniSession.AddJS(\'MainForm.UniDBGrid2.getStore().reload({params:{start:0, limit:\'+newpageSize+\'}});]]></description>
      <category>unigui经验区</category>
      <author>admin</author>
      <pubDate>Sun, 08 Nov 2015 02:51:41 +0000</pubDate>
    </item>
  </channel>
</rss>