作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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://------------------------------------------------------------------------------

相关软件：