Dod
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Delphi 7. Для вывода вывода графики в режиме консольного приложения написал такой модуль: procedure GraphInit(ScreenColor: TColor); { Вход в графический режим } begin ScreenDC := GetDC(0); Canvas := TCanvas.Create(); Canvas.Handle := ScreenDC; Canvas.Brush.Color := ScreenColor; // цвет фона // сохраним экран в файл 'fon.bmp' BitMap := TBitMap.Create(); BitMap.Height := Screen.Height; BitMap.Width := Screen.Width; RectScr := Rect(0, 0, Screen.Width, Screen.Height); BitMap.Canvas.CopyRect(RectScr, Canvas, RectScr); BitMap.SaveToFile('fon.bmp'); Rectangle(ScreenDC, 0, 0, Screen.Width, Screen.Height); // чистка экрана RectCur := Rect(0, 0, 0, 0); // фиксация курсора ClipCursor(@RectCur); Canvas.Font.Color := $000000FF; // текст Canvas.Font.Size := 16; Canvas.TextOut(Screen.Width-120, Screen.Height-35, 'Выход - Esc'); end; Беда в том, что при движении курсора мыши наверх всплывают кнопки лежащих ниже окон. Поэтому приходится фиксировать курсор, а это неудобно, если приходится что-то показывать собеседнику на экране (не пальцем же тыкать). Подскажите, пожалуйста, как решить эту проблему. |