lawcng的博客

Delphi半透明窗体类{******************************************************************************* 半透明窗体控件 版本：1.0 功能说明 : 1.支持颜色和图片半透明 2.暂时只能手动指定背景图片 3.可调透明度(0..255) 4.可控制是否可移动窗体 联系方式： Ema...

Delphi排序算法冒泡排序、摇动排序、梳子排序、标准插入排序、优化的插入排序、希尔排序、标准归并排序、优化的归并排序、标准快速排序、无递归的快速排序、随机的快速排序、中间值的快速排序、堆排序。interface // 冒泡排序procedure BubbleSort(var abc: array of Integer); // 摇动排序procedure ShakerSort(v...

雪花算法delphi版雪花算法（snowflake）代码雪花算法（snowflake）最高位是符号位，始终为0，不可用。41位的时间序列，精确到毫秒级，41位的长度可以使用69年。时间位还有一个很重要的作用是可以根据时间进行排序。10位的机器标识，10位的长度最多支持部署1024个节点。12位的计数序列号，序列号即一系列的自增id，可以支持同一节点同一毫秒生成多个ID序号，12位的计数...

Delphi中实现ListView滚动条的换肤方案概述代码概述首先是要骗过WM_NCPAINT消息。这个十分容易。WM_NCPAINT消息的wParam是一个区域的句柄。当它不为1时，从它里面CLIP掉滚动条的区域，再传给原窗口过程即可。当它为1时，创建一个包含控件全客户区域的Region，再从中CLIP掉滚动条的区域，传给原窗口过程。然后是WM_HSCROLL和WM_VSCROLL消息。在...