Серый форум — AHK: Автоматически скрывать у вызываемого окна заголовок и границы

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2015-04-26T15:34:56Z

Подскажите пожалуйста, нет ли ошибки в этом коде, при активном режиме он потребляет от 5% до 10% процессора или это нормально? И что странно, ahk скрипт в этот момент становится активным процессом, хотя остальные все скрипты всегда фоновые. Но заметить это можно лишь когда JPEGView в фокусе, т.е. нужно Диспетчер задач установить "Поверх остальных окон".

#NoTrayIcon
loop
{
   WinGetActiveTitle, title
   if (title ~= "- JPEGView") and (isWindowFullScreen( "A" ) = 0)
   {
      WinSet, Style, -0xC40000, A
      WinMove, A, , 0, 0, 1920, 1040
      WinGetTitle, Title, % MainWindowClass
      Title := RegExReplace(Title, "- JPEGView")   ; текст, который будет изыматься из заголовка
      CustomColor = EEAA99 ; Может быть любого RGB цвета (ниже он будет сделан прозрачным).
      Gui, +AlwaysOnTop +LastFound +Owner ; Опция +Owner мешает появлению кнопки на панели задач.
      Gui, Color, %CustomColor%
      Gui, Font, s14
      Gui, Add, Text, vMyText cLime, %title%   ; переменная которую получили с помощью WinGetActiveTitle
      ; Делаем все пиксели этого цвета прозрачными, а сам текст - полупрозрачным (150):
      WinSet, TransColor, %CustomColor% 150
      Gui, -Caption ; Удаляем границы и заголовок окна.
      Gui, Show, x1000 y1040 NA
      loop
      {
         If !WinActive(title) or (isWindowFullScreen( "A" ) != 0)
         {
            Gui, Destroy
            break
         }
      }
   }
   sleep, 100
} 

isWindowFullScreen( winTitle ) {
    ;checks if the specified window is full screen
    
    winID := WinExist( winTitle )

    If ( !winID )
        Return false

    WinGet style, Style, ahk_id %WinID%
    WinGetPos ,,,winW,winH, %winTitle%
    ; 0x800000 is WS_BORDER.
    ; 0x20000000 is WS_MINIMIZE.
    ; no border and not minimized
    Return ((style & 0x20800000) or winH < A_ScreenHeight or winW < A_ScreenWidth) ? false : true
}

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-22T08:37:56Z

Ядрён
Спасибо, пригодится.

Malcev
Вообщем респект, пришла идея, но даже не думал, что можно реализовать.

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-21T22:29:38Z

Можно ли еще сделать, чтобы при клике на изображение, уже открытое окно, но в фоне, переходило на передний план или разворачивалось, если свернуто?

Это вы уже сами попробуйте поковыряться.

loop
{
   WinGetActiveTitle, title
   if (title ~= "- JPEGView") and (isWindowFullScreen( "A" ) = 0)
   {
      WinSet, Style, -0xC40000, A
      WinMove, A, , 0, 0, 1920, 1040
      CustomColor = EEAA99 ; Может быть любого RGB цвета (ниже он будет сделан прозрачным).
      Gui, +AlwaysOnTop +LastFound +Owner ; Опция +Owner мешает появлению кнопки на панели задач.
      Gui, Color, %CustomColor%
      Gui, Font, s14
      Gui, Add, Text, vMyText cLime, %title%   ; переменная которую получили с помощью WinGetActiveTitle
      ; Делаем все пиксели этого цвета прозрачными, а сам текст - полупрозрачным (150):
      WinSet, TransColor, %CustomColor% 150
      Gui, -Caption ; Удаляем границы и заголовок окна.
      Gui, Show, x1000 y1040 NA
      loop
      {
         If !WinActive(title) or (isWindowFullScreen( "A" ) != 0)
         {
            Gui, Destroy
            break
         }
      }
   }
   sleep, 100
} 

isWindowFullScreen( winTitle ) {
    ;checks if the specified window is full screen
    
    winID := WinExist( winTitle )

    If ( !winID )
        Return false

    WinGet style, Style, ahk_id %WinID%
    WinGetPos ,,,winW,winH, %winTitle%
    ; 0x800000 is WS_BORDER.
    ; 0x20000000 is WS_MINIMIZE.
    ; no border and not minimized
    Return ((style & 0x20800000) or winH < A_ScreenHeight or winW < A_ScreenWidth) ? false : true
}

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-21T14:51:07Z

Здравствуйте , вот ещё код .

#Persistent
#SingleInstance Off
DetectHiddenWindows, Off ;поиск в скрытых окнах
SetTitleMatchMode 2


mywin :=      ; название окна (можно любое приложение или окно)
interval := 100 

SetTimer, FrWin, 1000
return

#NoEnv



FrWin:
IfWinActive, %mywin%
{
WinMove, %mywin%,, 0, 0, 1280, 1024 ; параметры окна: x, y, w, h (выставляйте свое разрешение экрана)
WinSet, Style, -0xC00000, %mywin% ; убрать рамку
Sleep 300 
ExitApp
}
return

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-21T12:59:53Z

Malcev
Спасибо большое, это то, что нужно и даже более, например, при выходе из Fullscreen-а окно не оставалось максимизированым, а принимало размер изображения, но теперь все отлично.

Еще хотелось бы, чтобы OSD был только в оконном режиме, попробовал сам, у меня либо не работает либо все как нужно, но OSD мигает.

Можно ли еще сделать, чтобы при клике на изображение, уже открытое окно, но в фоне, переходило на передний план или разворачивалось, если свернуто?

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-21T11:09:23Z

Попробуй так:

loop
{
   WinGetActiveTitle, title
   if (title ~= "- JPEGView")
   {
      CustomColor = EEAA99 ; Может быть любого RGB цвета (ниже он будет сделан прозрачным).
      Gui, +AlwaysOnTop +LastFound +Owner ; Опция +Owner мешает появлению кнопки на панели задач.
      Gui, Color, %CustomColor%
      Gui, Font, s14
      Gui, Add, Text, vMyText cLime, %title%   ; переменная которую получили с помощью WinGetActiveTitle
      ; Делаем все пиксели этого цвета прозрачными, а сам текст - полупрозрачным (150):
      WinSet, TransColor, %CustomColor% 150
      Gui, -Caption ; Удаляем границы и заголовок окна.
      Gui, Show, x1000 y1040 NA
      loop
      {
         if isWindowFullScreen( "A" ) = 0
         {
            WinSet, Style, -0xC40000, A
            WinMove, A, , 0, 0, 1920, 1040
         }
         IfWinNotActive, % title
         {
            Gui, Destroy
            break
         }
      }
   }
   sleep, 100
} 

isWindowFullScreen( winTitle ) {
    ;checks if the specified window is full screen
    
    winID := WinExist( winTitle )

    If ( !winID )
        Return false

    WinGet style, Style, ahk_id %WinID%
    WinGetPos ,,,winW,winH, %winTitle%
    ; 0x800000 is WS_BORDER.
    ; 0x20000000 is WS_MINIMIZE.
    ; no border and not minimized
    Return ((style & 0x20800000) or winH < A_ScreenHeight or winW < A_ScreenWidth) ? false : true
}

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-21T08:51:21Z

Malcev
К сожалению, не понимаю, куда поместить код Fullscreen-а, поможете?

И еще, может можно скрипт настроить на JPEGView.exe, а не заголовок, постоянно срабатывает на браузер и проводник.

serzh82saratov пишет:

Ну а вообще мне кажется проще написать свой "супер минималистичный JPEGView", чем костыли городить.

Ну костыль весьма небольшой получается ведь, у меня у foobar2000 заголовок и границы тоже скрыты, а текущая композиция выводится посредством OSD, но там UI_Hacks и OSD плагины есть, не думал что подобное возможно сделать с любой программой.

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-20T19:22:13Z

Да, тут было:
http://forum.script-coding.com/viewtopi … 399#p72399
Только, чем это лучше цикла в данной ситуации?
Все-равно придется проверять фуллскрин или нет.

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-20T18:36:29Z

Malcev рекомендую SHELLHOOK. И создание окна, и активацию, и смену заголовка (насколько я понял при смене картинок поможет). Циклы не нужны. Пример думаю сможешь составить, в одной из твоих тем это было.
Ну а вообще мне кажется проще написать свой "супер минималистичный JPEGView", чем костыли городить.

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-20T16:28:13Z

Вот код с офф. форума, который определяет находится ли приложение в Fullscreen или нет

isFullScreen := isWindowFullScreen( "A" )
MsgBox % isFullScreen ? "Full Screen" : "Windowed"
Return

isWindowFullScreen( winTitle ) {
    ;checks if the specified window is full screen
    
    winID := WinExist( winTitle )

    If ( !winID )
        Return false

    WinGet style, Style, ahk_id %WinID%
    WinGetPos ,,,winW,winH, %winTitle%
    ; 0x800000 is WS_BORDER.
    ; 0x20000000 is WS_MINIMIZE.
    ; no border and not minimized
    Return ((style & 0x20800000) or winH < A_ScreenHeight or winW < A_ScreenWidth) ? false : true
}

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-20T16:17:14Z

Malcev
Задача такая-же какая и была, просто нужно сделать, чтобы WinSet/WinMove применялись только при обращении к окну, а OSD заголовок при листании изображений. Плюс возможность WinSet/WinMove активировать горячей клавишей, чтобы она срабатывала при выходе из Fullscreen.

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-20T16:09:12Z

Не понимаю задачи.

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-20T15:12:17Z

Malcev
Да, точно, нужно выделить это в отдельный loop, можно их делать несколько? Так не работает и в Fullscreen не заходит.

#IfWinActive ahk_class #32770
F10::
window := "JPEGView"
SetTitleMatchMode, 2

loop
{
   IfWinActive, %window%
   {
WinSet, Style, -0xC40000, A
WinMove, A, , 0, 0, 1920, 1040
   }
} 

loop
{
   WinGetActiveTitle, title
   if (title ~= "JPEGView")
   {
      CustomColor = EEAA99 ; Может быть любого RGB цвета (ниже он будет сделан прозрачным).
      Gui, +AlwaysOnTop +LastFound +Owner ; Опция +Owner мешает появлению кнопки на панели задач.
      Gui, Color, %CustomColor%
      Gui, Font, s14
      Gui, Add, Text, vMyText cLime, %title%   ; переменная которую получили с помощью WinGetActiveTitle
      ; Делаем все пиксели этого цвета прозрачными, а сам текст - полупрозрачным (150):
      WinSet, TransColor, %CustomColor% 150
      Gui, -Caption ; Удаляем границы и заголовок окна.
      Gui, Show, x1000 y1040 NA
      WinWaitNotActive, %title%
      Gui, Destroy
   }
   sleep, 100
}

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-20T14:52:19Z

Попробуйте.
Из фуллскрина выходит наверное из-за:

      WinSet, Style, -0xC40000, A
      WinMove, A, , 0, 0, 1920, 1040

Re: AHK: Автоматически скрывать у вызываемого окна заголовок и границы

2014-06-20T14:21:11Z

Malcev
Отлично, теперь скрипт отрабатывает при перелистывании картинок, заголовок обновляется. Правда, теперь из Fullscreen-а выходит, но это, наверное уже не решить?

Можно было бы сделать первый клик F11 переход в Fullscreen, а после второго, с задержкой, клавиша, активирующая скрипт.