1 2 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