2005/10/10 | 排列桌面图标位置
类别(网页类学习笔记) | 评论(0) | 阅读(1319) | 发表于 10:34
unit unitFrmMain;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, CommCtrl;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
// 声明一个取得桌面句柄的函数：
function GetDesktopHand: THandle;
// 声明一个设置图标文字颜色的过程：
procedure SetTextColor(ForeClr, BackClr: TColor);
public
{ Public declarations }
// 以屏幕的中心为圆点作圆形排列：
procedure Circle(r: integer); // 形参 r 为半径；
// 图标右对齐：
procedure AlignRight(Rec: Integer); // 形参 Rec 为一个图标所占区域大小，一般为77；

end;

var
Form1: TForm1;

implementation

{$R *.DFM}

// 声明一个取得桌面句柄的函数：
function TForm1.GetDesktopHand: THandle;
begin
Result := FindWindow('progman', nil);
Result := GetWindow(Result, GW_Child);
Result := GetWindow(Result, GW_Child);
end;

// 声明一个设置图标文字前景和背景颜色的过程：
procedure TForm1.SetTextColor(ForeClr, BackClr: TColor);
var Hand: THandle;
begin
Hand := GetDesktopHand;
Listview_SetTextColor(Hand, ForeClr); // 设置文字前景色；
Listview_SetTextBkColor(Hand, BackClr); // 设置文字背景色，crNone 为透明；
Listview_RedrawItems(Hand, 0, Listview_GetItemCount(Hand)); // 重画；
end;

// 以屏幕的中心为圆点作圆形排列：
procedure TForm1.Circle(r: integer); // 形参 r 为半径；
var
i, Count, CenterX, CenterY, TempR: integer;
Hand: THandle;
Radian: double;
TempRect: TRect;
DesktopHeight, DesktopWidth: integer;
X, Y: Word;
begin
Hand := GetDesktopHand;
SystemParametersInfo(SPI_GetWorkArea, 0, @TempRect, 0); // 取得工作区域；
DesktopWidth := TempRect.Right - TempRect.Left; // 工作区的宽（即屏幕的宽）；
DesktopHeight := TempRect.Bottom - TempRect.Top; // 工作区的高（即屏幕的高）；
CenterX := DesktopWidth div 2; // 取得圆心 X 坐标；
CenterY := DesktopHeight div 2; // 圆心 Y 坐标；
if CenterX > CenterY then
TempR := CenterY
else
TempR := CenterX;
if r > TempR then r := TempR; // 半径不能超过屏幕中心点到四边的最短距离；
Count := Listview_GetItemCount(Hand); // 桌面上图标个数；
Radian := 2 * 3.14159 / Count; // 相邻图标间的弧度；
for i := 0 to Count - 1 do
begin
// 第一个图标排在正上方；
X := Integer(CenterX + Trunc(r * Sin(i * Radian))); // 图标的X坐标；
Y := Integer(CenterY + Trunc(r * Cos(i * Radian))); // 图标的Y坐标；
SendMessage(Hand, LVM_SetItemPosition, i, MakeLparam(X, y)); // 设置坐标；
end;
end;

// 图标右对齐：
procedure Tform1.AlignRight(Rec: Integer); // 形参 Rec 为一个图标所占区域大小，一般为77；
var Hand: THandle;
h, I, j, DesktopHight, DesktopWidth: integer;
TempRect: TRect;
begin
Hand := GetDesktopHand;
SystemParametersInfo(SPI_GetWorkArea, 0, @TempRect, 0); // 取得工作区域；
DesktopWidth := TempRect.Right - TempRect.Left; // 工作区的宽（即屏幕的宽)
DesktopHight := TempRect.Bottom - TempRect.Top; // 工作区的高（即屏幕的高）；
I := 0; // 图标所排的列数
J := 0;
for h := 0 to Listview_GetItemCount(Hand) - 1 do
begin
Inc(j);
if j * rec > DesktopHight then // 排完一列；
begin
Inc(i); // 换列
J := 1;
end;
SendMessage(Hand, LVM_SetItemPosition, h,
MakeLparam(DesktopWidth - Rec * (I + 1), Rec * (j - 1)));
end; // for 循环结束；
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
SetTextColor(clYellow, crNone); // 设置图标文字颜色；
Circle(300); // 把图标排列成半径为200的圆
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
AlignRight(70); // 右对齐
end;

end.
0

评论Comments

日志分类
首页[289]
教程习题[21]
数据库学习笔记[60]
语言类学习笔记[75]
网页类学习笔记[93]
其他相关笔记[40]