FiveTech Software tech support forums

... == nil @ 0,0 BTNBMP ::oBtnElip OF ::oBrw NOBORDER SIZE 0,0 CENTER else @ 0,0 BTNBMP ::oBtnElip OF ::oBrw NOBORDER SIZE 0,0 CENTER FLAT ::oBtnElip:bClrGrad := nil endif ::oBtnElip:lGDIP := ::oBrw:lGDIP ::oBtnElip:cToolTip := IfNil( ::cBtnToolTip, "", ::cBtnToolTip ) <---- :D Sr. Antonio, ...

Nages,
Run ok . it was that I mean, you're Fantastic . thank you

why there is 3 times oBtn:bClrGrad ?

... ; FILENAME c_Pfad1 + "Excel1.Bmp" ; ACTION ( STEUER_B(oBtn2), oBtn2:Disable() , DBSELECTAREA(cMUmsName) ) ; FONT oFontSys ; LEFT oBtn2:bClrGrad := { | lMouseOver | If( ! lMouseOver,; { { aVal[112], aVal[110], aVal[111] }, ; { aVal[112], aVal[111], aVal[110] } }, ; { { aVal[116], aVal[114], ...

... is used for line color in the header, other wise text color is used for lines. When oBrw:l2007 is true, 2nd and 3rd elements are ignored and oBrw:bClrGrad is used for header back.

... .. here is an example that is a MdiChild\xBrowse that has has a few neat ideas .. notice how you can control the xBrowse frame colors with oLbx:bClrGrad .. Basically, define RECORDSET oRs in your xBrowse .. and use all the usual xBrowse methods .. Rick Lipkin If cMode = "V"   cTITLE ...

... TEXTFONT oTileFont oSBtn[1]:nClrCaption := aVal[62] oSBtn[1]:bMMoved = { | nRow, nCol, nFlags | SHOW_FRAME( oSBtn, 1, nOld ), nOld := 1 } oSBtn[1]:bClrGrad := { |lInvert| If( lInvert, 0x80FFA54A, nARGB( 54, 0, 192, 0 ) ) } ........ ........ oMetro:Show() oMetro:bPainted := {|| oMetro:SayText( cText, ...

... oDlg1 TITLE "Test folder from CODE" SIZE 650, 550 PIXEL OF oWnd BRUSH oBrush0 DEFINE BUTTONBAR oBar SIZE 60, 30 OF oDlg1 2015 oBar:bClrGrad := aPubGrad DEFINE BUTTON OF oBar PROMPT "Paint" GROUP RESOURCE "COLORS" FONT oFont1 // bitmaps from DLL DEFINE BUTTON ...

Using a button bar, defined as: REDEFINE BUTTONBAR oBarCL ID 101 SIZE 60,60 OF oFldCSE:aDialogs[1] 2015 oBarCL:bClrGrad := aPubGrad And a resource: CONTROL "", 101, "TBar", 0|WS_CHILD|WS_VISIBLE, 0,0, 645, 30 In a dialog, 650 wide There are two problems: 1) ...

Rick, http://www.service-fivewin.de/IMAGES/Header2.jpg a setting for header AND footer oBrw1:l2007 := .T. 1 // gradient oBrw1:bClrGrad := { | lInvert | If( ! lInvert, ; { { 0.50, 14342874, 16777215 }, ; { 0.50, 16777215, 14342874 } }, ; { { 0.50, 14342874, 16777215 }, ; { 0.50, ...

Rick, xBrowse Header and Footer with gradient light grey oBrw1:bClrGrad := { | lInvert | If( ! lInvert, ; { { 0.50, 14342874, 16777215 }, ; { 0.50, 16777215, 14342874 } }, ; { { 0.50, 14342874, 16777215 }, ; { 0.50, 16777215, 14342874 } } ) } // default ...

...   FILE "..\bitmaps\alphabmp\ichat.bmp" ;      SIZE 300,100 PIXEL OF oDlg LEFT 2007 ;      FONT oFont COLOR CLR_WHITE,CLR_BLACK     oBtn:bClrGrad := { |lInvert| If( lInvert, 0x60FFA54A, nARGB( 64, 0, 192, 0 ) ) }   @ 220,060 BTNBMP oBtn PROMPT "Alpha Color ...

... as last parameter to force transparent painting of non-alpha image also. * Enhancement: BtnBmp with translucent background. Usage: Specify bClrGrad with single Alpha Colors. Eg: oBtn:bClrGrad := { |lInvert| If( lInvert, 0x60FFA54A, nARGB( 64, 0, 192, 0 ) ) } Sample: \fwh\samples\btntrns.prg

... + "Excel1.Bmp" ; ACTION ( oBrw1:ToExcel(), ; SetFocusAfter(FindWindow( "XLMAIN", 0 ) ) ) ; FONT oFontSys ; LEFT oBBtn[11]:bClrGrad := { | lMouseOver | If( ! lMouseOver,; { { aVal[112], aVal[110], aVal[111] }, ; { aVal[112], aVal[111], aVal[110] } }, ; { { aVal[116], aVal[114], ...

... to set Standard style oBrw:lFlatStyle := .t. continues to set flat style. Programmer can continue to set his own style by assigning values to bClrGrad, bClrHeader, bClrFooter, nRecSelColor. (6) New: Gets in Header. Some users have been asking for provision of Gets in the Header area, to enable ...

... ".\bitmaps\Open.bmp" MESSAGE "Open a previous project" ; ACTION MsgStop( "Open Project", "Stop" ) oBtn[1]:bClrGrad := { | lMouseOver | If( ! lMouseOver,; { { 0.5, 16764573, 16756833 }, ; { 0.5, 16756833, 16764573 } }, ; { { 0.5, 11524015, 13625295 }, ; { ...