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