Delphi 通过窗口句柄加粗窗口边框、描边

// 使窗口边框变粗
procedure TForm1.InvertTracker(hwndDest: Integer);
var
hdcDest, hPen, hOldPen, hOldBrush : Integer;
cxBorder : Integer;
rc : TRect;
Const NULL_BRUSH = 5;
Const R2_NOT = 6;
Const PS_INSIDEFRAME = 6;
begincxBorder := GetSystemMetrics(5);GetWindowRect(hwndDest, rc);    //返回指定窗口的边框矩形的大小// GetWindowDC(0) 取得桌面的设备环境，也可以用 GetDC(0)hdcDest:=GetWindowDC(0);//GetWindowDC返回hWnd参数所指定的窗口的设备环境。// 用这句的时候会发现窗口并不会描边// 原因在于：当你将下面的Rectangle 的坐标信息偏移几个像素之后// 发现其实已经描边了，只不过描在了窗口内非显示区域，超出边框的范围// 因此，修改描边位置为桌面，//再通过GetWindowRect取得的边框坐标，将Rectangle偏移到正确位置上//hdcDest := GetWindowDC(hwndDest);  //用于设定当前前景色的混合模式。//R2_NOT就是取反的意思，即前景色为背景色的反色，//经常用R2_NOT来画橡皮线，因为两次取反可以还原背景色。SetROP2(hdcDest, R2_NOT);hPen := CreatePen(PS_SOLID, 3 * cxBorder, clBlack);    //PS_INSIDEFRAMEhOldPen := SelectObject(hdcDest, hPen);hOldBrush := SelectObject(hdcDest, GetStockObject(NULL_BRUSH));//当绘图环境再窗体内时，第二第三参数因为0，0；这是因为表达的是hdcDest区域的坐标//当修改绘图环境为桌面时，2-5参数设置为上面GetWindowRect 获取的边框坐标即可Rectangle(hdcDest, rc.Left, rc.Top, rc.Right, rc.Bottom);SelectObject(hdcDest, hOldBrush);SelectObject(hdcDest, hOldPen);DeleteObject(hPen);ReleaseDC(hwndDest, hdcDest);end;

效果图如下

Delphi 通过窗口句柄加粗窗口边框、描边相关推荐

html5表格内边框加粗,如何制作加粗的边框表格？
平时我们做表格的时候,可以制作加粗的边框表格,那么,如何制作呢?下面是小编为大家精心整理的关于如何制作加粗的边框表格?希望能够帮助到你们. 方法/步骤 1第一步:打开Excle表格,选择需要添加加粗边 ...
宽php边框粗细_phpexcel导出excel外边框加粗，边框细线，合并单元格，换行，居中，上边距，左边距，打印设置...
外边框加粗: $styleArray2 = array( 'borders' => array( 'outline' => array( 'style' => PHPExcel_St ...
python docx 加粗的边框_修改固定行与列的加粗边框显示样式
Spreadfor ASP.NET 6.0产品中提供了固定行与固定列的功能,用户只需设置以下两行代码就可以实现: this.FpSpread1.Sheets[0].FrozenRowCount = 2 ...
python docx 加粗的边框_使用python-docx在表格中指定边框外观
我正在阅读 python-docx的教程和文档. 但是,我找不到关于如何指定和操作在Microsoft Word文档中创建的表格的边框外观的任何参考. 当我使用以下代码时: from docx imp ...
wps怎么把边框加粗_WPS文字表格怎么把表格外框线加粗?
当我们要对word中插入的表格边框进行加粗的话,该如何操作呢?这就是本章的主要内容,脚本之家教大家如何去给word表格编辑进行加粗的方法. 一.对word表格整个表格进行边框加粗: 选中表格,右击-& ...
html表格合并线条不加粗,word表格线条加粗后不显示
当我们要对word中插入的表格边框进行加粗的话,该如何操作呢?这就是本章的主要内容,脚本之家教大家如何去给word表格编辑进行加粗的方法. 一.对word表格整个表格进行边框加粗: 选中表格,右击-& ...
python3-xlwt-Excel设置表格基础(字体颜色背景颜色设置边框边框颜色冻结窗口字体大小字体高度字体加粗下划线斜体字单元格对齐方式自动换行删除线超链接插入公式)
文章目录引入xlwt和创建workboos对象初始化样式和创建设置字体,赋值给style 保存文件自定义样式字体颜色背景颜色设置边框边框颜色冻结窗口字体大小字体高度字体加粗下划 ...
文字描边加粗_让文字表现出十足的个性！
文/刘也如今文字已不仅仅是一种传播信息的工具,通过一番艺术加工后,还能使其具备视觉上的装饰性,同时提升设计作品的注目度. 让文字变得更具个性的方法有很多,例如:文字的意象或表象化处理.图形化文字等. ...
pythonxlwt行居中_python3-xlwt-Excel设置(字体大小、颜色、对齐方式、换行、合并单元格、边框、背景、下划线、斜体、加粗)...
# coding:utf-8 import patterns as patterns import xlwt import time i = 0 book = xlwt.Workbook(encodi ...

Delphi 通过窗口句柄加粗窗口边框、描边

Delphi 通过窗口句柄加粗窗口边框、描边相关推荐

最新文章

热门文章

Delphi 通过窗口句柄 加粗窗口边框、描边

Delphi 通过窗口句柄 加粗窗口边框、描边相关推荐

最新文章

热门文章

Delphi 通过窗口句柄加粗窗口边框、描边

Delphi 通过窗口句柄加粗窗口边框、描边相关推荐