1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
TFormMain *FormMain;
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
: TForm(Owner)
{
// on supprime le trait de reduction le carre d'agrandissement
// et la croix de fermeture
TBorderIcons tempBI = BorderIcons;
tempBI >> biSystemMenu;
BorderIcons = tempBI;
int Width;
Width = 800;
int Height;
Height = 600;
TDeviceMode *Dev = new TDeviceMode;
Dev->dmPelsWidth = Width;
Dev->dmPelsHeight = Height;
Dev->dmFields = DM_PELSWIDTH | DM_PELSHEIGHT;
bool result = (ChangeDisplaySettingsA(Dev, CDS_RESET) == DISP_CHANGE_SUCCESSFUL);
delete Dev;
if (bool result = false)
{
ChangeDisplaySettingsA(0, 0);
}
}
//--------- |