| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 
 |  
Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
Bitmap->Height = Screen->Height;
Bitmap->Width = Screen->Width;
 
FormScreen1->SetBounds(Screen->Monitors[1]->Left,Screen->Monitors[1]->Top,Screen->Monitors[1]->Width,Screen->Monitors[1]->Height);
TextLabel->Caption = TrainerText;
HDC ScreenSrc = GetWindowDC(FormScreen1->Handle);
SetStretchBltMode(Bitmap->Canvas->Handle, HALFTONE);      
StretchBlt(Bitmap->Canvas->Handle, 0, 0, WidthForTrainerScreen, HeightForTrainerScreen, ScreenSrc, 0, 0, Screen->Monitors[1]->Width, Screen->Monitors[1]->Height, SRCCOPY);
ReleaseDC(GetDesktopWindow(), ScreenSrc);
 
FormScreen2->Image->SetBounds(0,0,Screen->Width,Screen->Height);
FormScreen2->Image->Canvas->Draw(0, 0, Bitmap);
delete Bitmap; | 
Partager