Orion9
|
 Posted: Tue Jul 14, 2026 19:09 Post subject: |
 |
|
| sa wrote: | | Сейчас попробовал включать/отключать блокировку – ощутимой разницы не заметил |
Я понял. Как раз сейчас сделаю дополнительные функциии для сохранения и обновления панели, заодно и попробую. Давно надо было это сделать, иначе один и тот же код повторяется от функции к функции. Будет примерно так
 Hidden text | Code: | Func HBarSaveState(ByRef Text)
Text = gHBarList.Text
gHBarUndoLoad = Text
If Not gHBarCancel Then
gHBarCancel = true
gHBarCancelLoad = Text
EndIf
EndFunc
Func HBarUpdateReload(Reopen = 0)
gHBarUndoTs = FileGetTime(gHBarFile)
gHBarFileTs = FileGetTime(gHBarFile)
If gHBarUndoTs Then
gHBarUndo = true
Else
gHBarUndo = false
gHBarUndoLoad = ""
EndIf
HBarLoad()
If Reopen Then
SendMessage(AUTORUN_TCHANDLE, 11, 0, 0)
SendCommand(2901, 0, 1)
SendCommand(2901, 0, 1) # cm_VisButtonBar
Sleep(10)
SendMessage(AUTORUN_TCHANDLE, 11, 1, 0)
WinRedraw(0)
Else
SendCommand(2945) # cm_ReloadBarIcons
EndIf
EndFunc
|
| sa wrote: | | Возможно, это следствие установленного ограничения на количество отображаемых строк |
Может быть. А может просто из-за того, что функция все еще тестовая?
Hidden text WinRedraw
| Code: | WinRedraw([<flags>[, <winhandle>]])
WinRedraw [<flags>[ <winhandle>]] |
Перерисовывает окно.
 В данный момент функция находится в тестовой стадии, состав и формат выводимой информации, интерфейс функции и т. д. могут измениться в любой момент. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
