Delphi GDI+学习记录（21）: 颜色

2016年07月27日 43 阅读

Delphi GDI+学习记录（21）: 颜色2012-03-23 cnblogs 万一//颜色透明度var g: TGPGraphics; sb: TGPSolidBrush;begin g := TGPGraphics.Create（Canvas.Handle）; sb := TGPSolidBrush.Create（MakeColor（128,255,0,0））; {128表示半透明} g.FillRectangle（sb,10,10,100,100...

Delphi GDI+ 学习记录（22）: 输出文本<1>

2016年07月27日 46 阅读

Delphi GDI+ 学习记录（22）: 输出文本<1>2012-03-26 cnblogs 万一//输出文本var g: TGPGraphics; sb: TGPSolidBrush; fontFamily: TGPFontFamily; font: TGPFont;begin g := TGPGraphics.Create（Canvas.Handle）; sb := TGPSolidBrush.Create（MakeColor（0,0,2...

Delphi GDI+ 学习记录（23）: 输出文本&lt;2&gt;

2016年07月27日 48 阅读

Delphi GDI+ 学习记录（23）: 输出文本<2>2012-03-26 cnblogs 万一//在矩形范围中显示文本var g: TGPGraphics; fontFamily: TGPFontFamily; font: TGPFont; rectF: TGPRectF; p: TGPPen; sb: TGPSolidBrush; str: WideString;begin g := TGPGraphics.Create（Canvas....

Delphi GDI+ 学习记录（24）: 输出文本&lt;3&gt;

2016年07月27日 47 阅读

Delphi GDI+ 学习记录（24）: 输出文本<3>2012-03-26 cnblogs 万一//获取字体信息var fontFamily: TGPFontFamily; font: TGPFont;begin fontFamily := TGPFontFamily.Create（"宋体"）; font := TGPFont.Create（fontFamily, 9, FontStyleRegular, UnitPixel）; ShowM...

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

2016年07月27日 42 阅读

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

2016年07月27日 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

2016年07月27日 49 阅读

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

2016年07月27日 94 阅读

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

2016年07月27日 69 阅读

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 文件操作

2016年07月27日 45 阅读

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）

2016年07月27日 43 阅读

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 - 获取鼠标指针的当前位置

2016年07月27日 49 阅读

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 - 获取磁盘组织与容量信息

2016年07月27日 44 阅读

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

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

2016年07月27日 45 阅读

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

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

2016年07月27日 49 阅读

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 - 获取键盘的类型信息

2016年07月27日 43 阅读

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与转换

2016年07月27日 45 阅读

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 - 根据键盘消息获取按键名称

2016年07月27日 48 阅读

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 - 判断系统中存在的逻辑驱动器

2016年07月27日 48 阅读

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

2016年07月27日 41 阅读

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