╰★张志峰★╮

坐标的相对转换ClientToScreen与ScreenToClient

摘要：假如一个有一个TEdit的实例edt_Position，edt_Position所在容器有好几层，所在的窗体为frmMain。现要弹出一个FORM，FORM的容器为frmMain,弹出的位置在edt_Position的下面，并且左边对齐，如何做呢？首先将edt_Position的坐标转换为屏蔽坐标阅读全文

posted @ 2017-12-13 08:42 ╰★张志峰★╮ 阅读(1085) 评论(0) 推荐(0)

delphi GetKeyState

摘要： GetKeyState(VK_CAPITAL) & 0x00010x8000 是键有否按下0x0001 是键的翻转状态 var bF1Down: Boolean;begin bF1Down := (GetKeyState(VK_SPACE) and $8000 > 0); 阅读全文

posted @ 2017-12-12 13:33 ╰★张志峰★╮ 阅读(891) 评论(0) 推荐(0)

delphi 处理缩放图像

摘要： procedure TTMEImageDeviceIdentifyFrom.DrawText(AImage : TImage; AFile: string);var I: Integer; iWidth, iHeight: Integer; oInfo: TTextInfoAry; oRect, R 阅读全文

posted @ 2017-11-09 19:10 ╰★张志峰★╮ 阅读(2072) 评论(0) 推荐(0)

delphi Image 处理

摘要： procedure ResizeBmp(Src,Dst:String);var SrcBM,DstBM:TBitMap; Rect:TRect; NewW,NewH,PicW,PicH:Integer; HDivW:Double;begin SrcBM:=TBitMap.Create; SrcBM. 阅读全文

posted @ 2017-11-09 18:36 ╰★张志峰★╮ 阅读(811) 评论(0) 推荐(0)

delphi Image处理

摘要： procedure ImageDrawText(ATextEdo: IGGCCADTextEDO); var oImageBitmap: TBitmap; x1,x2,y1,y2: double; begin // 加载图片 oImageBitmap := TBitmap.Create; try o 阅读全文

posted @ 2017-11-08 18:10 ╰★张志峰★╮ 阅读(575) 评论(0) 推荐(0)

cocos2dx学习之路

摘要： http://blog.csdn.net/qq_30501909/article/details/50720227 阅读全文

posted @ 2017-10-31 14:23 ╰★张志峰★╮ 阅读(170) 评论(0) 推荐(0)

Delphi 3D Glscene安装

摘要： http://www.cnblogs.com/bhlsheji/p/4713522.html GLScene开源库Delphi基于提供OpenGL的3D框架。由GLScene组件，您可以轻松地创建和渲染你的3D幕后。令人奇怪的是，。对于这样一个很好的开源库。该网络无法找到完整的安装说明，甚至GLSc 阅读全文

posted @ 2017-10-31 13:56 ╰★张志峰★╮ 阅读(1050) 评论(0) 推荐(0)

去除标题栏，绘制标题栏，设置最大化不盖住任务栏

摘要： unit TMEModelImputForm; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, 阅读全文

posted @ 2017-10-27 15:57 ╰★张志峰★╮ 阅读(999) 评论(0) 推荐(0)

完全自定义窗体风格的实现

摘要：完全自定义窗体风格的实现最小化到任务栏postmessage(Self.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0); 最大化或还原procedure Tf_MainForm.RzToolButton1Click(Sender: TObject);var abd: TAp 阅读全文

posted @ 2017-10-27 10:11 ╰★张志峰★╮ 阅读(305) 评论(0) 推荐(0)

有谁知道Delphi中"窗口"的创建过程?

摘要：求助：有谁知道Delphi中窗口的创建过程，此“窗口”不仅仅指 TForm 类型，还包括一般的窗口控件，如TButton，TEdit等等，希望有能够十分详细的运作过程，比如说CreatParams，CreateWindowHandle等等函数的调用情况，可能调试过 Delphi VCL 源代码阅读全文

posted @ 2017-10-27 09:41 ╰★张志峰★╮ 阅读(956) 评论(0) 推荐(0)

张志峰的博客

导航

公告