Форум » Для флейма » С Днем Советской Арм.. » Ответить
С Днем Советской Арм..
ММК: С Днем Советской Армии!!! С Праздником МУЖИКИ! 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
ММК: Уверен , что Вы Андрей знаете 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 ] ) Есть возможность создавать анимированные кнопки. Кнопки "каквофисе" и еще кое что :))
ММК: Забыл 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
Andrey: ММК СПАСИБО ! Для моей картинки "Пост N: 5761" можешь дать синтаксис этих кнопок ? Просто знать хочу как это выглядит в FW и сравнить с МиниГуи.
Andrey: Вот что получается для текущей версии МиниГуи: При наведении мышки на кнопку:
Andrey: Вот, теперь есть кнопки как FW. И синтаксис простой. [pre2] 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[/pre2]
полная версия страницы