Серый форум — AHK: Обновление Static контрола

Re: AHK: Обновление Static контрола

null@example.com (serzh82saratov) — Sun, 30 Sep 2018 12:08:20 +0000

Так не мелькает.
Не знал что LAYERED окно будет отображатся без UpdateLayeredWindow.

MandarinKa02 пишет:

либо использовать двойную буферизацию.

Это видимо было про WS_EX_COMPOSITED.

Re: AHK: Обновление Static контрола

null@example.com (Malcev) — Fri, 14 Sep 2018 09:17:29 +0000

Если перестанет, значит проблема с реестром у данного пользователя.
Кстати, с WS_EX_COMPOSITED можно обновлять текст через WM_SETTEXT.
Погонял на win10 - не мелькает, до первой минимизации.
Но если добавить WS_EX_LAYERED, то и после минимизации не начинает мелькать.

Gui, +AlwaysOnTop +E0x02000000 +E0x00080000 ; WS_EX_COMPOSITED WS_EX_LAYERED
Gui, Font, s22
Gui, Color, 0xE8ECF6 
Gui, Add, Text, w400 +0x201 hwndhText1 +BackgroundTrans +Border
Gui, Add, Text, wp +0x201 +BackgroundTrans +Border hwndhText2
Gui, Add, Text, wp +0x201 hwndhText3 +Border  
Gui, Add, Edit, wp +0x201 hwndhText4
Gui, Show

Loop   
	{ 
		Text := A_TickCount 
		ControlSetText, , % Text, ahk_id %hText1%
		; WM_SETTEXT работает также как и ControlSetText
		; SendMessage, 0x000C, 0, &Text, , ahk_id %hText1%		;	WM_SETTEXT
		GuiControl, , % hText2 , % Text 
		GuiControl, , % hText3 , % Text 
		GuiControl, , % hText4 , % Text 
	}

Описание и решение проблемы:
https://www.autoitscript.com/forum/topi … on-update/

Re: AHK: Обновление Static контрола

null@example.com (serzh82saratov) — Thu, 13 Sep 2018 16:53:58 +0000

Так ещё больше мелькает, с WS_CLIPSIBLINGS тоже.
Под другим пользователем ещё не пробовал, но если даже перестанет мелькать, как понять в чём проблема?

Re: AHK: Обновление Static контрола

null@example.com (Malcev) — Thu, 13 Sep 2018 00:39:16 +0000

А так?

setbatchlines -1
Gui, +AlwaysOnTop  +E0x02000000 ; WS_EX_COMPOSITED
Gui, Font, s6
Gui, Color, 0xE8ECF6
Gui, Add, Text, w400 +0x201 hwndhText +BackgroundTrans +Border
loop 40
   Gui, Add, Text, wp +0x201 hwndhText%A_Index% +BackgroundTrans +Border
Gui, Show
Loop   
{ 
   Text := A_TickCount
   loop 40
      GuiControl, , % hText%A_Index% , % Text 
}

Еще можно попробовать добавить WS_CLIPSIBLINGS к контролам.

Re: AHK: Обновление Static контрола

null@example.com (serzh82saratov) — Wed, 12 Sep 2018 18:17:12 +0000

Да, также.

Re: AHK: Обновление Static контрола

null@example.com (Malcev) — Wed, 12 Sep 2018 18:08:34 +0000

А если через dllcall окно с контролами создавать, то тоже дергается?
http://forum.script-coding.com/viewtopi … 30#p128130
Еще можно создать нового пользователя и запустить gui под ним.

Re: AHK: Обновление Static контрола

null@example.com (serzh82saratov) — Wed, 12 Sep 2018 17:42:34 +0000

Без BackgroundTrans просто реже мелькает, но всё равно часто.

Re: AHK: Обновление Static контрола

null@example.com (Malcev) — Wed, 12 Sep 2018 17:38:18 +0000

serzh82saratov пишет:

Не понятно зачем используется timeBeginPeriod, визуально ничего не меняется

Пишут, что для точности.
https://docs.microsoft.com/en-us/window … hapi-sleep
При 3 контролах у меня даже без sleep не мелькает.
А у тебя с +BackgroundTrans или без мелькает?

Re: AHK: Обновление Static контрола

null@example.com (serzh82saratov) — Wed, 12 Sep 2018 17:15:48 +0000

teadrinker пишет:

Обновляет, да не тот:

Не понял.

SendMessage, WM_SETTEXT := 0xC,, &(str := "new text"),, ahk_id %hStatic%

Так не проще?

SendMessage, WM_SETTEXT := 0xC,,"new text",, ahk_id %hStatic%

Re: AHK: Обновление Static контрола

null@example.com (serzh82saratov) — Wed, 12 Sep 2018 17:10:12 +0000

Не понятно зачем используется timeBeginPeriod, визуально ничего не меняется, и это глобальная настройка, я бы такое только в крайних случаях трогал.
В этом примере почти не мелькает, но сделай не 40 а например 3 контрола, мелькает?
Придётся увеличить Sleep.

Re: AHK: Обновление Static контрола

null@example.com (Malcev) — Mon, 10 Sep 2018 16:47:42 +0000

serzh82saratov, а чем не устраивает GuiControl?
Вот так у меня не мелькает.
Если же я уменьшу sleep до 1-2, то будет мелькать.

setbatchlines -1
Gui, +AlwaysOnTop
Gui, Font, s6
Gui, Color, 0xE8ECF6
Gui, Add, Text, w400 +0x201 hwndhText +BackgroundTrans +Border
loop 40
   Gui, Add, Text, wp +0x201 hwndhText%A_Index% +BackgroundTrans +Border
Gui, Show
DllCall("Winmm\timeBeginPeriod", UInt, 3)
Loop   
{ 
   Text := A_TickCount
   loop 40
   {
      GuiControl, , % hText%A_Index% , % Text 
      DllCall("Sleep", UInt, 3)
   }
}

GuiClose:
GuiEscape:
DllCall("Winmm\timeEndPeriod", UInt, 3)
ExitApp

Re: AHK: Обновление Static контрола

null@example.com (Malcev) — Mon, 10 Sep 2018 15:12:21 +0000

serzh82saratov пишет:

Надо с BackgroundTrans.

Не получится.

Re: AHK: Обновление Static контрола

null@example.com (teadrinker) — Mon, 10 Sep 2018 15:11:53 +0000

Ну да, WM_SETTEXT для этого не предназначено.

Re: AHK: Обновление Static контрола

null@example.com (Malcev) — Mon, 10 Sep 2018 15:09:26 +0000

teadrinker, так не получится.

Gui, Add, Text, hwndhStatic w100 +BackgroundTrans
Gui, Show
loop
   SendMessage, WM_SETTEXT := 0xC,, A_Index,, ahk_id %hStatic%

Re: AHK: Обновление Static контрола

null@example.com (teadrinker) — Mon, 10 Sep 2018 15:05:14 +0000

Gui, Add, Text, hwndhStatic w100 +BackgroundTrans
Gui, Show
SendMessage, WM_SETTEXT := 0xC,, &(str := "new text"),, ahk_id %hStatic%