GUIFFLabel - Предотвращение эффекта мерцания

CreatoR · 24 Июн 2011

AutoIt: 3.3.8.1
Версия: 1.1

Категория: Элементы GUI

Описание: Создание Label'ов с предотвращением “эффекта мерцания” при частом обновлений элемента. Используется GDI+.

Код/Пример:

Код:

#include <GUIConstantsEx.au3>
#include "GUIFFLabel.au3"

_Example()

Func _Example2()
	Local $hGUI, $Label1, $Label2, $Label3, $nDel_Button
	
	$hGUI = GUICreate("Flicker Free Labels - Example 2", 400, 220)
	
	$Label1 = _GUICtrlFFLabel_Create($hGUI, "Label One", 80, 40, 200, 17)
	$Label2 = _GUICtrlFFLabel_Create($hGUI, "Label Two", 80, 80, 200, 17, 9, 'Times', 1, 0, 0xFF0000)
	$Label3 = _GUICtrlFFLabel_Create($hGUI, "Label Three", 80, 120, 200, 17)
	
	$nDel_Button = GUICtrlCreateButton("Delete (2)", 150, 180, 110, 20)
	
	GUISetState(@SW_SHOW)
	
	;_GUICtrlFFLabel_GUISetBkColor(0xC0C0C0, $hGUI)
	;_GUICtrlFFLabel_SetAutoRefreshMode(False) ;Disable auto-refresh of all labels
	
	While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE
				GUIDelete($hGUI)
				Return
			Case $nDel_Button
				_GUICtrlFFLabel_Delete($Label2)
			Case Else
				_GUICtrlFFLabel_SetData($Label1, "Label One     = " & Random(1, 100000), 0xD4D4D4)
				_GUICtrlFFLabel_SetData($Label2, "Label Two     = " & Random(1, 100000))
				_GUICtrlFFLabel_SetData($Label3, "Label Three  = " & Random(1, 100000))
		EndSwitch
	WEnd
EndFunc

Файл: GUIFFLabel

Снимок:

История версий:

1.1
* Глобальные изменения в библиотеке.
* Изменён порядок параметров в функции _GUICtrlFFLabel_GUISetBkColor ($nBkColor, $hWnd = -1).
* Изменены примере.
* Обновление документации (комментарии в заголовке библиотеки).

1.0
Первая версия

Источник: autoitscript.com/forum
Автор(ы): Brian J Christy, G.Sandler

CreatoR · 25 Июн 2011

Небольшое обновление. В основном поправки в методе получения фонового цвета GUI.
Версия осталась прежней.

Yashied · 25 Июн 2011

Может я чего и не понимаю, но не проще ли сделать отдельно Label для статического текста и отдельно для динамического (тот, который нужно обновлять), а после этого использовать GUICtrlSetData()?

CreatoR · 25 Июн 2011

Yashied [?]

не проще ли сделать отдельно Label для статического текста и отдельно для динамического (тот, который нужно обновлять), а после этого использовать GUICtrlSetData()?

Всмысле?
Пример можешь показать?
Добавлено:
Сообщение автоматически объединено: 25 Июн 2011

Ты про это:

Код:

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test Script", 300, 200)

$nStatic_Label = GUICtrlCreateLabel("Data:", 20, 40, -1, 20)
$nDynamic_Label = GUICtrlCreateLabel("", 60, 40, 260, 20)

GUISetState(@SW_SHOW, $hGUI)

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case Else
			GUICtrlSetData($nDynamic_Label, Random(1, 100, 2))
	EndSwitch
WEnd

?
Добавлено:
Сообщение автоматически объединено: 25 Июн 2011

Если да, то это не совсем выход, иногда нужно читать данные с файла (например), или с друго источника.

Yashied · 25 Июн 2011

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

:whistle:

CreatoR · 9 Июл 2011

Yashied [?]

лучше было бы показать соответствующий пример, а не просто меняющиеся числа

До сих пор было трудно вспомнить для чего оно нужно :laugh:

Теперь попалась ситуация - копирование файлов с отображением путей (пусть даже относительных).
В данном случае мы не можем разделить строку, путь может содержать одно и тоже начало, с разными именами файлов на конце, что в принципе и вызывает “эффект мерцания”.

Я очень хотел бы узнать как при такой ситуаций выкручиваться без особых телодвижений (и без этой библиотеки).

Zaramot · 9 Июл 2011

В чём разница: :scratch:

Как избежать мелькание элементов GUI при их частом обновлений?

CreatoR · 9 Июл 2011

Zaramot [?]

В чём разница

В том что тут используется GDI+ для рисования Label'ов, а там просто стиль $WS_EX_COMPOSITED, который не работает в Win7 (надо бы заметку добавить туда).

ohos · 31 Июл 2011

в таком случае для корректной работы скриптика на Win 7 и Win XP придется писать переключалку в коде, которая будет с лейблом работать в зависимости от операционки?

ohos · 26 Сен 2011

Возникла проблема исчезновения текста GUIF лейбла при сворачивании и разворачивании окна.

При сворачивании установлен статичный текст, после разворачивания его нет. Как только будет установлен новый текст, он появится. Как решить эту проблему?

AZJIO · 26 Сен 2011

ohos
Например с помощью WM_ACTIVATE

Код:

Global $k=0
$Gui = GUICreate("Сверни окно или активируй другое", 390, 140)
GUISetState()
GUIRegisterMsg(0x0006 , "WM_ACTIVATE")

Do
Until GUIGetMsg() = -3

Func WM_ACTIVATE()
	$k+=1
	WinSetTitle($Gui, '', 'Изменено состояние ' &$k& ' раз')
EndFunc

ohos · 26 Сен 2011

благодарю, использовал

Код:

GUIRegisterMsg(0x0006 , "WM_ACTIVATE")

в функцию вставил

Код:

Func WM_ACTIVATE()
        sleep(100)
	_GUICtrlFFLabel_Refresh(хэндл тут)
EndFunc

без задержки не перерисовывается...

p.s. иногда сталкивался с проблемой, что цвет фона лейбла на GUIFF оказывался другим (либо темно серым на XP, либо темно синим на 7 - что соответствует цвету фону, который обычно остается от окна при подвисании), решил проблему просто, в файле GUIFFLabel.au3 подправил строку, вместо

Код:

Global $nDef_GUI_Bk_Color = __GUICtrlFFLabel_GetWindowBkColor()

использовал явный цвет

Код:

Global $nDef_GUI_Bk_Color = 0xF0F0F0 ;стандартный серый

:IL_AutoIt_1:

CreatoR · 27 Сен 2011

Проще сделать так:

Код:

While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE
				...
			Case $GUI_EVENT_RESTORE
				__GUICtrlFFLabel_RefreshAll()
			...
		EndSwitch
	WEnd

joiner · 13 Ноя 2013

как сделать фон прозрачным, используя функции данной библиотеки. по типу $GUI_BKCOLOR_TRANSPARENT

madmasles · 13 Ноя 2013

joiner [?]

как сделать фон прозрачным, используя функции данной библиотеки. по типу $GUI_BKCOLOR_TRANSPARENT

ИМХО, если Вы не используете функцию GUISetBkColor(), то и в функции _GUICtrlFFLabel_SetData() третий параметр ($iBackGround) нужно оставить по умолчанию, если используете, то, можно примерно так:

Код:

#include <GUIConstantsEx.au3>
#include "GUIFFLabel.au3"

_Example()

Func _Example()
	Local $hGUI, $Label1, $Label2, $Label3, $iCount, $bBKColor = 0x00FFFF

	$hGUI = GUICreate("Flicker Free Labels", 400, 220)
	GUISetBkColor($bBKColor)

	$Label1 = _GUICtrlFFLabel_Create($hGUI, "Label One", 80, 40, 200, 17)
	$Label2 = _GUICtrlFFLabel_Create($hGUI, "Label Two", 80, 80, 200, 17, 9, 'Times', 1, 0, 0xFF0000)
	$Label3 = _GUICtrlFFLabel_Create($hGUI, "Label Three", 80, 120, 200, 17)

	$nDel_Button = GUICtrlCreateButton("Delete (2)", 150, 180, 110, 20)
	GUISetState()
	_GUICtrlFFLabel_GUISetBkColor($hGUI, $bBKColor)

	While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE
				GUIDelete($hGUI)
				Return
			Case $nDel_Button
				_GUICtrlFFLabel_Delete($Label2)
			Case Else
				$iCount = Random(1, 100000)
				_GUICtrlFFLabel_SetData($Label1, "Label One     = " & $iCount, $bBKColor)
				$iCount = Random(1, 100000)
				_GUICtrlFFLabel_SetData($Label2, "Label Two     = " & $iCount, $bBKColor)
				$iCount = Random(1, 100000)
				_GUICtrlFFLabel_SetData($Label3, "Label Three  = " & $iCount, $bBKColor)
		EndSwitch
	WEnd
EndFunc   ;==>_Example

joiner · 13 Ноя 2013

дело в том, что у меня в окне отображается изображение..нужно чтобы было видно это изображение через label созданный функцией данной библиотеки . или можно в данный label вставить то же изображение?
проблема с мерцание во время частого обновления..частота обновления не должна меняться. вот ищу решение

joiner · 14 Ноя 2013

экспериментировал и нашел, вроде как, баг
в первом окне жмем кнопку. появляется второе окно с label. гасим это второе окно. жмем опять кнопку в первом окне..появляется второе окно, а элементы label не создаются.

Код:

#include <GUIConstantsEx.au3>
#include "GUIFFLabel.au3"
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 332, 176, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 112, 56, 75, 25)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			_Example()
	EndSwitch
WEnd

Func _Example()
	Local $hGUI, $Label1, $Label2, $Label3, $iCount

	$hGUI = GUICreate("Flicker Free Labels", 400, 220)

	$Label1 = _GUICtrlFFLabel_Create($hGUI, "Label One", 80, 40, 200, 17)
	$Label2 = _GUICtrlFFLabel_Create($hGUI, "Label Two", 80, 80, 200, 17, 9, 'Times', 1, 0)
	$Label3 = _GUICtrlFFLabel_Create($hGUI, "Label Three", 80, 120, 200, 17)

	$nDel_Button = GUICtrlCreateButton("Delete (2)", 150, 180, 110, 20)

	GUISetState(@SW_SHOW)

	_GUICtrlFFLabel_GUISetBkColor($hGUI, 0xAE9C86)
	_GUICtrlFFLabel_SetAutoRefreshMode(False) ;Disable auto-refresh of all labels

	While 1
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE
				GUIDelete($hGUI)
				Return
			Case $nDel_Button
				_GUICtrlFFLabel_Delete($Label2)
			Case Else
				$iCount = Random(1, 100000)
				_GUICtrlFFLabel_SetData($Label1, "Label One     = " & $iCount)
				$iCount = Random(1, 100000)
				_GUICtrlFFLabel_SetData($Label2, "Label Two     = " & $iCount)
				$iCount = Random(1, 100000)
				_GUICtrlFFLabel_SetData($Label3, "Label Three  = " & $iCount)
		EndSwitch
	WEnd
EndFunc

MnM · 14 Ноя 2013

joiner
При создании элементов "label" там еще такая странность: функции возвращают индексы +1; +2; +3; в зависимости от их предыдущего значения, т.е. в UDF счетчик который скорее всего требуется обнулять(ну чисто моя мысль только :smile:

)

CreatoR · 14 Ноя 2013

joiner [?]

в первом окне жмем кнопку. появляется второе окно с label. гасим это второе окно. жмем опять кнопку в первом окне..появляется второе окно, а элементы label не создаются

Какая версия библиотеки и AutoIt?

И ещё, Labl'ы желательно удалять вместе с GUI, т.к это не стандартные элементы (это графика вообще то).

Ну и также в целях профилактики, можно изменить функцию:

Код:

Func _GUICtrlFFLabel_RefreshAll()
	For $i = 1 To $a_GFFL_GDILbls[0][0]
		If IsHWnd($a_GFFL_GDILbls[$i][$h_GFFL_Wnd]) Then
			_GUICtrlFFLabel_Refresh($i)
		EndIf
	Next
EndFunc

joiner · 14 Ноя 2013

библиотеку качал пару дней назад
AutoIT 3.3.8.1
_GUICtrlFFLabel_Delete (всех) указал при закрытии второго окна

Код:

Case $GUI_EVENT_CLOSE
				_GUICtrlFFLabel_Delete($Label1)
				_GUICtrlFFLabel_Delete($Label2)
				_GUICtrlFFLabel_Delete($Label3)
                GUIDelete($hGUI)
                Return

Добавлено:
Сообщение автоматически объединено: 14 Ноя 2013

CreatoR
зашел на официальный форум http://www.autoitscript.com/forum/topic/130032-flicker-free-labels/?hl=%20guifflabel
скачал последнюю версию . там, правда, библиотека называется FFLabels
запустил свой пример и при закрытии и повторном запуске второго окна label создаются заново.
содержание библиотек разное

Автор темы	Похожие темы	Форум	Ответы	Дата
	Перенесено: Предотвращение выхода из скрипта методом OnAutoItExitRegister	Общие вопросы по AutoIt	0	29 Апр 2010
	[Новая функция] Предотвращение выхода из скрипта методом OnAutoItExitRegister	Баг-репорты и запросы на новые функции	9	28 Апр 2010

GUIFFLabel - Предотвращение эффекта мерцания

Must AutoIt!

Must AutoIt!

Модератор

Must AutoIt!

Модератор

Must AutoIt!

I ♥ AutoIt

Must AutoIt!

Новичок

Новичок

Меценат

Новичок

Must AutoIt!

Модератор

Модератор

Модератор

Модератор

Post-Hardcore

Must AutoIt!

Модератор