ITPub博客

首页 > IT职业 > IT生活 > 我的一些心得 (转)

我的一些心得 (转)

原创 IT生活 作者:amyz 时间:2007-10-29 08:19:22 0 删除 编辑
我的一些心得 (转)[@more@]

file://-----------------------------------------------------------------------------
int __declspec(dllexport)myFunction::GetScreen()
{
  int wid,hei;
  DEVMODE DevMode;
  int i=0;
  while(EnumDisplaySettings(NULL,i,&DevMode))
  i--;
  wid=(int)DevMode.dmPelsWidth;
  hei=(int)DevMode.dmPelsHeight;
  return(wid);
  file://return(hei);
}
file://-----------------------------------------------------------------------------
void __declspec(dllexport) myFunction::mkFormSize(TFoRM *Fom)
{
 int width;
  width=GetScreen();
  switch(width){
  case 640:
  Fom->ScaleBy(640,1024);
  break;
  case 800:
  Fom->ScaleBy(800,1024);
  break;
  case 1024:
  Fom->ScaleBy(1,1);
  break;
  case 1280:
  Fom->ScaleBy(1280,1024);
  break;
  default :
  break;
  }
}
file://------------------------------------------------------------------------------
void __declspec(dllexport) myFunction::mkTringButton(TBitBtn *bt)
{
  POINT TrPoint[3];
  TrPoint[0].x=bt->Width/2;
  TrPoint[0].y=0;
  TrPoint[1].x=0;
  TrPoint[1].y=bt->Height;
  TrPoint[2].x=bt->Width;
  TrPoint[2].y=bt->Width;
  HRGN hRgn=CreatePolygonRgn(TrPoint,3,1);
  SetWindowRgn(bt->Handle,hRgn,true);
}


file://-----------------------------------------------------------------------------
void __declspec(dllexport) myFunction::mkTringButton(TButton *bt)
{
  POINT TrPoint[3];
  TrPoint[0].x=bt->Width/2;
  TrPoint[0].y=0;
  TrPoint[1].x=0;
  TrPoint[1].y=bt->Height;
  TrPoint[2].x=bt->Width;
  TrPoint[2].y=bt->Width;
  HRGN hRgn=CreatePolygonRgn(TrPoint,3,1);
  SetWindowRgn(bt->Handle,hRgn,true);
}
file://------------------------------------------------------------------------------
void __declspec(dllexport) myFunction::mkEllipseForm(TForm *Fom)
{
  HRGN R;
  R=CreateEllipticRgn(0,0,Fom->Width,Fom->Height);
  SetWindowRgn(Fom->Handle,R,true);
}
file://------------------------------------------------------------------------------
void __declspec(dllexport) myFunction::mkMaxSizeImage(TForm *Fom,TImage *Image)
{
  Fom->BorderStyle=bsNone;
  Fom->windowstate=wsMaximized;
  Image->Left=(Fom->Width-Image->Width)/2;
  Image->Top=(Fom->Height-Image->Height)/2;


}
file://------------------------------------------------------------------------------


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-979260/,如需转载,请注明出处,否则将追究法律责任。

下一篇: 体会template (转)
请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7339171