Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение)

Начало темы находится здесь, а теперь

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №48, которая выйдет в конце недели.
Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- новый класс HEADERIMAGE для Grid и Browse;
- свойство Address в Hyperlink может теперь открывать папку или файл на диске;
- добавлен NOTABSTOP класс для Browse;
- поддержка пользовательских компонентов (заимствована из оффициального релиза);
- расширения и исправления в библиотеках TsBrowse и PropGrid;
- обновлены сборки Харбор и HMGS-IDE;
- новые и обновленные старые примеры (как обычно ).

 Отправлено: 21.10.15 18:40. Заголовок: Alex_Cher пишет: на..

Alex_Cher пишет:

цитата:

начиная с версии 2.5.3 в файле MiniGUI.chm "WIN32-GUI Library For (x)Harbour" не работает функция поиска, конечно мелочь, но очень не удобно ...

Да, да, не работает. А я думал что у меня только сбоит.
Только поиск еще раньше не работал, в предыдущих версиях...

 Отправлено: 21.10.15 19:15. Заголовок: Тестирую новую верси..

Тестирую новую версию. Пример \SAMPLES\Advanced\VOLUME_INFO\DEMO2.exe - не работает:


Система Win8.1 Проф. Права Админа.

 Отправлено: 21.10.15 21:22. Заголовок: Andrey пишет: не р..

Andrey пишет:

цитата:

не работает:

Andrey пишет:

цитата:

Права Админа.

Раз есть права админа , присвой метку тома для диска С . В примере проверяется именно она

If !Empty( aInfo[1] )

...

aInfo[1] := sz2Str( lpVolName ) 

и если метка не задана - выдается это окно.

 IF(Empty(cInfo), MsgStop( "Error!" ), MsgInfo( cInfo )) 

но это не сообщение об ошибке программы
PS что именно не работает ?

PPS Для наглядности программы проверку условия лучше все же заменить на

If  aInfo[1] <> NIL 

тогда и при пустой метке будет вывод корректной информации о диске

 Отправлено: 21.10.15 21:46. Заголовок: Haz пишет: Раз есть..

Haz пишет:

цитата:

Раз есть права админа , присвой метку тома для диска С

Думаешь у него диск без метки ? :)
"Территорию" нужно метить ))


PS
Новую не тестил версию , но в предыдущей все нормально (Win7)

 Отправлено: 21.10.15 21:55. Заголовок: Dima пишет: Думаешь..

Dima пишет:

цитата:

Думаешь у него диск без метки ? :)

уверен , судя по коду программы территория не помечена

 Отправлено: 22.10.15 09:54. Заголовок: Haz пишет: уверен ,..

Haz пишет:

цитата:

уверен , судя по коду программы территория не помечена

Пример \SAMPLES\Advanced\VOLUME_INFO\DEMO.exe


Что выдаёт пример \SAMPLES\Advanced\VOLUME_INFO\DEMO2.exe - написал выше.
Что заметил, то и написал. Это было и в предыдущих версиях.
Метки на диске нет - в проводнике пишется "Локальный диск (С:)"

 Отправлено: 22.10.15 09:54. Заголовок: cInfo += "Serial..

cInfo += "Serial Number :" + TAB + I2Hex( nSerNum / 65535 ) + "-" + I2Hex( nSerNum )

.. я понимаю что это серийный номер HDD, почему на некоторых компах число nSerNum отрицательное ?

 Отправлено: 22.10.15 10:13. Заголовок: Andrey пишет: Метки..

Andrey пишет:

цитата:

Метки на диске нет

Простая замена

цитата:

If !Empty( aInfo[ 1 ] )

на

цитата:

If !Empty( aInfo[ 2 ] )

должна решить эту проблему

 Отправлено: 22.10.15 10:57. Заголовок: Andrey пишет: Что з..

Andrey пишет:

цитата:

Что заметил, то и написал.

Андрей , все правильно сделал но еще правильнее было бы указать причину и решение
Раз уж нашел косячек и разобрался почему - кинь суда решение. Так и Григорию проще править будет
и он больше времени потратит на новый функционал , а не на исправление старых примеров.

 Отправлено: 22.10.15 13:09. Заголовок: Haz пишет: но еще п..

Haz пишет:

цитата:

но еще правильнее было бы указать причину и решение

Понял.

 Отправлено: 23.10.15 13:40. Заголовок: Haz пишет: Скачивай..

Haz пишет:

цитата:

Скачивай с этой ветки форума. работает сразу

Пасибки.....

 Отправлено: 28.10.15 12:28. Заголовок: VIRTUAL WINDOWTYPE PANEL

Кто-нибудь работал с виртуальными окнами?
У меня никак не работает VALID в GETBOX внутри такого окна.
Может кто уже натыкался на эти грабли?

Для примера воткнул в miniGui\Samples\BASIC\CONTAINERS\Panel\demo1.prg
строку вместо TEXT_4:

1. Если вставлять через DEFINE то выдет ошибку: "Error MGERROR/0 Control: Of Win_2 Not defined. Program terminated."
2. Если вставить: @ 210,10 GETBOX TEXT_4 VALUE 7 VALID This.Value>5 VALIDMESSAGE 'Value > 5'
- в этом случае любое значение проглатывает (пускал VALID через функцию - туда не попадает)

 Отправлено: 28.10.15 17:01. Заголовок: Еще один момент: Г..

Еще один момент:

Григорий, я тут нарыл одну ошибку, которая мне мешает.
В файле miniGui\SOURCE\h_controlmisc.prg есть функция FUNCTION _GetControlFree(),
которая (как я понял) при создании контрола находит в массиве удаленных контролов свободный элемент.
Если такой не находится - создается новый элемент и присваиваются все свойства.
Но свойство _HMG_StopControlEventProcedure в старом( найденом) элементе(в отличие от нового)
не переприсваивается.
Например - если выполнить по какому-то контролу StopControlEventProcedure, закрыть
форму, а потом ее снова создать, то нарываюсь на то что, все события по этому контролу уже отключены.

Предлагаю в конце процедуры _GetControlFree() перед оператором ENDIF вставить:
ELSE
_HMG_StopControlEventProcedure[k] := .F.

 Отправлено: 28.10.15 17:45. Заголовок: krutoff пишет: если..

krutoff пишет:

цитата:

если выполнить по какому-то контролу StopControlEventProcedure, закрыть форму, а потом ее снова создать, то нарываюсь на то что, все события по этому контролу уже отключены.

Пример - в студию

krutoff пишет:

цитата:

_HMG_StopControlEventProcedure[k] := .F.

Это делается в функции _EraseControl()

цитата:

#ifdef _HMG_COMPAT_ IF Type( '_HMG_SYSDATA[443][ i ]' ) != 'U' _HMG_StopControlEventProcedure [ i ] := .F. ENDIF #endif

 Отправлено: 29.10.15 11:41. Заголовок: //Пример - в студию:..

//Пример - в студию: После 2-го вызова Формы2 событие On Lostfocus в Text_1 не вызывается
//(Еще момент: что при редактировании Титул Формы 2 становится неактивным и приходится 2 раза щелкать при закрытии в первом старте)

#include "minigui.ch"

Function Main
DEFINE WINDOW Form_1 AT 0,0 WIDTH 200 HEIGHT 200 TITLE 'StopControlEventProcedure';
MAIN FONT 'Arial' SIZE 10
@ 70,50 BUTTON runBtn CAPTION 'Вызов Формы 2' ACTION DoForm2()
END WINDOW
ACTIVATE WINDOW Form_1
RETURN Nil
*--------------------------------------------------------------------------
Function DoForm2()
DEFINE WINDOW Form_2 AT 100,100 WIDTH 200 HEIGHT 200 TITLE 'Form 2' MODAL ;
ON RELEASE StopControlEventProcedure("Text_1", "Split_1",.T.)
DEFINE SPLITBOX

DEFINE WINDOW Split_1 WIDTH 180 HEIGHT 180 ;
VIRTUAL WIDTH 200 VIRTUAL HEIGHT 200 ;
SPLITCHILD NOCAPTION

@ 20,20 TEXTBOX Text_1 VALUE 'Text_1' ON LOSTFOCUS msgInfo('LOSTFOCUS Text_1')
@120,20 TEXTBOX Text_2 VALUE 'Text_2'

END WINDOW

END SPLITBOX
END WINDOW
ACTIVATE WINDOW Form_2
Return Nil

 Отправлено: 29.10.15 13:46. Заголовок: krutoff пишет: Посл..

krutoff пишет:

цитата:

После 2-го вызова Формы2 событие On Lostfocus в Text_1 не вызывается

Да, все так... Поправлю, конечно

krutoff пишет:

цитата:

при редактировании Титул Формы 2 становится неактивным

Думаю, что это нормально, поскольку в этой форме содержится еще одно дочернее окно Split_1 в родительском окне Form_2

 Отправлено: 29.10.15 16:47. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Думаю, что это нормально, поскольку в этой форме содержится еще одно дочернее окно Split_1 в родительском окне Form_2

Спасибо, Григорий! Да, я тоже понимаю, что алгоритмически - это нормально, но визуально как бы находишься в активном окне...

 Отправлено: 06.11.15 13:54. Заголовок: VIRTUAL WINDOWTYPE PANEL

здравствуйте
у меня тоже вопрос по samples\basic\containers\panel (MiniGUI 2.4)
пытался использовать typewindow panel с virtual height как в том примере
но прокрутка (колесиком мыши) не работала
путем проб установил - прокрутка начинает работать, если в это окно поместить button, иначе - не работает
можно конечно поместить там button с нулевыми размерами, но все же...

и второе - если нажать мышью на стрелку вверх, то выполняется прокрутка окна (panel), хотя ползунок уже находится в самой верхней позиции
подскажите пожалуйста - как можно от этого избавиться?

пример ниже

Скрытый текст

#include "minigui.ch" ************************** Function Main DEFINE WINDOW SAST_1; AT 0,0 ; WIDTH 500; HEIGHT 500; TITLE "SAST_1"; WINDOWTYPE MAIN DEFINE WINDOW WIN_2; ROW 10; COL 10; WIDTH 200; HEIGHT 200; VIRTUAL WIDTH 5000; VIRTUAL HEIGHT 5000; WINDOWTYPE PANEL IF .F. DEFINE LABEL LABEL_1 ROW 10 COL 10 VALUE 'LABEL_1' WIDTH 100 HEIGHT 30 END LABEL ENDIF IF .F. DEFINE BUTTON BUTTON_1 ROW 50 COL 10 CAPTION 'BUTTON_1' WIDTH 100 HEIGHT 30 END BUTTON ENDIF END WINDOW END WINDOW CENTER WINDOW SAST_1 activate window SAST_1 Return Nil

 Отправлено: 06.11.15 15:05. Заголовок: alexandr11 пишет: е..

alexandr11 пишет:

цитата:

если нажать мышью на стрелку вверх, то выполняется прокрутка окна (panel), хотя ползунок уже находится в самой верхней позиции

Поправил эту бяку для вертикального и горизонтального сдвигов.
Благодарю за наглядный пример

цитата:

как можно от этого избавиться?

Ждите ноябрьскую сборку в конце месяца...

 Отправлено: 06.11.15 16:15. Заголовок: Поправил эту бяку ..

цитата:

Поправил эту бяку

спасибо, Григорий

а что с первой бякой (не работает прокрутка)?