简单到极致

05 2014 档案

让窗体自适应屏幕
摘要：unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V... 阅读全文
posted @ 2014-05-08 20:44 ring_hacker 阅读(240) 评论(0) 推荐(0)
获取文件sha1 值
摘要：单元IdHashSHA申明function GetFile_SHA1(const iFileName: String): String; //Checksum hash value for firefox var SHA1 : TIdHashSHA1; fileStre... 阅读全文
posted @ 2014-05-07 07:00 ring_hacker 阅读(1431) 评论(0) 推荐(0)
自定义popupmenu菜单背景色
摘要：procedure TForm1.N11DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);beginIf (Selected) ThenbeginACanvas.Font.Color := clW... 阅读全文
posted @ 2014-05-07 06:57 ring_hacker 阅读(2477) 评论(0) 推荐(0)