Oleg-lamer
Новичок
- Сообщения
- 10
- Репутация
- 0
добрый день форумчане. обыскал весь инет и форум но толи не правильно формулирую вопрос то ли и правда нет ответа.
Итак Вопрос Есть некий код с прогрессом:
[hide]
[/hide]
Функции свои он выполняет, но окошко с прогрессом получаентся маленьким м в него не влезает текст который туда занесен.
Конкретно вот это окно :
Вопрос, как настроить его размер? без извлечения из общей функции?
Итак Вопрос Есть некий код с прогрессом:
[hide]
Код:
func _check ()
$sTitle="Проверка физической целостности файла БД"
ProgressOn("ПРОВЕРКА БД", "Выполняется проверка базы данных" & @CRLF & "Не Открывайте 1с до окончания проверки", "0%",-1,-1)
run ($MyDir & "\" & $Lastfile & "\bin\chdbfl.exe","", @SW_HIDE,7)
WinWait($sTitle)
local $size = filegetsize($basepatch&"1Cv8.1CD")
;Автокликер!
ControlSend($sTitle,"", "V8FormElement9",$basepatch&"1Cv8.1CD")
ControlClick($sTitle,"", "V8FormElement8")
ControlClick($sTitle,"", "V8FormElement7","left",2)
$filename = ($basepatch &"\1Cv8.1CD")
local $size1 =0
;Считаем процент размера временного файла и заполняем прогрессбар
While 1
$size1 = filegetsize($basepatch&"_$NEW$_.1CD")
$perc=round(($size1/$size)*100)
ProgressSet($perc, "пожалуйста, ожидайте. прошло "& $perc & "%")
sleep (500)
;Проверяем, что проверка еще идет по наличию временного файла
;и заблокированности файла БД
If not FileInUse($filename) and not FileExists ($basepatch&"\_$NEW$_.1CD") Then
ExitLoop
EndIf
WEnd[/hide]
Функции свои он выполняет, но окошко с прогрессом получаентся маленьким м в него не влезает текст который туда занесен.
Конкретно вот это окно :
Код:
ProgressOn("ПРОВЕРКА БД", "Выполняется проверка базы данных" & @CRLF & "Не Открывайте 1с до окончания проверки", "0%",-1,-1)Вопрос, как настроить его размер? без извлечения из общей функции?
