Автор | Сообщение |
|
| постоянный участник
|
Пост N: 315
Зарегистрирован: 29.05.10
|
|
Отправлено: 23.02.18 14:22. Заголовок: С Днем Советской Арм..
С Днем Советской Армии!!! С Праздником МУЖИКИ! FW ( наверное по этому случаю ) добавил в бровс еще одну выгрузку или две, если о HTML не говорил .. - New METHOD ToCSV( [cFile], [aCols], [lHeaders], [cTrue], [cFalse] )--> cFile/cCsvText 1. cFile (Optional): If specified, CSV text is written to this file and filename with full path is returned. Otherwise CSV text is returned. 2. aCols (Optional): Defaults to all oBrw:VisibleCols(). If provided, can be an array of column objects/ numbers/ headers/ 3. lHeaders (Optional): Defaults to .T.. If .f., headers are not written to the CSV 4. cTrue (Optional): Text to be written when the value is logical .t. 5. cFalse(Optional): Text to be written when the value is logical .f. И видимо обратив внимание на беспокойство Андрея добавил функцию загрузки XML в бровс :)) * New function XBrowseXML( cXmlFile ) to browse any XML file. и т.д. и т.п . Здоровья всем!!!
| |
|
Ответов - 25
, стр:
1
2
All
[только новые]
|
|
|
| постоянный участник
|
Пост N: 5740
Зарегистрирован: 12.09.06
|
|
Отправлено: 23.02.18 16:03. Заголовок: ММК пишет: С Днем С..
ММК пишет: цитата: | С Днем Советской Армии!!! С Праздником МУЖИКИ! |
| Присоединяюсь ! ММК пишет: цитата: | И видимо обратив внимание на беспокойство Андрея добавил функцию загрузки XML в бровс :)) |
| Да я обратную операцию пытаюсь сделать. Если не сложно, то собери пример демонстрирующий эту функцию. Очень интересно посмотреть и по тестить на это.
| |
|
|
| moderator
|
Пост N: 1247
Зарегистрирован: 11.02.10
|
|
Отправлено: 23.02.18 21:09. Заголовок: С праздником!
| |
|
|
| Администратор
|
Пост N: 3693
Зарегистрирован: 23.05.05
|
|
Отправлено: 23.02.18 22:15. Заголовок: Поздравляю всех со 1..
Поздравляю всех со 100-летием создания Красной Армии, днем Советской Армии, и днем Защитника Отечества !
| |
|
|
| постоянный участник
|
Пост N: 316
Зарегистрирован: 29.05.10
|
|
Отправлено: 04.03.18 10:28. Заголовок: Andrey пишет: Да я ..
Andrey пишет: цитата: | Да я обратную операцию пытаюсь сделать. |
| Извините :) Andrey пишет: цитата: | Если не сложно, то собери пример демонстрирующий эту функцию. Очень интересно посмотреть и по тестить на это. |
| А здесь все просто. Думаю и переводить не надо . This function uses TXmlDocument class of (x)Harbour and can display only such xml files that can be read by this class. Вы легко в этом разберетесь. Есть более интересный пример ( на мой взгляд ). Пр-ка читает форум , выбирает примеры и показывает их с привязкой к автору, теме ,ключевому слову и т.д. И в то же время может выполнять такую же операцию на локальном диске. Вот Вам идея которая при соответствующей доработке может быть помощником классификации примеров и для FW и для этого форума :)) Download : http://www.pflegeplus.com/DOWNLOADS/Forum7.zip и сама тема - http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35170
| |
|
|
| постоянный участник
|
Пост N: 5760
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.03.18 19:34. Заголовок: ММК СПАСИБО ! :sm36..
ММК СПАСИБО !
| |
|
|
| постоянный участник
|
Пост N: 5761
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.03.18 20:55. Заголовок: Кнопочки классные ! ..
Кнопочки классные ! А можно код привести таких кнопочек ? Интересен синтаксис FW.
| |
|
|
| постоянный участник
|
Пост N: 317
Зарегистрирован: 29.05.10
|
|
Отправлено: 06.03.18 10:01. Заголовок: Andrey пишет: А мож..
Andrey пишет: цитата: | А можно код привести таких кнопочек ? Интересен синтаксис FW. |
| А синтаксис практически такой же , как и в минигуи. Все команды FW имеют два основных варианта : 1. Весь "дизайн" делается руками в пр-ме 2. Используется дизайнер форм На примере "кнопочек" первый вариант - @ <nRow>, <nCol> SBUTTON [<oBtn>] ; [ <caption: PROMPT, CAPTION, TITLE> <cPrompt> ] ; [ <of:OF, WINDOW, DIALOG> <oWnd> ] ; [ <resource: NAME, RESNAME, RESOURCE> <aResource,...> ] ; [ <file: FILE, FILENAME, DISK> <aFile,...> ] ; [ SIZE <aSize,...> ] ; [ <lPixel: PIXEL, PIXELS> ] ; [ ACTION <uAction,...> ] ; [ <default: DEFAULT> ] ; [ FONT <oFont> ] ; [ MESSAGE <cMsg> ] ; [ TOOLTIP <cToolTip> ] ; [ <help:HELP, HELPID, HELP ID> <nHelpId> ] ; [ WHEN <uWhen> ] ; [ VALID <uValid> ] ; [ <border: BORDER, NOBORDER, NOBOX, LOOK W97, W97, NOBOXTR> ] ; [ <lCancel: CANCEL> ] ; [ <lAdjust: ADJUST > ] ; [ <color: COLOR, COLORS> <aColors,...> ] ; [ TEXT [POSITION] <nCaptPos> ] ; [ <lOpaque: BITMAP OPAQUE, OPAQUE> ] ; [ <shape: RECT, ROUND, ROUNDRECT, BITMAP, OFFICE, XP, CRYSTAL, SUNSET> ] ; [ BRUSH <oBrush> ] ; [ MENU [ACTION] <uMenu,...> ] ; И для второго варианта - REDEFINE SBUTTON [<oBtn>] ; [ ID <nId> ] ; [ <caption: PROMPT, CAPTION, TITLE> <cPrompt> ] ; [ <of:OF, WINDOW, DIALOG> <oWnd> ] ; [ <resource: NAME, RESNAME, RESOURCE, RESOURCES> <aResource,...> ] ; [ <file: FILE, FILENAME, DISK> <aFile,...> ] ; [ <action:ACTION, EXEC, ON CLICK> <uAction,...> ] ; [ <help:HELP, HELPID, HELP ID> <nHelpId> ] ; [ MESSAGE <cMsg> ] ; [ WHEN <uWhen> ] ; [ VALID <uValid> ] ; [ <border: BORDER, NOBORDER, NOBOX, LOOK W97, W97, NOBOXTR> ] ; [ TOOLTIP <cToolTip> ] ; [ FONT <oFont> ] ; [ <lCancel: CANCEL> ] ; [ <color: COLOR, COLORS> <aColors,...> ] ; [ TEXT [POSITION] <nCaptPos> ] ; [ <lOpaque: BITMAP OPAQUE, OPAQUE> ] ; SHAPE <cShape> ; [ BRUSH <oBrush> ] ; [ MENU [ACTION] <uMenu,...> ] ; [ <lAdjust: ADJUST > ] ;
| |
|
|
| |
Пост N: 6752
Зарегистрирован: 17.05.05
|
|
Отправлено: 06.03.18 10:54. Заголовок: Andrey пишет: Кнопо..
Andrey пишет: Где то я видел уже эти кнопочки в примерах Минигуи.
| |
|
|
| |
Пост N: 1208
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.03.18 12:04. Заголовок: Dima пишет: Где то ..
Dima пишет: цитата: | Где то я видел уже эти кнопочки в примерах Минигуи. |
| Если не считать чуть скругленные края , то они там везде и всякие и с картинками и с градиентом. Если же вся красота именно в этих уголках - уверен не большая проблема сделать
| |
|
|
| постоянный участник
|
Пост N: 5762
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.03.18 13:06. Заголовок: ММК пишет: А синтак..
ММК пишет: цитата: | А синтаксис практически такой же , как и в минигуи. |
| Приведи пожалуйста пример кнопки Exit.
| |
|
|
| |
Пост N: 42
Зарегистрирован: 22.01.14
|
|
Отправлено: 06.03.18 14:05. Заголовок: Andrey пишет: Приве..
Andrey пишет: цитата: | Приведи пожалуйста пример кнопки Exit. |
| И еще вариант: Похожие кнопочки в FW можно получить и без использования дополнительных библиотек. http://shot.qip.ru/00UXHu-3KzjldnMf/ Синтаксис: #xcommand REDEFINE BTNBMP [<oBtn>] ; [ ID <nId> ] ; [ <bar: OF, BUTTONBAR > <oBar> ] ; [ <resource: NAME, RESNAME, RESOURCE> <cResName1> ; [,<cResName2>[,<cResName3>[,<cResName4>] ] ] ]; [ <file: FILE, FILENAME, DISK> <cBmpFile1> ; [,<cBmpFile2>[,<cBmpFile3>[,<cBmpFile4>] ] ] ] ; [ <action:ACTION,EXEC,ON CLICK> <uAction,...> ] ; [ MESSAGE <cMsg> ] ; [ <adjust: ADJUST > ] ; [ WHEN <uWhen> ] ; [ <lUpdate: UPDATE> ] ; [ TOOLTIP <cToolTip> ] ; [ PROMPT <cPrompt> ] ; [ FONT <oFont> ] ; [ <lNoBorder: NOBORDER> ] ; [ <layout: CENTER, TOP, LEFT, BOTTOM, RIGHT> ] ; [ <l2007: 2007> ] ; [ <lTrans: TRANSPARENT> ] ; [ <lNoRound: NOROUND> ]; [ GRADIENT <bGradColors> ]; [ <lGDIP: GDIP, GDIPLUS> ]; => ; #xcommand @ <nRow>, <nCol> BTNBMP [<oBtn>] ; [ <resource: NAME, RESNAME, RESOURCE> <cResName1> ; [,<cResName2>[,<cResName3>[,<cResName4>] ] ] ] ; [ <file: FILE, FILENAME, DISK, BITMAP> <cBmpFile1> ; [,<cBmpFile2>[,<cBmpFile3>[,<cBmpFile4>] ] ] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ ACTION <uAction,...> ] ; [ <of:OF, WINDOW, DIALOG> <oWnd> ] ; [ MESSAGE <cMsg> ] ; [ WHEN <uWhen> ] ; [ <adjust: ADJUST> ] ; [ <lUpdate: UPDATE> ] ; [ PROMPT <cPrompt> ] ; [ FONT <oFont> ] ; [ TOOLTIP <cToolTip> ] ; [ <lNoBorder: NOBORDER> ] ; [ <lFlat: FLAT> ] ; [ <layout: CENTER, TOP, LEFT, BOTTOM, RIGHT> ] ; [ <l2007: 2007> ] ; [ <lTrans: TRANSPARENT> ] ; [ <lNoRound: NOROUND> ]; [ GRADIENT <bGradColors> ]; [ COLOR <nClrFore> [,<nClrBack>] ] ; [ <pixel: PIXEL> ] ; [ <design: DESIGN> ] ; [ <lGDIP: GDIP, GDIPLUS> ]; => ; @ 50, 45 BTNBMP oBtn[1] PROMPT "Войти" RESOURCE "login" LEFT SIZE 50, 18 PIXEL 2007 NOBORDER OF oDlg ; ACTION ( ..... ) oBtn[1]:bClrGrad = { | lMouseOver | If( ! lMouseOver,; { { 0.50, 11513775, 16777215 }, ; { 0.50, 16777215, 11513775 } }, ; { { 0.50, 16761992, 16777215 }, ; { 0.50, 16777215, 16761992 } } ) } oBtn[1]:cToolTip = { "Подтвердить" + CRLF + "пароль ключа ЭЦП","Логин", 1, CLR_BLACK, 14089979 } oBtn[1]:SetColor( 0, ) @ 50, 105 BTNBMP oBtn[2] PROMPT "Отмена" RESOURCE "Exit" LEFT SIZE 50, 18 PIXEL 2007 NOBORDER OF oDlg; ACTION ( lOk := .F., oDlg:End() ) oBtn[2]:bClrGrad = { | lMouseOver | If( ! lMouseOver, ; { { 0.50, 11513775, 16777215 }, ; { 0.50, 16777215, 11513775 } }, ; { { 0.50, 16761992, 16777215 }, ; { 0.50, 16777215, 16761992 } } ) } oBtn[2]:cToolTip = { "Отмена" ,"Выход", 1, CLR_BLACK, 14089979 } oBtn[2]:SetColor( 0, )
| |
|
|
|
| постоянный участник
|
Пост N: 5763
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.03.18 18:10. Заголовок: Haz пишет: Если же ..
Haz пишет: цитата: | Если же вся красота именно в этих уголках - уверен не большая проблема сделать |
| Да уголки не главное. Главное, как получить сам градиент + смена градиента при смене фокуса и ещё бы добавить смену иконки при смене фокуса. Сейчас делаю примерно так: @ 5, 330 BUTTONEX BUTTON_Exit WIDTH 150 HEIGHT 40 ; CAPTION "Exit" FONTCOLOR WHITE BACKCOLOR RED ; SIZE 16 BOLD NOXPSTYLE HANDCURSOR NOTABSTOP ; TOOLTIP "Выход из программы" ; ON MOUSEHOVER { || This.Backcolor := BLACK, This.Fontcolor := YELLOW } ; ON MOUSELEAVE { || This.Backcolor := RED, This.Fontcolor := BLACK } ; ACTION { || ThisWindow.Release }
| |
|
|
| постоянный участник
|
Пост N: 318
Зарегистрирован: 29.05.10
|
|
Отправлено: 06.03.18 18:20. Заголовок: ZAlex пишет: Похожи..
ZAlex пишет: цитата: | Похожие кнопочки в FW можно получить и без использования дополнительных библиотек. |
| FW для "кнопочек" имеет много возможностей. BUTTON,TBBUTTON,TRACKBAR,BUTTONBMP,BUTTONBAR,METROBUTTON,RBBTN ... Все сразу и не вспомнить, но для Андрея подойдет только TSBUTTON Andrey пишет: цитата: | Приведи пожалуйста пример кнопки Exit. |
| Завтра постараюсь выложить
| |
|
|
| постоянный участник
|
Пост N: 5764
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.03.18 18:56. Заголовок: ММК пишет: Завтра п..
ММК пишет: цитата: | Завтра постараюсь выложить |
| И заодно - METROBUTTON !
| |
|
|
| постоянный участник
|
Пост N: 1774
Зарегистрирован: 17.02.12
|
|
Отправлено: 06.03.18 19:45. Заголовок: Andrey пишет Главное..
Andrey пишет цитата: | Главное, как получить сам градиент + смена градиента при смене фокуса и ещё бы добавить смену иконки при смене фокуса. |
| см. BASIC\ButtonEx\demo4.prg
| |
|
|
| |
Пост N: 1209
Зарегистрирован: 20.02.11
|
|
Отправлено: 06.03.18 19:46. Заголовок: Andrey пишет: Главн..
Andrey пишет: цитата: | Главное, как получить сам градиент + смена градиента при смене фокуса и ещё бы добавить смену иконки при смене фокуса. |
| На счёт поддержки градиента в самой кнопке пока не скажу. Надо посмотреть с компа. А вот обоину подложить на кнопку можно хоть какую., с градиентом или в горошек. И менять эту обоину по фокусу. Fw безусловно более продвинут как платный продукт и мерятся тут кнопочками не в пользу MG, как в прочим и с другими контролами. Не забываем что MG от слова MINI
| |
|
|
| |
Пост N: 6753
Зарегистрирован: 17.05.05
|
|
Отправлено: 06.03.18 20:28. Заголовок: Опа :) C:\MiniGU..
Опа :) C:\MiniGUI\SAMPLES\Advanced\ExpButton\
| |
|
|
| постоянный участник
|
Пост N: 5765
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.03.18 22:22. Заголовок: Dima пишет: Опа :) ..
Dima пишет: цитата: | Опа :) C:\MiniGUI\SAMPLES\Advanced\ExpButton\ |
| Есть такой пример... Забыли про него. Мне тогда ещё очень не понравился синтаксис написания: @ 26,82 BUTTONEX MenuBut2 WIDTH 80 HEIGHT 22 CAPTION 'Menu-2' ; ACTION ShowBtnDropMenu('WinMain', This.Name,HBtn2DropMenu) ; TOOLTIP 'Menu-2' DEFINE CONTEXT MENU CONTROL MenuBut2 FOR i=1 TO 4 cItemName:='MenuBut2_'+Hb_NToS(i) MENUITEM 'MenuBut2_'+Hb_NToS(i); ACTION MsgInfo(This.Name) NAME &cItemName NEXT END MENU HBtn2DropMenu := _HMG_xContextMenuHandle SET CONTEXT MENU CONTROL MenuBut2 OF WinMain OFF WinMain.MenuBut2.Cargo:='1' Интересно, можно ли как то это спрятать внутрь кнопки ? Или сделать типа как FW - [ GRADIENT <bGradColors> ]; ? И хочется более привычного синтаксиса: @ 5, 10 BUTTONEX BUTTON_Color WIDTH 150 HEIGHT 46 ; CAPTION "Color" ICON "iColor32x1" FONTCOLOR BLACK BACKCOLOR ORANGE ; SIZE 16 BOLD NOXPSTYLE HANDCURSOR NOTABSTOP ; ON MOUSEHOVER {|| This.Backcolor := BLACK , This.Fontcolor := YELLOW ,; SetProperty(ThisWindow.Name, This.Name, "ICON", "iColor32x2" ) } ; ON MOUSELEAVE {|| This.Backcolor := ORANGE, This.Fontcolor := BLACK ,; SetProperty(ThisWindow.Name, This.Name, "ICON", "iColor32x1" ) } ; ACTION {|| TableColor(oBrw) } А вот так не компилируется: ON MOUSEHOVER {|| This.Backcolor := BLACK , This.Fontcolor := YELLOW, This.Icon := "iColor32x2" } ; ON MOUSELEAVE {|| This.Backcolor := ORANGE, This.Fontcolor := BLACK , This.Icon := "iColor32x1" } ; Выдаёт ошибку: demo2.prg(99) Error E0030 Syntax error "syntax error at '.'" Haz пишет: цитата: | Fw безусловно более продвинут как платный продукт и мерятся тут кнопочками не в пользу MG, как в прочим и с другими контролами. Не забываем что MG от слова MINI |
| Да это понятно. Просто некоторые решения (как сейчас по кнопке) хочется иметь и в МиниГуи.
| |
|
|
| moderator
|
Пост N: 1249
Зарегистрирован: 11.02.10
|
|
Отправлено: 07.03.18 11:11. Заголовок: Andrey пишет: А вот..
Andrey пишет: цитата: | А вот так не компилируется: ON MOUSEHOVER {|| This.Backcolor := BLACK , This.Fontcolor := YELLOW, This.Icon := "iColor32x2" } ; ON MOUSELEAVE {|| This.Backcolor := ORANGE, This.Fontcolor := BLACK , This.Icon := "iColor32x1" } ; |
| Благодарю за наводку Поправил эту недоработку для новой сборки... Andrey пишет: цитата: | сделать типа как FW - [ GRADIENT <bGradColors> ]; ? |
| Градиентная закраска кнопок в Минигуи доступна с конца 2016 года. Andrey пишет: цитата: | хочется иметь и в МиниГуи |
| Выслал тестовый пример с вышеописанными понравившимися кнопками по почте
| |
|
|
| постоянный участник
|
Пост N: 5766
Зарегистрирован: 12.09.06
|
|
Отправлено: 07.03.18 16:48. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Градиентная закраска кнопок в Минигуи доступна с конца 2016 года. |
| А я это пропустил... Буду теперь знать. Спасибо БОЛЬШОЕ Григорий !
| |
|
Ответов - 25
, стр:
1
2
All
[только новые]
|
|
|