Автор | Сообщение |
gfilatov
|
| модератор
|
Пост N: 699
Зарегистрирован: 25.05.05
|
|
Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
gfilatov2002
|
| moderator
|
Пост N: 1682
Зарегистрирован: 11.02.10
|
|
Отправлено: 29.04.20 09:57. Заголовок: SergKis пишет: чуть..
SergKis пишет: цитата: | чуть поправить ? h_objmisc.prg |
| OK
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3146
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.04.20 12:42. Заголовок: gfilatov2002 Может ..
gfilatov2002 Может есть смысл добавить, что то такое ? *-----------------------------------------------------------------------------* FUNCTION _SetWindowThis ( i ) *-----------------------------------------------------------------------------* IF Empty( i ) _PushEventInfo() ELSE IF HB_ISCHAR( i ) i := GetFormIndex( i ) ELSEIF HB_ISOBJECT( i ) i := iif( i:ClassName == 'TSBROWSE', GetFormIndex( i:cParentWnd ), i:Index ) ENDIF _PushEventInfo() _HMG_ThisFormIndex := i _HMG_ThisEventType := '' _HMG_ThisType := 'W' _HMG_ThisIndex := i _HMG_ThisFormName := _HMG_aFormNames [ _HMG_ThisFormIndex ] _HMG_ThisControlName := "" ENDIF RETURN NIL Использовать например так ... IF !IsWindowActive( Form_Client ) DEFINE WINDOW Form_Client ; ... ELSE // !!! так сейчас пишем Form_Client.WIDTH := nWinWidth Form_Client.HEIGHT := nWinHeight Form_Client.Label_0.Value := cVal CENTER WINDOW Form_Client // !!! можем так делать ( это маленький кусочек ) _SetWindowThis( "Form_Client" ) This.WIDTH := nWinWidth This.HEIGHT := nWinHeight This.Label_0.Value := cVal This.CENTER _SetWindowThis() ENDIF Можно DEFINE сделать на ф-ю или команды аналогично IsWindowActive( Form_Client )
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1683
Зарегистрирован: 11.02.10
|
|
Отправлено: 29.04.20 12:53. Заголовок: SergKis пишет: Може..
SergKis пишет: цитата: | Может есть смысл добавить |
| Благодарю за предложение Это уже идея для новой сборки... А подготовка апрельской сборки уже завершена, и она будет опубликована завтра
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3147
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.04.20 12:56. Заголовок: PS Ошибся. Надо ..
PS Ошибся. Надо IF Empty( i ) _PopEventInfo() ELSE
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3148
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.04.20 21:19. Заголовок: gfilatov2002 пишет Э..
gfilatov2002 пишет цитата: | Это уже идея для новой сборки... |
| Есть ф-я _SetThisFormInfo (у меня давно исправлена) можно ее использовать FUNCTION _SetThisFormInfo ( i ) // стек значений переменных _HMG_This... LOCAL l := .T. // BK 18.05.2015 IF empty( i ) _PopEventInfo() ELSE IF HB_ISCHAR( i ) i := GetFormIndex( i ) l := .F. ELSEIF HB_ISOBJECT( i ) i := iif( i:ClassName == 'TSBROWSE', GetFormIndex( i:cParentWnd ), i:Index ) l := .F. ENDIF _PushEventInfo() _HMG_ThisEventType := iif( l, 'DEFINE_WINDOW', '' ) _HMG_ThisFormIndex := i _HMG_ThisType := _HMG_aFormType [ i ] _HMG_ThisIndex := i _HMG_ThisFormName := _HMG_aFormNames [ i ] _HMG_ThisControlName := "" ENDIF RETURN NIL
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1684
Зарегистрирован: 11.02.10
|
|
Отправлено: 29.04.20 22:21. Заголовок: SergKis пишет: Есть..
SergKis пишет: цитата: | Есть ф-я _SetThisFormInfo (у меня давно исправлена) можно ее использовать |
| Да, использовать/доработать уже существующую функцию, конечно, предпочтительнее. Выполнил предложенные изменения в текущей сборке, контрольный пример отработал правильно. цитата: | _SetThisFormInfo(Form_1.Index) This.Browse_1.ColumnsAutoFitH() This.CENTER This.ACTIVATE _SetThisFormInfo() |
| Благодарю за помощь
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1685
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.04.20 09:54. Заголовок: Опубликована новая с..
Опубликована новая сборка 20.04 для BCC 5.8.2 и компиляторов Harbour и xHarbour. Базовый дистрибутив находится по адресу http://hmgextended.com/files/CONTRIB/hmg-20.04-setup.exe Добавил также архив для бесплатного Embarcadero C++ 10.2 'Tokyo' compiler http://hmgextended.com/files/CONTRIB/hmg2004_bcc102.exe Для частного использования подготовлены еще два дистрибутива: цитата: | Harbour MiniGUI Extended Edition 20.04 (Release) Harbour 3.2.0dev (r2004201301) Harbour Make (hbmk2) 3.2.0dev (r2020-04-20 13:01) gcc (MinGW-W64 i686-posix-sjlj, built by Brecht Sanders) 9.3.0 |
|
и цитата: | Harbour MiniGUI Extended Edition 20.04 (Release) (64-bit) Harbour 3.4.0dev (64-bit) (2017-12-20 13:40) Harbour Make (hbmk2) 3.4.0dev (64-bit) (2017-12-20 13:40) gcc (GCC) 9.2.0 (64-bit) |
|
доступ к которым открыт для всех, кто поддержал выпуск этой сборки материально.
|
|
|
Dima
|
| |
Пост N: 7184
Зарегистрирован: 17.05.05
|
|
Отправлено: 30.04.20 10:14. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | доступ к которым открыт для всех, кто поддержал выпуск этой сборки материально. |
| Там Forbidden.......подождем пока отвалится ЗЫ Социнжиниринг помог добраться куда надо :)
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6640
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.04.20 11:39. Заголовок: Отличная новость ! ..
Отличная новость ! А Микрософтный компилятор где ? Я уже с ним вожусь потихоньку. Мигрировать на него собираюсь.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3149
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.04.20 12:59. Заголовок: gfilatov2002 пишет В..
gfilatov2002 пишет цитата: | Выполнил предложенные изменения в текущей сборке, |
| Вариант _SetThisFormInfo() остался старый в последней сборке
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1686
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.04.20 13:03. Заголовок: SergKis пишет: оста..
SergKis пишет: цитата: | остался старый в последней сборке |
| Да, решил, что это подождет до следующего релиза Добавил также новую команду: цитата: | #xtranslate SET WINDOW THIS TO [<w>] => _SetThisFormInfo( [<w>] ) |
|
Еще раз благодарю за Ваши идеи
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3150
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.04.20 15:58. Заголовок: gfilatov2002 пишет Д..
gfilatov2002 пишет цитата: | Да, решил, что это подождет до следующего релиза Добавил также новую команду: |
| Сделал эти изменения в MiniGuiBcc58, MiniGuiBcc102. Проверил сборку lib. Все либы собрались. Примеры Tsb_array_2 все отработали в обоих bcc. Пример с командой то же ... LOCAL oThis, cForm := "Form_Client" ... IF !_IsWindowActive( cForm ) DEFINE WINDOW &cForm ; ... ELSE SET WINDOW THIS TO cForm oThis := This.Object This.WIDTH := nWinWidth This.HEIGHT := nWinHeight This.Label_0.Value := cVal This.CENTER SET WINDOW THIS TO ENDIF ... Спасибо все работает
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1687
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.04.20 20:17. Заголовок: SergKis пишет: все ..
SergKis пишет: Благодарю за подтверждение
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1688
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.04.20 21:43. Заголовок: Andrey пишет: Микро..
Andrey пишет: цитата: | Микрософтный компилятор где ? |
|
Свежий архив для этого компилятора положил в папку PRIVATE на сайте библиотеки (имя архива не изменял). цитата: | Harbour Build Info --------------------------- Version: Harbour 3.2.0dev (r2002101434) Compiler: Microsoft Visual C++ 19.24.28319 (32-bit) Platform: Windows 10 10.0 PCode version: 0.3 ChangeLog last entry: 2020-02-10 15:34 UTC+0100 Aleksander Czajczynski (hb fki.pl) ChangeLog ID: 123475ab11ba031e8b9c88138f2f0b24e4327e54 Built on: Mar 12 2020 10:55:14 Extra Harbour compiler options: -gc0 Extra C compiler options: -DHB_GC_AUTO -DHB_GUI -DHB_NO_TRACE Build options: (C++ mode) (Clipper 5.3b) (Clipper 5.x undoc) |
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6641
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.05.20 16:45. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Свежий архив для этого компилятора положил в папку PRIVATE на сайте библиотеки (имя архива не изменял). |
| Спасибо БОЛЬШОЕ, но не могу найти где брать. Предыдущие ссылки не работают. Если не трудно, прошу отправить ссылки мне на почту.
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1689
Зарегистрирован: 11.02.10
|
|
Отправлено: 01.05.20 18:03. Заголовок: Andrey пишет: прошу..
Andrey пишет: цитата: | прошу отправить ссылки мне на почту |
| Отправил ссылку по почте
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6642
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.05.20 18:23. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: Спасибо БОЛЬШОЕ !
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3158
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.05.20 13:49. Заголовок: gfilatov2002 Правка..
gfilatov2002 Правка (в первой колонке oCol:nWidth всегда NIL получается) METHOD LoadFields( lEditable, aColSel, cAlsSel, aNameSel, aHeadSel ) CLASS TSBrowse ... cBlock := 'FieldWBlock("' + aStru[ nE, 1 ] + '",Select("' + cAlias + '"))' ::AddColumn( TSColumn():New( cHeading, FieldWBlock( aStru[ nE, 1 ], Select( cAlias ) ),cPicture, ; { ::nClrText, ::nClrPane }, { nAlign, DT_CENTER }, nSize,, lEditable,,, cOrder,,,, ; 5,,,, Self, cBlock ) ) IF ATail( ::aColSizes ) == NIL ::aColSizes[ Len( ::aColSizes ) ] := nSize ENDIF cName := ( cAlias )->( FieldName( nE ) ) ...
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3159
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.05.20 14:24. Заголовок: PS Изменение лучше с..
PS Изменение лучше сделать тут METHOD AddColumn( oColumn ) CLASS TSBrowse ... If Len( ::aColSizes ) < Len( ::aColumns ) AAdd( ::aColSizes, oColumn:nWidth ) EndIf If ATail( ::aColSizes ) == NIL ::aColSizes[ Len( ::aColSizes ) ] := oColumn:nWidth ENDIF If ::aPostList != Nil // from ComboWBlock function ...
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1690
Зарегистрирован: 11.02.10
|
|
Отправлено: 03.05.20 14:30. Заголовок: SergKis пишет: лучш..
SergKis пишет: Добавил, конечно. Благодарю за помощь
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|