On-line: гостей 0. Всего: 0 [подробнее..]
АвторСообщение
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;
- новые и обновленные старые примеры (как обычно ).




--
Улыбайся - завтра будет хуже!
Спасибо: 5 
Профиль
Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]


LYSK





Пост N: 79
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 24.01.19 13:55. Заголовок: Дима, там еще нужен ..


Дима, там еще нужен ADS'ный фарш, и пока что у меня не нашлось совместимого с ADSRDD. Вот в 2010 году был!

Спасибо: 0 
Профиль
Dima
администратор




Пост N: 7001
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 24.01.19 14:00. Заголовок: LYSK Всё тут (верси..

Спасибо: 0 
Профиль
Haz
moderator


Пост N: 1437
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 24.01.19 14:02. Заголовок: LYSK пишет: нужен A..


LYSK пишет:

 цитата:
нужен ADS'ный фарш


http://github.com/harbour/core/archive/master.zip
в папке \core-master\contrib\rddads сырцы
aceapi в поставке ads

сборка примерно так
set PATH=C:\borland\bcc55\bin
set HB_INSTALL_PREFIX=C:\MiniGui\Harbour
set HB_DIR_ADS=C:\acesdk
set HB_WITH_ADS=C:\acesdk
C:\MiniGui\Harbour\bin\hbmk2 rddads.hbp

Спасибо: 0 
Профиль
Haz
moderator


Пост N: 1438
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 24.01.19 14:03. Заголовок: Dima пишет: Всё тут..


Dima пишет:

 цитата:
Всё тут (версия 11)



Мы тут наперегонки помогаем

Спасибо: 0 
Профиль
LYSK





Пост N: 80
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 24.01.19 14:05. Заголовок: За что и уважаю Клип..


За что и уважаю Клипперистов!

Спасибо: 0 
Профиль
SergKis



Пост N: 2179
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 25.01.19 15:50. Заголовок: gfilatov2002 Неболь..


gfilatov2002
Небольшая добавка
 
CLASS TWndData
...
ACCESS Row INLINE GetWindowRow ( ::nHandle )
ASSIGN Row ( nVal ) INLINE _SetWindowSizePos( ::cName, nVal, , , )

ACCESS Col INLINE GetWindowCol ( ::nHandle )
ASSIGN Col ( nVal ) INLINE _SetWindowSizePos( ::cName, , nVal, , )

ACCESS Width INLINE GetWindowWidth ( ::nHandle )
ASSIGN Width ( nVal ) INLINE _SetWindowSizePos( ::cName, , , nVal, )

ACCESS Height INLINE GetWindowHeight( ::nHandle )
ASSIGN Height( nVal ) INLINE _SetWindowSizePos( ::cName, , , , nVal)

ACCESS ClientWidth INLINE _GetClientRect ( ::nHandle )[ 3 ]
...
CLASS TCnlData INHERIT TWndData
...
ASSIGN Cargo ( xVal ) INLINE _ControlCargo( Self, , xVal )

ACCESS Row INLINE _GetControlRow ( ::cName, ::oWin:Name )
ASSIGN Row ( nVal ) INLINE _SetControlRow ( ::cName, ::oWin:Name, nVal )
ACCESS Col INLINE _GetControlCol ( ::cName, ::oWin:Name )
ASSIGN Col ( nVal ) INLINE _SetControlCol ( ::cName, ::oWin:Name, nVal )
ACCESS Width INLINE _GetControlWidth ( ::cName, ::oWin:Name )
ASSIGN Width ( nVal ) INLINE _SetControlWidth ( ::cName, ::oWin:Name, nVal )
ACCESS Height INLINE _GetControlHeight( ::cName, ::oWin:Name )
ASSIGN Height( nVal ) INLINE _SetControlHeight( ::cName, ::oWin:Name, nVal )

...


Спасибо: 0 
Профиль
SergKis



Пост N: 2180
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 27.01.19 18:23. Заголовок: gfilatov2002 Возмож..


gfilatov2002
Возможно будет интересно :
C Скрытый текст


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


Samples\Basic\GetBox Скрытый текст


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




Пост N: 6167
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 28.01.19 14:14. Заголовок: gfilatov2002 пишет: ..


gfilatov2002 пишет:

 цитата:
Выпущена новая сборка 19.01 для BCC 5.5.1 и компиляторов Harbour и xHarbour.


Пере собрал несколько программ. Полёт нормальный !

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1420
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 30.01.19 20:12. Заголовок: SergKis пишет: Небо..


SergKis пишет:

 цитата:
Небольшая добавка


Принято.
Благодарю за помощь

SergKis пишет:

 цитата:
Возможно будет интересно


Да, это интересно

Спасибо: 0 
Профиль
SergKis



Пост N: 2181
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 31.01.19 11:07. Заголовок: gfilatov2002 пишет Д..


gfilatov2002 пишет
 цитата:
Да, это интересно


Тогда полный вариант примера Basic\GetBox https://my-files.ru/u0c7yv
В архиве и полный вариант h_objects.prg
Пример можно пробовать на разных мониторах и разрешениях.
Параметры есть FontSize, ScaleWidth, ScaleHeight можно поиграть, к примеру
demo.exe 14 125 110

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1421
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 31.01.19 11:52. Заголовок: SergKis пишет: полн..


SergKis пишет:

 цитата:
полный вариант h_objects.prg


Спасибо
Буду разбираться...

Спасибо: 0 
Профиль
SergKis



Пост N: 2182
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 31.01.19 19:38. Заголовок: gfilatov2002 Нашел,..


gfilatov2002
Нашел, что не перенес из своей раб. версии в h_objects.prg
 
METHOD DoEvent ( Key, nHandle ) CLASS TWndData

LOCAL o := Self
LOCAL i := o:Index
LOCAL w := o:IsWindow
LOCAL p := o:oParam:Get(Key)

...
IF w
RETURN Do_WindowEventProcedure ( ::oEvent:Get( Key ), i, o, Key, p )
ENDIF

RETURN Do_ControlEventProcedure( ::oEvent:Get( Key ), i, o, Key, p )
...


Спасибо: 0 
Профиль
SergKis



Пост N: 2183
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 31.01.19 19:43. Заголовок: PS и METHOD DoEvent..


PS
и
 
METHOD DoEvent ( Key, nHandle ) CLASS TCnlData

LOCAL o := iif( hmg_IsWindowObject( nHandle ), hmg_GetWindowObject( nHandle ), Self )

RETURN Do_ControlEventProcedure( ::oEvent:Get( Key ), o:Index, o, Key, ::oParam:Get( Key ) )


Спасибо: 0 
Профиль
SergKis



Пост N: 2184
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 31.01.19 19:57. Заголовок: PPS и CLASS TCnlDat..


PPS
и
 
CLASS TCnlData INHERIT TWndData
...
METHOD PostMsg( nKey, xPar ) INLINE iif( ::oWin:Action, ( ::oParam:Set( nKey, xPar ), ;
PostMessage( ::oWin:nHandle, ::WM_nMsgC, nKey, ::nHandle ) ), Nil )
METHOD Post ( nKey, xPar ) INLINE ::PostMsg( nKey, xPar )
METHOD SendMsg( nKey, xPar ) INLINE iif( ::oWin:Action, ( ::oParam:Set( nKey, xPar ), ;
SendMessage( ::oWin:nHandle, ::WM_nMsgC, nKey, ::nHandle ) ), Nil )
METHOD Send ( nKey, xPar ) INLINE ::SendMsg( nKey, xPar )

...


Спасибо: 0 
Профиль
SergKis



Пост N: 2185
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 01.02.19 13:19. Заголовок: gfilatov2002 Если в..


gfilatov2002
Если в пример добавить
 
...
END WITH

This.Button_1.Enabled:=.f.
This.Button_3.Enabled:=.f.
This.Browse_1.ColumnsAutoFitH

END WINDOW

Form_1.Center
Form_1.Activate
...

то поведение browse будет нормальным, при смене параметров

Спасибо: 0 
Профиль
gfilatov2002
moderator




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


SergKis пишет:

 цитата:
в пример добавить


Принято с благодарностью
Контрольный пример работает нормально

Спасибо: 0 
Профиль
SergKis



Пост N: 2186
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 02.02.19 00:02. Заголовок: gfilatov2002 Слегка..


gfilatov2002
Слегка почистил пример https://my-files.ru/sz6n72
добавил управление и DublClick по getboxам записи из browse для включения edit.

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1423
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 02.02.19 12:23. Заголовок: SergKis пишет: почи..


SergKis пишет:

 цитата:
почистил пример


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

Спасибо: 0 
Профиль
SergKis



Пост N: 2187
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 02.02.19 23:24. Заголовок: gfilatov2002 Перебр..


gfilatov2002
Перебрал пример https://my-files.ru/6muluk
1. перевел на события, включая меню и browse
2. в DEF GET ввел ON DBLCLICK ... и ON KEY ... вместо KEYEVENT ... (см. Text_1, Text_2)
3. ввел параметр фонта, т.е. можно пробовать запуски с разными фонтами:
demo.exe 16 140 120
demo.exe 14 125 110
demo.exe 16 135 120 Arial
demo.exe 14 120 110 Arial
...

Спасибо: 0 
Профиль
SergKis



Пост N: 2188
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 03.02.19 07:51. Заголовок: PS пропустил несколь..


PS
пропустил несколько событий (исп. параметра)
 
...
DEF GET Text_2b GAPS {0, 2.0, , 2.0} ROWS ;
VALUE "Kowalski";
PICTURE "@K !!!!!!!!!!";
ON CHANGE (ThisWindow.Object):Post(13, , 300) ;
// TONE(300)
BACKCOLOR :O:BColorGet ;
FONTCOLOR :O:FColorGet
...
DEF BTNEX OButton_4 GAPS {0, , , 2.0} ROWS HEIGHT :H1 * 2 ;
...
BACKCOLOR WHITE ;
ACTION (ThisWindow.Object):Post(13, , 800) ;
// TONE(800)
TOOLTIP "horizontal Bitmap BUTTONEX 4"
...
:Y := This.Text_2b.Row + :GapsHeight
DEF SAY Label_1a COLS WIDTH :O:nBrwSayLen VALUE "Date" BOLD
DEF GET Text_5 ROWS WIDTH :D ;
FIELD test->Datev ;
ON LOSTFOCUS LostFocus2Get() ;
ON DBLCLICK (ThisWindow.Object):Post(12, This.Text_5.Index) ;
//DublClick2Get() ;
TOOLTIP "Text_5. DublClick --> Edit" ;
BACKCOLOR :O:BColorGet ;
PICTURE '@D';
GOTFOCUSSELECT ;
READONLY

:X := :O:nLeft2
DEF SAY Label_1b COLS WIDTH :O:nBrwSayLen VALUE "Num." BOLD
DEF GET Text_6 ROWS WIDTH 1 ;
FIELD test->Numeric ;
ON LOSTFOCUS LostFocus2Get() ;
ON DBLCLICK (ThisWindow.Object):Post(12, This.Text_6.Index) ;
// DublClick2Get() ;
TOOLTIP "Numeric field. VALID {|| (!EMPTY(This.Value).AND.This.Value<=99999)} . WHEN {|| This.Value > 99}" ;
BACKCOLOR :O:BColorGet ;
PICTURE "@KB 999999";
VALID {|| (!EMPTY(This.Value).AND.This.Value<=99999)} ;
WHEN {|| This.Value > 99} ;
GOTFOCUSSELECT ;
READONLY

:X := :O:nLeft2
DEF SAY Label_1c COLS WIDTH :O:nBrwSayLen VALUE "Char." BOLD
DEF GET Text_7 ROWS COLS ;
FIELD test->Character ;
ON LOSTFOCUS LostFocus2Get() ;
ON DBLCLICK (ThisWindow.Object):Post(12, This.Text_7.Index) ;
// DublClick2Get() ;
TOOLTIP "Characters field. DublClick --> Edit" ;
VALIDMESSAGE "Can not be empty!. VALID {|| (!EMPTY(This.Value))} . PICTURE @K !XXXXXXXXXXXXXXXX ";
VALID {|| (!EMPTY(This.Value))} ;
PICTURE "@K !XXXXXXXXXXXXXXXX";
BACKCOLOR :O:BColorGet ;
GOTFOCUSSELECT ;
READONLY

:O:nLeft3 := :X + :GapsWidth

:X := :O:nLeft2
DEF SAY Label_1d COLS WIDTH :O:nBrwSayLen VALUE "Logic." BOLD
DEF GET Text_8 ROWS WIDTH :O:nBoolLen ;
FIELD test->Logical;
ON LOSTFOCUS LostFocus2Get() ;
ON DBLCLICK (ThisWindow.Object):Post(12, This.Text_8.Index) ;
//DublClick2Get() ;
BACKCOLOR :O:BColorGet ;
FONTCOLOR :O:FColor2 ;
BOLD;
TOOLTIP "Logical field. DublClick --> Edit" ;
CENTERALIGN ;
READONLY
...
:Event(10, {| | This.Enabled := .F., This.Browse_1.SetFocus } )
// :Event(11, {| | This.Enabled := .T., This.Browse_1.SetFocus } )
:Event(11, {| | This.Enabled := .T., This.SetFocus } ) // так интереснее
:Event(12, {| | DublClick2Get() } )
:Event(13, {|ow,ky,np| TONE( np ) } )


END WITH
...


Спасибо: 0 
Профиль
Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 27
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет