[amel27]

Creat0R

что-то так и не понял, как распознавать и соответственно добавлять неопознанные стили

ты разве не понял принцип работы скрипта?.. Если в тексте после всех замен остались XML-теги, то считается что есть неопознанные стили... соответственно, сам себя он не сможет обработать, так как не сможет отличить XML-тег от строки сравнения.

[Creat0R]

amel27

соответственно, сам себя он не сможет обработать, так как не сможет отличить XML-тег от строки сравнения.

Теперь всё ясно, большое спасибо, парадокс однако получается

[NikLok]

Creat0R Спасибо!

VadikanМожет этот скрипт прямо к форуму прикурутить. Вставил код и он принулительно разукрасился!?

[amel27]

Creat0R

если есть интерес могу попробовать на выходных Есть , спасибо

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

Код:

#include <GUIConstants.au3>
; ГУИ
Opt("GuiOnEventMode", 1)
$hWndMain=GUICreate("Test")
GUISetOnEvent(-3, "Quit")
GUICtrlCreateMenu("Test Menu")
GUISetState()
; Регистрируем сообщение
GUIRegisterMsg($WM_USER+1, "Tick")
; Открываем DLL и возвращаем указатель на функцию
$hDll = DllOpen("ticker.dll")
$hProc = DllCall($hDll,"int","TickerPtr")
; Структура для параметров "генератора сообщений"
$parms = DllStructCreate ("hwnd;int;long;long" )
  ; Установка требуемых параметров
DllStructSetData ($parms, 1, $hWndMain) ; хэндл главного окна
DllStructSetData ($parms, 2, $WM_USER+1) ; ID сообщения
DllStructSetData ($parms, 3, 300) ; таймаут между сообщениями
DllStructSetData ($parms, 4, 0) ; сколько раз отправить сообщение
; Запускаем поток
$res = DllCall("kernel32.dll","int","CreateThread","int",0,"int",0,"ptr",$hProc[0],"int",DllStructGetPtr($parms),"int",0,"int_ptr",0)
; Пустой цикл
While 1
    Sleep (1000)
Wend
; Функция обработки события
Func Tick ($hWnd, $iMsg, $WParam, $LParam)
    ConsoleWrite (Number($WParam) & @CRLF)
EndFunc
; Снова ГУИ
Func Quit()
    Exit
EndFunc

[Creat0R]

amel27

как ни странно получилось

Я не сомневался

Старая проблема со скачакой атачментов всплыла, файл не скачивается - Пробовал DMaster'ом, пробовал через IE качалку, через “Сохранить по ссылке как”, но архив скачивается повреждённый (или вовсе не архив а php файл).

[amel27]

Creat0R

Старая проблема со скачакой атачментов всплыла, файл не скачивается

странно, на работе через прокси в IE качает, дома через диалап только DMastrer'ом... так что надежда есть, попробуй FlashGet'ом

линк: http://www.sendspace.com/file/iaq1xh

[Creat0R]

amel27
Спасибо, работает!

Правда при нажатии на кнопку закрытия/сворачивания и её удерживания (на месте, если удерживая и двигать мышку то нормально), то счётчик останавливается - но это не критично, а так работает... я так понял это вызваная Dll'ка посылает постоянно зарегистрированное сообщения в окно ГУИ, и этим самым “провоцируя” запуск нужной функции (зарегистрированной), так?
Хорошо что сама Dll'ка не большая, обычно они бывают большими

[amel27]

Creat0R

я так понял это вызваная Dll'ка посылает постоянно зарегистрированное сообщения в окно ГУИ, и этим самым “провоцируя” запуск нужной функции (зарегистрированной), так?

угу, самопальный AdLib ... имхо в исходнике и без комментов все прозрачно

Хорошо что сама Dll'ка не большая, обычно они бывают большими

FreeBasic рулит!

[Diamond]

Системные цвета

Код:

Const $COLOR_SCROLLBAR = 0 ; - цвет полосы прокрутки
Const $COLOR_BACKGROUND = 1 ; - цвет фона окна
Const $COLOR_ACTIVECAPTION = 2 ; - цвет заголовка активного окна
Const $COLOR_INACTIVECAPTION = 3 ; - цвет заголовка неактивного окна
Const $COLOR_MENU = 4 ; - цвет меню
Const $COLOR_WINDOW = 5 ; - цвет окна
Const $COLOR_WINDOWFRAME = 6 ; - цвет обрамления окна
Const $COLOR_MENUTEXT = 7 ; - цвет текста меню
Const $COLOR_WINDOWTEXT = 8 ; - цвет текста окна
Const $COLOR_CAPTIONTEXT = 9 ; - цвет текста в заголовке окна

Const $COLOR_ACTIVEBORDER = 10 ; - цвет активной границы окна
Const $COLOR_INACTIVEBORDER = 11 ; - цвет неактивной границы окна
Const $COLOR_APPWORKSPACE = 12 ; - цвет рабочего места окна
Const $COLOR_HIGHLIGHT = 13 ; - цвет подсветки
Const $COLOR_HIGHLIGHTTEXT = 14 ; - цвет подсвеченного текста
Const $COLOR_BTNFACE = 15 ; - цвет лицевой части кнопки
Const $COLOR_BTNSHADOW = 16 ; - цвет тени кнопки
Const $COLOR_GRAYTEXT = 17 ; - цвет "серого" текста
Const $COLOR_BTNTEXT = 18 ; - цвет текста в кнопке
Const $COLOR_INACTIVECAPTIONTEXT = 19 ; - цвет текста в заголовке неактивного окна

Const $COLOR_BTNHIGHLIGHT = 20 ; - цвет текущей кнопки

;~ Получаем цвет лицевой части кнопки на текущий момент:
$OldColor = _GetSysColor($COLOR_BTNFACE)
;~ Задаём красный цвет для лицевой части кнопки:
_SetSysColor($COLOR_BTNFACE, 0xFF0000)
;~ тайм-аут 5 секунд
Sleep(5000)
;~ Восстанавливаем полученный ранее цвет
_SetSysColor($COLOR_BTNFACE, $OldColor)

############# -= ФУНКЦИИ =- #############

;~ Позволяет получать системные цвета, определённые текущими параметрами оформления
Func _GetSysColor($nIndex)
	$BGRColor = DllCall("user32.dll", "long", "GetSysColor", "long", $nIndex)
	$BGR = Hex ($BGRColor[0],6 )
	$RGB = "0x" & StringRight($BGR,2) & StringMid($BGR,3,2) & StringLeft($BGR,2)
	Return $RGB
EndFunc
 
;~ Позволяет установить новый цвет для указанного элемента оформления
Func _SetSysColor($nIndex, $nRGBColor)
	$RGB = Hex($nRGBColor,6 )
	$BGR = "0x" & StringRight($RGB,2) & StringMid($RGB,3,2) & StringLeft($RGB,2)
	Local $structColor = DllStructCreate("udword")
	Local $structIndex = DllStructCreate("udword")
	DllStructSetData($structIndex, 1, $nIndex)
	DllStructSetData($structColor, 1, $BGR)
	DllCall("user32.dll", "long", "SetSysColors", "long", 1, "ptr", DllStructGetPtr($structIndex), "ptr", DllStructGetPtr($structColor))
EndFunc

[Creat0R]

Diamond
Спасибо, давно искал что-то подобное