Форум » Для флейма » С Днем Советской Арм.. » Ответить
С Днем Советской Арм..
ММК: С Днем Советской Армии!!! С Праздником МУЖИКИ! 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
Andrey: ММК пишет: С Днем Советской Армии!!! С Праздником МУЖИКИ! Присоединяюсь ! ММК пишет: И видимо обратив внимание на беспокойство Андрея добавил функцию загрузки XML в бровс :)) Да я обратную операцию пытаюсь сделать. Если не сложно, то собери пример демонстрирующий эту функцию. Очень интересно посмотреть и по тестить на это.
gfilatov2002:
Pasha: Поздравляю всех со 100-летием создания Красной Армии, днем Советской Армии, и днем Защитника Отечества !
ММК: 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
Andrey: ММК СПАСИБО !
Andrey: Кнопочки классные ! А можно код привести таких кнопочек ? Интересен синтаксис FW.
ММК: 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 > ] ;
Dima: Andrey пишет: Кнопочки классные ! Где то я видел уже эти кнопочки в примерах Минигуи.
Haz: Dima пишет: Где то я видел уже эти кнопочки в примерах Минигуи. Если не считать чуть скругленные края , то они там везде и всякие и с картинками и с градиентом. Если же вся красота именно в этих уголках - уверен не большая проблема сделать
Andrey: ММК пишет: А синтаксис практически такой же , как и в минигуи. Приведи пожалуйста пример кнопки Exit.
ZAlex: 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, )
Andrey: Haz пишет: Если же вся красота именно в этих уголках - уверен не большая проблема сделать Да уголки не главное. Главное, как получить сам градиент + смена градиента при смене фокуса и ещё бы добавить смену иконки при смене фокуса. Сейчас делаю примерно так: [pre2] @ 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 } [/pre2]
ММК: ZAlex пишет: Похожие кнопочки в FW можно получить и без использования дополнительных библиотек. FW для "кнопочек" имеет много возможностей. BUTTON,TBBUTTON,TRACKBAR,BUTTONBMP,BUTTONBAR,METROBUTTON,RBBTN ... Все сразу и не вспомнить, но для Андрея подойдет только TSBUTTON Andrey пишет: Приведи пожалуйста пример кнопки Exit. Завтра постараюсь выложить
Andrey: ММК пишет: Завтра постараюсь выложить И заодно - METROBUTTON !
SergKis: Andrey пишет Главное, как получить сам градиент + смена градиента при смене фокуса и ещё бы добавить смену иконки при смене фокуса. см. BASIC\ButtonEx\demo4.prg
Haz: Andrey пишет: Главное, как получить сам градиент + смена градиента при смене фокуса и ещё бы добавить смену иконки при смене фокуса. На счёт поддержки градиента в самой кнопке пока не скажу. Надо посмотреть с компа. А вот обоину подложить на кнопку можно хоть какую., с градиентом или в горошек. И менять эту обоину по фокусу. Fw безусловно более продвинут как платный продукт и мерятся тут кнопочками не в пользу MG, как в прочим и с другими контролами. Не забываем что MG от слова MINI
Dima: Опа :) C:\MiniGUI\SAMPLES\Advanced\ExpButton\
Andrey: Dima пишет: Опа :) C:\MiniGUI\SAMPLES\Advanced\ExpButton\ Есть такой пример... Забыли про него. Мне тогда ещё очень не понравился синтаксис написания: [pre2]@ 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'[/pre2] Интересно, можно ли как то это спрятать внутрь кнопки ? Или сделать типа как FW - [ GRADIENT <bGradColors> ]; ? И хочется более привычного синтаксиса: [pre2] @ 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) } [/pre2] А вот так не компилируется:[pre2] ON MOUSEHOVER {|| This.Backcolor := BLACK , This.Fontcolor := YELLOW, This.Icon := "iColor32x2" } ; ON MOUSELEAVE {|| This.Backcolor := ORANGE, This.Fontcolor := BLACK , This.Icon := "iColor32x1" } ; [/pre2] Выдаёт ошибку: demo2.prg(99) Error E0030 Syntax error "syntax error at '.'" Haz пишет: Fw безусловно более продвинут как платный продукт и мерятся тут кнопочками не в пользу MG, как в прочим и с другими контролами. Не забываем что MG от слова MINI Да это понятно. Просто некоторые решения (как сейчас по кнопке) хочется иметь и в МиниГуи.
gfilatov2002: 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 пишет: хочется иметь и в МиниГуи Выслал тестовый пример с вышеописанными понравившимися кнопками по почте
Andrey: gfilatov2002 пишет: Градиентная закраска кнопок в Минигуи доступна с конца 2016 года. А я это пропустил... Буду теперь знать. Спасибо БОЛЬШОЕ Григорий !
полная версия страницы