Delphi GDI+ 学习记录（25）: 变换 - Transform

2017年02月06日 56 阅读

Delphi GDI+ 学习记录（25）: 变换 - Transform2012-03-26 cnblogs 万一//比例变化var g: TGPGraphics; p: TGPPen; rect: TGPRect;begin g := TGPGraphics.Create（Canvas.Handle）; p := TGPPen.Create（MakeColor（255,255,0,0）,0）; rect := MakeRect（10,10,100,100...

Delphi GDI+ 学习记录（26）: 显示图像 - Image

2017年02月06日 59 阅读

Delphi GDI+ 学习记录（26）: 显示图像 - Image2012-03-26 cnblogs 万一//显示图像var g: TGPGraphics; img: TGPImage;begin g := TGPGraphics.Create（Self.Canvas.Handle）; img := TGPImage.Create（"c: empx.jpg"）; g.DrawImage（img,10,10）; {参数2、3是坐标} img.Free; ...

Delphi GDI+ 学习记录（27）: Bitmap

2017年02月06日 58 阅读

Delphi GDI+ 学习记录（27）: Bitmap2012-03-26 cnblogs 万一//用 Bitmap 显示图像var g: TGPGraphics; bit: TGPBitmap;begin g := TGPGraphics.Create（Canvas.Handle）; bit := TGPBitmap.Create（"c: empx.jpg"）; g.DrawImage（bit, 11, 11）; {默认大小竟然和 1:1 不一样, 是...

Delphi GDI+ 学习记录（28）: 图像颜色的数据格式 - PixelFormat

2017年02月06日 64 阅读

Delphi GDI+ 学习记录（28）: 图像颜色的数据格式 - PixelFormat2012-03-26 cnblogs 万一//指定位图颜色var g,gbit: TGPGraphics; bit1,bit2: TGPBitmap; sb: TGPSolidBrush;begin //Self.Color := clWhite; g := TGPGraphics.Create（Canvas.Handle）; sb := TGPSolidBrush....

Delphi GDI+ 学习记录（29）: 区域 - Region

2017年02月06日 61 阅读

Delphi GDI+ 学习记录（29）: 区域 - Region2012-03-26 cnblogs 万一//创建并填充区域var g: TGPGraphics; sb: TGPSolidBrush; region: TGPRegion; {定义区域}begin g := TGPGraphics.Create（Canvas.Handle）; sb := TGPSolidBrush.Create（aclGold）; region := TGPRegion....

Delphi GDI+ 学习记录（30）: MetaFile 文件操作

2017年02月06日 61 阅读

Delphi GDI+ 学习记录（30）: MetaFile 文件操作2012-03-26 cnblogs 万一//显示 MetaFile 文件var g: TGPGraphics; img: TGPImage;begin g := TGPGraphics.Create（Canvas.Handle）; img := TGPImage.Create（"c: empx.emf"）; {文件要存在} g.DrawImage（img, 11, 11）; img.F...

Delphi GDI+ 学习记录（31）: 图像颜色变换（TGPImageAttributes）

2017年02月06日 69 阅读

Delphi GDI+ 学习记录（31）: 图像颜色变换（TGPImageAttributes）2012-03-26 cnblogs 万一//正常显示图片, 没有变换uses GDIPAPI, GDIPOBJ;procedure TForm1.FormPaint（Sender: TObject）;var g: TGPGraphics; img: TGPImage;begin g := TGPGraphics.Create（Canvas.Handle）; i...

Delphi调用WinAPI: GetCursorPos - 获取鼠标指针的当前位置

2017年02月06日 63 阅读

Delphi调用WinAPI: GetCursorPos - 获取鼠标指针的当前位置2012-03-31 cnblogs 万一//声明:GetCursorPos（ var lpPoint: TPoint {POINT 结构指针, 接收鼠标指针的屏幕坐标}）: BOOL;//举例:var pt: TPoint;begin GetCursorPos（pt）; ShowMessage（Format（"ScreenX: %d; ScreenY: %d", [pt....

Delphi调用WinAPI: GetDiskFreeSpace - 获取磁盘组织与容量信息

2017年02月06日 63 阅读

Delphi调用WinAPI: GetDiskFreeSpace - 获取磁盘组织与容量信息2012-03-31 cnblogs 万一//声明:GetDiskFreeSpace（ lpRootPathName: PChar; {磁盘根路径} var lpSectorsPerCluster: DWORD; {一个簇内的扇区数} var lpBytesPerSector: DWORD; {一个扇区内的字节数} var lpNumberOfF...

Delphi调用WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息

2017年02月06日 58 阅读

Delphi调用WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息2012-03-31 cnblogs 万一//声明:GetDiskFreeSpaceEx（ lpDirectoryName: PChar; {磁盘根路径} var lpFreeBytesAvailableToCaller: TLargeInteger; {可用空间} var lpTotalNumberOfBytes: TLargeInteger...

Delphi调用WinAPI: GetDriveType - 获取磁盘类型

2017年02月06日 58 阅读

Delphi调用WinAPI: GetDriveType - 获取磁盘类型2012-03-31 cnblogs 万一//声明:GetDriveType（ lpRootPathName: PChar {磁盘根目录}）: UINT;//返回值:DRIVE_UNKNOWN = 0; {未知}DRIVE_NO_ROOT_DIR = 1; {可移动磁盘}DRIVE_REMOVABLE = 2; {软盘}DRIVE_FIXED = 3; {本地硬盘}DRI...

Delphi调用WinAPI: GetKeyboardType - 获取键盘的类型信息

2017年02月06日 60 阅读

Delphi调用WinAPI: GetKeyboardType - 获取键盘的类型信息2012-03-31 cnblogs 万一//声明:GetKeyboardType（ nTypeFlag: Integer {0:键盘类型; 1:键盘子类型; 2:功能键数量}）: Integer;//举例:procedure TForm1.FormCreate（Sender: TObject）;var i: Integer; List: TStringList;begi...

Delphi调用WINApi: GetCursorPos与转换

2017年02月06日 62 阅读

Delphi调用WINApi: GetCursorPos与转换2012-04-02 cnblogs 万一//获取鼠标在窗体中的当前位置procedure TForm1.FormMouseDown（Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer）;var str: string;begin str := Format（"%d,%d",[X,Y]）; ShowMe...

Delphi调用WinAPI: GetKeyNameText - 根据键盘消息获取按键名称

2017年02月06日 61 阅读

Delphi调用WinAPI: GetKeyNameText - 根据键盘消息获取按键名称2012-04-02 cnblogs 万一本例效果图:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class（TForm） procedure FormCreate（S...

Delphi调用WinAPI: GetLogicalDrives - 判断系统中存在的逻辑驱动器

2017年02月06日 63 阅读

Delphi调用WinAPI: GetLogicalDrives - 判断系统中存在的逻辑驱动器2012-04-02 cnblogs 万一//声明:GetLogicalDrives: DWORD; {无参数}//返回值:返回值的二进制右边第一位为 1 表示驱动器 A: 存在;返回值的二进制右边第二位为 1 表示驱动器 B: 存在...以次类推.//举 例:procedure TForm1.FormCreate（Sender: TObject）;var Dr...

DELPHI DATASNAP 2010入门操作（1）为什么要用datasnap 2010

2017年02月06日 69 阅读

DELPHI DATASNAP 2010入门操作（1）为什么要用datasnap 20102012-04-02 博客园 周黔网上关于新版本的datasnap的资料不是太多，我现在所能找到的全面一些的，也就是 我们QQ群（DATASNAP[DELPHI]三层：67803772）里面的两位高手写的分析文章，且已经 转到了我的BLOG文章中，还有群里面的一位朋友翻译了的datasnap 的一些资料。对于datsanp 来说，其实我也只能算是一个入门者，因为一些相...

DELPHI DATASNAP 2010入门操作（2）不写一行代码，绿色三层我也行

2017年02月06日 59 阅读

DELPHI DATASNAP 2010入门操作（2）不写一行代码，绿色三层我也行2012-04-02 博客园 周黔没有一行代码的三层，功能肯定非常的简单，但是，再简单，我们也三层了，学习一 个东西，需要从入门开始就有兴趣，如果入门就给吓怕了，哪么后来何来信心学习呢？ 现在就让我们开始吧，不只是没有华丽的词语，而是连用词都不专业，因为，我也只是 一个入门者。我所用的版本为：Embarcadero® Delphi® 2010 Version ...

WinAPI: GetLogicalDriveStrings - 获取系统中存在的逻辑驱动器字符串

2017年02月06日 59 阅读

WinAPI: GetLogicalDriveStrings - 获取系统中存在的逻辑驱动器字符串2012-04-04 cnblogs 万一//声明:GetLogicalDriveStrings（ nBufferLength: DWORD; {缓冲区大小} lpBuffer: PAnsiChar {缓冲区}）: DWORD;//缓冲区的结果是这样储存的: 譬如 A 驱动器会表示为 A: 后面 隔一个空字符, 依次向后;//所以每个驱动器会占 4 字节./...

Delphi调用WinAPI: GetSystemInfo - 获取系统信息

2017年02月06日 71 阅读

Delphi调用WinAPI: GetSystemInfo - 获取系统信息2012-04-04 cnblogs 万一//声明:GetSystemInfo（ var lpSystemInfo: TSystemInfo {}）;//TSystemInfo 是 _SYSTEM_INFO 结构的重定义:_SYSTEM_INFO = record case Integer of 0: （ dwOemId: DWORD）; {返回计算机标识符, 已废弃} 1...

Delphi调用WinAPI: GetSystemMetrics - 获取系统度量等数值信息

2017年02月06日 60 阅读

Delphi调用WinAPI: GetSystemMetrics - 获取系统度量等数值信息2012-04-04 cnblogs 万一声明:GetSystemMetrics（ nIndex: Integer {参数, 详见下表}）: Integer;举例 - 获取屏幕分辨率:var cx,cy: Integer;begin {通过 GetSystemMetrics 函数获取屏幕分辨率} cx := GetSystemMetrics（SM_CXSCREEN）...