无题

太久没有写些什么了，连碎碎念都没有，这样的话，无题才是最合适的主题。

很久没有翻看纸质书，手机，亦或是需要称之为网络，越来越成为占据心灵和时光的东西。

就像密密麻麻编织的蛛丝，缠缠绕绕，将我这只猎物捕获，迅速蚕食殆尽。继续阅读“无题”

Delphi中Memo控件自适应高度的方法

在需要调整Memo控件高度的地方（如Memo控件的OnChange事件中），调用MemoAutoSize函数即可。

procedure MemoAutoSize(Memo: TMemo);
var
  DC: HDC;
  SaveFont: HFont;
  I: Integer;
  SysMetrics, Metrics: TTextMetric;
begin
  DC := GetDC(0);
  try
    GetTextMetrics(DC, SysMetrics);
    SaveFont := SelectObject(DC, Memo.Font.Handle);
    GetTextMetrics(DC, Metrics);
    SelectObject(DC, SaveFont);
  finally
    ReleaseDC(0, DC);
  end;
  if NewStyleControls then
  begin
    if Ctl3D then I := 8 else I := 6;
    I := GetSystemMetrics(SM_CYBORDER) * I;
  end else
  begin
    I := SysMetrics.tmHeight;
    if I > Metrics.tmHeight then I := Metrics.tmHeight;
    I := I div 4 + GetSystemMetrics(SM_CYBORDER) * 4;
  end;
  Memo.Height := Metrics.tmHeight * SendMessage(Memo.Handle, EM_GETLINECOUNT, 0, 0) + I;
end;

继续阅读“Delphi中Memo控件自适应高度的方法”

关于UC浏览器电脑版的红杏出墙和UCWiFi

看到UC浏览器推出电脑版，于是想要下载下来体验一下。

装完发现还要邀请码，前往官网得知这一轮的邀请码已经被抢完，瞬间觉得非常反感。

自从小米开创了“抢”这种营销方式以来，各路厂商真是乐此不疲啊。

继续阅读“关于UC浏览器电脑版的红杏出墙和UCWiFi”

3.1

半途而废的人，生来如此。

不过还是撒个花，毕竟小角落还是写下了自己点点滴滴的小心情，虽然只是零零散散，散落在那里。

有月牙潭，有昆明，有童年，有十玖年，有爱恋，那些大脑无法拼凑的画面，在这里。
继续阅读“3.1”

一座城

预计又是一场为期一周的阴雨，着实讨厌夏天以外的雨，当然夏天的雨也不太喜欢，缘于高中某场大雨。
我这个人容易想太多，今年大雪那天爸爸出门喝酒，长时间不联系就开始胡思乱想，诸如此类，反感雨天的原因也类似于此。
据说，心事重和手纹乱正相关，有没有因果关系就不得而知了。
继续阅读“一座城”