перевод активного окна в полноэкранный режим и назад

Обсуждение программ nnCron и nnCron LITE

перевод активного окна в полноэкранный режим и назад

Postby Andrey V. Shtukaturov » Thu, 02 Sep 2004, 18:19

помогите наваять сабжовый скрипт
может уже есть у кого-нить наработки?
Andrey V. Shtukaturov
 
Posts: 21
Joined: Mon, 12 Jul 2004, 10:42

Postby maskman » Thu, 02 Sep 2004, 21:41

SEND-KEYS: "@ " \ [alt]+[пробел]
SEND-KEYS: "x" \ [x] на английсокой винде.
maskman
 
Posts: 51
Joined: Sun, 11 Jul 2004, 15:19
Location: Moscow

Postby Andrey V. Shtukaturov » Fri, 03 Sep 2004, 09:33

maskman wrote:SEND-KEYS: "@ " \ [alt]+[пробел]
SEND-KEYS: "x" \ [x] на английсокой винде.


тогда уже правильнее
WIN-MAXIMIZE: %ACTIVE-WINDOW%

но я имел в виду другое
можно ли на скрипте поменять стиль окна и размеры
что-то такое
Code: Select all
  BorderStyle := bsNone ;
  WindowState  := wsmaximized ;
  ClientWidth  := Screen.Width ;
  ClientHeight := Screen.Height;


или такое

Code: Select all
var
   r : TRect;
begin
   Borderstyle := bsNone;
   SystemParametersInfo
      (SPI_GETWORKAREA, 0, @r,0) ;
   SetBounds
     (r.Left, r.Top, r.Right-r.Left, r.Bottom-r.Top) ;
end;


ну и назад тоже надо:
скорее всего достаточно просто вернуть BorderStyle
Andrey V. Shtukaturov
 
Posts: 21
Joined: Mon, 12 Jul 2004, 10:42

Postby VK » Fri, 03 Sep 2004, 10:04

А что, WIN-RESTORE: не работает?
CU
VK
User avatar
VK
 
Posts: 680
Joined: Wed, 14 Jul 2004, 19:17

Postby Andrey V. Shtukaturov » Fri, 03 Sep 2004, 10:36

VK (far_away) wrote:А что, WIN-RESTORE: не работает?


может и работает
я еще BorderStyle не научился менять :)
Andrey V. Shtukaturov
 
Posts: 21
Joined: Mon, 12 Jul 2004, 10:42


Return to nnCron forum (Russian)

Who is online

Users browsing this forum: Google [Bot] and 6 guests