2016年2月8日
什么是透明（和Windows主题有关系），研究TLable和TPanel是两个好例子
在controls.pas单元里只有判断，没有赋值，所以一直不是很明白。于是在stdCtrls.pas里找了几个例子，直观加深一下印象： constructor TCustomLabel.Create(AOwner: TComponent); begin inherited Create(AOwne Read More
posted @ 2016-02-08 17:36 findumars Views(533) Comments(0) Diggs(0)
两种不同刷新和显示（有待研究）
情况1：设计期放一个Panel1，然后在Panel1再放一个Panel2，再把Panel1.visible设置为false。那么执行 的过程是怎么样显示这两个Windows窗口的呢？是否有WM_PAINT消息出现呢？（首次显示好像不需要WM_PAINT，只需要有无效区域） 情况2：设计期放一个Pan Read More
posted @ 2016-02-08 17:01 findumars Views(219) Comments(0) Diggs(0)
先有Delphi内存对象，后有句柄（如果需要的话），最后再显示
在设计期放上一个Panel1和Button1，然后设置Panel1.Visible:=False 这时候执行： procedure TForm1.Button4Click(Sender: TObject); begin ShowMessage(IntToStr(panel1.InstanceSize Read More
posted @ 2016-02-08 16:54 findumars Views(402) Comments(0) Diggs(0)
终于懂了：FWinControls子控件的显示是由Windows来管理，而不是由Delphi来管理（显示透明会导致计算无效区域的方式有所不同——透明的话应减少剪裁区域，所以要进行仔细计算）
在研究TCustomControl的显示过程中，怎么样都找不到刷新FWinControls并重新显示的代码： procedure TWinControl.PaintHandler(var Message: TWMPaint); var I, Clip, SaveIndex: Integer; DC: Read More
posted @ 2016-02-08 16:31 findumars Views(531) Comments(0) Diggs(0)
2016年2月5日
VPN指定某个程序，其实是改路由表（赛风支持VPN和SSH和SSH+模式）
只有注册用户登录后才能阅读该文。 Read More
posted @ 2016-02-05 23:54 findumars Views(161) Comments(0) Diggs(0)