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 
ПрофильЦитата Ответить
Ответов - 208 , стр: 1 2 3 4 5 6 7 8 9 10 11 All [только новые]





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


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

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




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

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


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


Dima пишет:

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



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

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



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


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

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



Пост 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 
ПрофильЦитата Ответить



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


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


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


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


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




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


gfilatov2002 пишет:

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


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

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




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


SergKis пишет:

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


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

SergKis пишет:

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


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

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



Пост 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 
ПрофильЦитата Ответить
moderator




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


SergKis пишет:

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


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

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



Пост 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 
ПрофильЦитата Ответить



Пост 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 
ПрофильЦитата Ответить



Пост 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 
ПрофильЦитата Ответить



Пост 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 
ПрофильЦитата Ответить
moderator




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


SergKis пишет:

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


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

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



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


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

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




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


SergKis пишет:

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


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

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



Пост 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 
ПрофильЦитата Ответить



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

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