Отправлено: 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.
и т.д. и т.п .

Здоровья всем!!!

 Отправлено: 07.03.18 17:31. Заголовок: Уверен , что Вы Ан..

Уверен , что Вы Андрей знаете Manuel Mercado. Это он написал TsBrows . В то же время ( более 15 лет ) он сделал еще один класс - TsButton
, TSLines TSRadio TSTSay. Есть исходники, примеры. Mercado выложил все , как и для бровса. Думаю , что внедрить в МГ его будет более просто, чем бровс и более интересно ,чем просто "подтягивать" кнопки до такого же уровня.
Хотя возможно и ошибаюсь :)

И примеры кнопок, как обещал ...

Могут быть круглые, овальные прямоугольные, размер любой




@75, 15 SBUTTON oBtn PROMPT "Exit" OF oDlg ;
SIZE 25, 10 PIXEL ROUND ;
COLORS CLR_WHITE, { CLR_BLACK, CLR_HRED, 3 } ;
ACTION oDlg:End()

oBtn:cToolTip := "Boxes are transparent to other controls"

На кнопке может быть градиент ( вертикальный,горизонтальный, смещенный) надписи , картинки. На следующем скрине шесть
кнопок. Печать и 1.2.3.4.5



Это кнопка печати
@ 68, 82 SBUTTON aCtl[ 12 ] PROMPT "OK" OF oDlg ;
RESOURCE "Print" TEXT ON_BOTTOM ROUNDRECT NOBORDER ;
FONT oFont[ 1 ] SIZE 26, 38 PIXEL COLORS CLR_BLACK, {nRGB( 68, 146, 107 ), CLR_WHITE, 3 } ; //nRGB( 105, 139, 34 )
ACTION fPrintBole( aCtl, aGet, nGet, nTarifa, nBoletos, nCarro, cHora )

Кнопка отрабатывает "мышь". Т.е. нет фокуса, есть, нажатие. В соответствии с чем меняется картинка на кнопке. Вот две картинки , когда фокуса нет и когда указатель мыши на кнопке.





@60, 300 SBUTTON oBtn[ 4 ] OF aChild[ 1 ] FONT oFont[ 2 ] ;
SIZE 74, 26 PIXELS ;
RESOURCE "Lamp1", "Lamp2",, "Lamp3", "Shape3" ;
SHAPE ;
PROMPT "Exit" ;
TEXT ON_LEFT ;
ACTION aChild[ 1 ]:End();
COLORS CLR_BLACK ;
TOOLTIP "End Program" ;
MESSAGE 'See new "Shape" feature and 3D text (bas-relief), ' + ;
'default position, specific 3D colors'

// 3D effect (raised) in text with default position, specific colors
oBtn[ 4 ]:SetText( Nil, Nil, Nil, .F., CLR_LIGHT, CLR_SHADOW )

Интересный момент , когда на одной кнопке есть множественный выбор.



Здесь две кнопки. На первой можно выбрать просмотр, сохранение или печать.

@ 5, 30 SBUTTON oBtn[ 1 ] PROMPT aPrompt[ 1 ] PIXEL OF oDlg ;
RESOURCE "VSP" FONT oFont COLOR CLR_BLUE SHAPE ;
ACTION MsgInfo( "Main Action Sample 1" ) ;
TOOLTIP "Test"

oBtn[ 1 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
oBtn[ 1 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
oBtn[ 1 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

Есть возможность создавать анимированные кнопки.
Кнопки "каквофисе" и еще кое что :))

 Отправлено: 07.03.18 17:36. Заголовок: Забыл METROBUTTON ....

Забыл METROBUTTON ...



DEFINE METRO oMetro ;
TITLE "My FWH Metro app" ;
BACKGROUND "..\bitmaps\hires\earth.bmp"

.............

DEFINE METROBUTTON OF oMetro ;
PROMPT "Exit" COLOR CLR_WHITE, RGB( 2, 174, 224 ) ;
IMAGE "..\bitmaps\metro\exit.bmp" ;
ACTION If( MsgYesNo( "Want to exit ?" ), oMetro:End(),)

ACTIVATE METRO oMetro

 Отправлено: 07.03.18 17:41. Заголовок: ММК СПАСИБО ! :sm20..

ММК СПАСИБО !
Для моей картинки "Пост N: 5761" можешь дать синтаксис этих кнопок ?
Просто знать хочу как это выглядит в FW и сравнить с МиниГуи.

 Отправлено: 08.03.18 18:22. Заголовок: Вот что получается д..

Вот что получается для текущей версии МиниГуи:


При наведении мышки на кнопку:

 Отправлено: 17.04.18 11:23. Заголовок: Вот, теперь есть кно..

Вот, теперь есть кнопки как FW. И синтаксис простой.

        aGradFillEx := { { 0.5, CLR_HRED, CLR_WHITE }, { 0.5, CLR_WHITE, CLR_HRED } } 
         aGradOverEx := { { 0.5, CLR_RED, CLR_YELLOW }, { 0.5, CLR_YELLOW, CLR_RED } } 
         @ 468, 240 BUTTONEX BUTTON_Exit WIDTH 190 HEIGHT 46         ; 
            CAPTION "Exit" ICON "iExit32x1" FONTCOLOR BLACK         ; 
            FLAT NOXPSTYLE HANDCURSOR                               ; 
            BACKCOLOR aGradOverEx                                   ; 
            GRADIENTFILL aGradFillEx                                ; 
            ON MOUSEHOVER ( This.Fontcolor := GRAY  , This.Icon := "iExit32x2" , This.GradientFill := aGradFillEx ) ;  
            ON MOUSELEAVE ( This.Fontcolor := BLACK , This.Icon := "iExit32x1" , This.GradientOver := aGradOverEx ) ;  
            ACTION ThisWindow.Release