玩传奇论坛

标题: M2客户端调用的各类函数说明 [打印本页]

作者: admin    时间: 2021-12-13 19:00
标题: M2客户端调用的各类函数说明
TRect   定义一个矩形区域对象
  TClickPoint = record
    rc: TRect;
    rstr: string;
  end;
  PTClickPoint = ^TClickPoint;
Delphi为用户提供了一个方便的绘图环境,即某些控件的CANVAS属性(画布)。用户可以把某些控件的表面作为一张画布,在上面绘制各种图形或显示图像,但在CANVAS的使用过程中少不了一个特殊对象,那就是矩形RECT,灵活使用它会完成很多特殊的功能,为Delphi编制的Windows程序增加活力。

RECT的特点
----RECT既是一个特殊的数据结构,又是一个函数,它的作用就是定义一个矩形区域对象,而作为函数使用时它可以用两个属性(Tpiont型)指明区域范围,同时也可分解成四个单一的变量类型(Integer型),即:

topleft:左上角坐标(Tpiont型变量);
bottomright:右下角坐标(Tpiont型变量);
topleft.x或left:左上角横坐标;
topleft.y或top:左上角纵坐标;
bottomright.x或right:右下角横坐标;
bottomright.y或bottom:右下角纵坐标。
----例如,下面三种方法定义一个相同的RECT变量:

  Rect(10,10,110,210);
  topleft:=Piont(10,10);
bottomright:=Point(110,210);
  left:=10;top:=10;right:=110;Bottom:=210;
----下面的代码在Form1窗体上定义一个RECT矩形并用红色填充:

   var
    NewRect: TRect;
   begin

    NewRect := Rect(20, 30, 50, 90);
    Form1.Canvas.Brush.Color := clRed;
    Form1.Canvas.FillRect(NewRect);
  end;
----从上面可以看出,RECT只是一个通用变量,它并不属于任何控件本身,定义之后可由任何具有CANVAS属性的控件使用,以指明某控件表面的一个矩形区域,并且程序运行过程中可随意修改尺寸和位置。

RECT操作命令
Rect(x1,y1,x2,y2):定义Rect区域范围。
FillRect(rect:Trect):用填充色填充Rect区域。
FloodFill:用填充色填充Rect之外区域。
textrect(Rect:TRect;X,Y:Integer;constText:string):在Rect对象中显示文本,其中的X、Y为显示文本的坐标值,是相对于画布的坐标而不是相对于RECT的坐标;const为显示的字符个数;string为待显示的字符串,只有在RECT内的字符才能显示出来,超出部分不显示。
stretchdraw(constRect:TRect;Graphic:TGraphic):把图像文件填充到Rect之中,并且图像按RECT的尺寸自动伸缩,其中的Graphic可为BMP或ICO等图像资源。
font.size:定义画布上显示文字的尺寸。
font.color:定义画布上显示文字的颜色。
textwidth:返回字符串的长度。
textheight:返回字符串的高度。
Brush.Color:定义画布的填充颜色。
Copyrect(Dest:TRect;Canvas:Tcanvas;Source:TRect):把图像从一个矩形中拷到另一个矩形之中,并且按目标矩形尺寸自动伸缩,其中,Dest为目标画布矩形,Canvas为源画布,Source为源矩形。
----由于上述命令均是基于画布本身使用的,所以具体使用时必须加上控件及画面属性,例如下面的代码:

   var
    TheRect: TRect;
   begin
    TheRect.Top := 10;
    TheRect.Left := 10;
    TheRect.Bottom := 100;
    TheRect.Right := 100;
  Form1.Canvas.TextRect(TheRect,0,0,‘Hello,
world!‘);
  end;

COPY函数
功能说明:该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串),第二个参数是从字符串某一处开始复制,第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。
  参考实例:
  var
    S: String;
    MyStr: String; // 保存新的字符串
  begin
    S := 'I Love China!';
  //下面将获取I Love China中的“Love”字符串。
  MyStr := Copy(S, 3, 4);
  end;
  执行结果,MyStr等于“Love”,“Love”字符串在“I Love China!”中第3个位置开始,所以第二个参数为3,“Love”一共有4个字符,所以第三个参数为4。

Val  函数
Val(st,var,code);//把字符串表达式st转换为对应整型或实型数值,存放在var中。St必须是一个表示数值的字符串,并符合数值常数的规则。在转换过程中,如果没有检测出错误,变量code置为0,否则置为第一个出错字符的位置。例如,st:=25.4E3,x是一个实型变量,则val(st,x,code)将使X值为25400,code值为0。
GetCursorPos  函数
//用 GetCursorPos 获取的是鼠标相对与屏幕的位置
var
  ps: TPoint;
  str: string;
begin
  GetCursorPos(ps);
  str := Format('%d,%d',[ps.X,ps.Y]);
  ShowMessage(str);
end;

OnIdIe事件
对应对象:TApplication
声明: property OnIdle: TIdleEvent;
功能:在应用程序空闲时将发生OnIdle事件c
如果用户想在应用程序空闲时处理一些操作,可以将一个事件处理代码添加到
OnIdle事件上去。TIdleEvent的类型被声明成为OnIdLe,定义是:
TidleEvent=procedure(Senger:Tobject; var Done: Boolean) of object;
其中Done参数缺省时为真,声明应用程序等待系统的信息。当Done参数为假
时,应用程序将不处理系统信息。使用OnIdle事件要特别注意,许多应用程序
不需要处理这个事件。(
DInput获取数据主要分为直接和缓存两种方式。我主要讲直接方式(因为最简单)。
要在Delphi里获取DInput的数据,最好是在程序的OnIdle事件里。这样就能不断地轮询DInput的输入。
首先声明一个OnIdle函数
    procedure AppIdle(Sender: TObject; var Done: Boolean);
然后在程序初始化时设置,  Application.OnIdle := AppIdle;
接下来就可以在AppIdle函数里获取DInput输入了.代码如下:
//激活OnIdle事件
  Done := False;
//键盘消息
FDInputKeyBoard.GetDeviceState(256, @keyboard_state);
for i := 0 to 255 do
begin
  if keyboard_state[i] <> 0 then
    Self.Canvas.TextOut(0,0, '你按了一个键,它的代码是:' + IntToStr(i));
  end;
end;
//鼠标消息
FDInputMouse.GetDeviceState(SizeOf(DIMOUSESTATE), @mouse_state);
if (mouse_state.lX <> 0) or (mouse_state.lY <> 0) then
begin
  Self.Canvas.TextOut(0,20, '鼠标的X坐标移动量:' + IntToStr(mouse_state.lX));
  Self.Canvas.TextOut(0,40, '鼠标的Y坐标移动量:' + IntToStr(mouse_state.lY));
end;
if mouse_state.rgbButtons[0] <> 0 then
  Self.Canvas.TextOut(0,60, '你按了鼠标的左键');
关于如何在Delphi的VCL环境里使用DirectInput,我就教到这里了。有关DInput的更详细信息,请参考微软的DX9SDK。
最后是完整的DInput鼠标和键盘的演示程序


SetBkMode  函数
SetBkMode( Canvas.Handle, TRANSPARENT ); //设置字体输出为背景透明

背景颜色
clBlack(黑色),clMaroon(暗红),clGreen(绿色),clOlive(橄榄绿),clNavy(深蓝),clPurple(紫色),clTeal(深青),clGray(灰色),clSilver(浅灰),clRed(红色),clLime(浅绿),clYellow(黄色),clBlue(蓝色),clFuchsia(紫红),clAqua(青绿),clWhite(白色)。   






欢迎光临 玩传奇论坛 (http://wanmirbbs.com/) Powered by Discuz! X3.2