On-line: гостей 0. Всего: 0 [подробнее..]
АвторСообщение
модератор




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


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

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

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

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

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




--
Улыбайся - завтра будет хуже!
Спасибо: 5 
ПрофильЦитата Ответить
Ответов - 137 , стр: 1 2 3 4 5 6 7 All [только новые]


moderator




Пост N: 1682
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 29.04.20 09:57. Заголовок: SergKis пишет: чуть..


SergKis пишет:

 цитата:
чуть поправить ? h_objmisc.prg


OK

Спасибо: 0 
ПрофильЦитата Ответить



Пост 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 )

Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1683
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 29.04.20 12:53. Заголовок: SergKis пишет: Може..


SergKis пишет:

 цитата:
Может есть смысл добавить


Благодарю за предложение
Это уже идея для новой сборки...
А подготовка апрельской сборки уже завершена, и она будет опубликована завтра

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 3147
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 29.04.20 12:56. Заголовок: PS Ошибся. Надо ..


PS
Ошибся. Надо
 
IF Empty( i )

_PopEventInfo()

ELSE


Спасибо: 0 
ПрофильЦитата Ответить



Пост 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


Спасибо: 0 
ПрофильЦитата Ответить
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()


Благодарю за помощь

Спасибо: 0 
ПрофильЦитата Ответить
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)

доступ к которым открыт для всех, кто поддержал выпуск этой сборки материально.

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 7184
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 30.04.20 10:14. Заголовок: gfilatov2002 пишет: ..


gfilatov2002 пишет:

 цитата:
доступ к которым открыт для всех, кто поддержал выпуск этой сборки материально.


Там Forbidden.......подождем пока отвалится

ЗЫ
Социнжиниринг помог добраться куда надо :)

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6640
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 30.04.20 11:39. Заголовок: Отличная новость ! ..


Отличная новость !
А Микрософтный компилятор где ?
Я уже с ним вожусь потихоньку. Мигрировать на него собираюсь.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 3149
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 30.04.20 12:59. Заголовок: gfilatov2002 пишет В..


gfilatov2002 пишет
 цитата:
Выполнил предложенные изменения в текущей сборке,


Вариант _SetThisFormInfo() остался старый в последней сборке

Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1686
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 30.04.20 13:03. Заголовок: SergKis пишет: оста..


SergKis пишет:

 цитата:
остался старый в последней сборке


Да, решил, что это подождет до следующего релиза
Добавил также новую команду:

 цитата:
#xtranslate SET WINDOW THIS TO [<w>] => _SetThisFormInfo( [<w>] )

Еще раз благодарю за Ваши идеи

Спасибо: 0 
ПрофильЦитата Ответить



Пост 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
...


Спасибо все работает

Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1687
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 30.04.20 20:17. Заголовок: SergKis пишет: все ..


SergKis пишет:

 цитата:
все работает


Благодарю за подтверждение

Спасибо: 0 
ПрофильЦитата Ответить
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)



Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6641
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 01.05.20 16:45. Заголовок: gfilatov2002 пишет: ..


gfilatov2002 пишет:

 цитата:
Свежий архив для этого компилятора положил в папку PRIVATE на сайте библиотеки (имя архива не изменял).


Спасибо БОЛЬШОЕ, но не могу найти где брать.
Предыдущие ссылки не работают.
Если не трудно, прошу отправить ссылки мне на почту.


Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1689
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 01.05.20 18:03. Заголовок: Andrey пишет: прошу..


Andrey пишет:

 цитата:
прошу отправить ссылки мне на почту


Отправил ссылку по почте

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6642
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 01.05.20 18:23. Заголовок: gfilatov2002 пишет: ..


gfilatov2002 пишет:

 цитата:
Отправил ссылку по почте


Спасибо БОЛЬШОЕ !

Спасибо: 0 
ПрофильЦитата Ответить



Пост 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 ) )
...


Спасибо: 0 
ПрофильЦитата Ответить



Пост 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
...


Спасибо: 0 
ПрофильЦитата Ответить
moderator




Пост N: 1690
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 03.05.20 14:30. Заголовок: SergKis пишет: лучш..


SergKis пишет:

 цитата:
лучше сделать тут


Добавил, конечно.
Благодарю за помощь

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 137 , стр: 1 2 3 4 5 6 7 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 319
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет