FiveTech Software tech support forums

... de ordenamiento actual (WBrowse.prg) ..... if ! lTree if nRowPos == 0 if ! IsAppThemed() WndBox( hDC, nTop - 1, nLeft - 1, nBottom, nRight ) WndBoxRaised( hDC, nTop, nLeft, nBottom - 1, nRight - 1 ) ---> José Concha, desde aquí mí código <--- if n == nColuAct --> (si es orden natural ...

Antonio

The button with "Label" works .. the small button on the right does not .. might be the FillRect or WndBoxRaised ?

Thanks
Rick Lipkin

... nBtnWidth := 10 endif nButtonRow := nRow nButtonCol := nCol + nWidth - nBtnWidth nWidth -= ( nBtnWidth + 5 ) . . . . if nType > 1 if lSelected WndBoxRaised(hDC, nButtonRow -1 , nButtonCol - 1,; nButtonRow + nHeight, nButtonCol + nBtnWidth + 1 ) if nType == EDIT_LISTBOX .or. nType == EDIT_GET_LISTBOX ...

... SHADED, SHADOW endif if ::lRaised WndRaised( ::hWnd, ::hDC ) // RAISED endif if ::lBox WndBoxIn( ::hDC, 0, 0, ::nBottom-::nTop, ::nRight-::nLeft ) WndBoxRaised( ::hDC, 1, 1, ::nBottom-::nTop-1, ::nRight-::nLeft-1 ) endif ::ReleaseDC() return nil //----------------------------------------------------------------------------// ...

... INIT ( oDlg:aControls[ 3 ]:SetFocus(),; // First TBtnBmp control oDlg:SetMenu( BuildMenu( oDlg, { | d | dDate := d } ) ), .f. ) //; // ON PAINT (WndBoxRaised( hDC, oDlg:nHeight() - 70 -10, if(IsAppThemed(),4,3), oDlg:nHeight() - 54, oDlg:nWidth()-8 ),; // WndBoxRaised( hDC, 20, 4, if(IsAppThemed(),4,3), ...

... nLeft + ::nwidth , ::obrw:nWidth ) if ncol == Len( ::obrw:acols ) nRight = nWidth endif WndBox( hDC, ntop-1 , nLeft - 2, nBottom+1, nRight-1 ) WndBoxRaised( hDC, nTop+1, nLeft-1, nBottom , nRight-1 ) // end add on oFont:Deactivate( hDC ) if !lOwnDC ::oBrw:ReleaseDC() endif return nil METHOD ...

I have modify the method paint to change the msgbar I rem WndBoxIn( hDC, 3, nLeft - 2, ::oMsgBar:nHeight-5, nLeft + ::nWidth - 6 ) and I insert WndBoxRaised( hDC, 0, nLeft - 4, 22, nLeft + ::nWidth -1) Now when I define a msgitem ( txt) it show the txt on white background I insert also before ...

... ::nClrDisabled ),; ::nClrPane, ::oFont:hFont ) * WndBoxIn( hDC, 3, nLeft - 2, ::oMsgBar:nHeight-5, nLeft + ::nWidth - 6 ) SetBkMode( hDC, 1 ) WndBoxRaised( hDC, 0, nLeft - 4, 22, nLeft + ::nWidth -1) ::oMsgBar:ReleaseDC() return nil http://img146.imageshack.us/img146/5645/msgitm2007zn2.th.jpg

... modifica sul vecchio msgitem per non vedere i item incavati per questione di estetica infatti avevo modificato nel metodo paint solo la riga : WndBoxRaised( hDC, 0, nLeft - 4, 22, nLeft + ::nWidth -1) anzichè WndBoxIn( hDC, 3, nLeft - 2, ::oMsgBar:nHeight-5, nLeft + ::nWidth - 6 ) il mio problema ...

... SHADED, SHADOW endif if ::lRaised WndRaised( ::hWnd, ::hDC ) // RAISED endif if ::lBox WndBoxIn( ::hDC, 0, 0, ::nBottom-::nTop, ::nRight-::nLeft ) WndBoxRaised( ::hDC, 1, 1, ::nBottom-::nTop-1, ::nRight-::nLeft-1 ) endif ::ReleaseDC() if ::lTransparent SysRefresh() endif return nil Grato Aoki

Antonio, The 3d shape might be refered to WndBox( hDC, nTop - 1, nLeft - 1, nBottom, nRight ) WndBoxRaised( hDC, nTop, nLeft, nBottom - 1, nRight - 1 ) \source\functions\wndboxes.c There are no the functions in MniGUI. This is important for me, before ,I met some cusomers ...

Dear Antonio, No, but this morning i have correct the error ..... I modify your msgitem and insert WndBoxRaised instead of WndBoxin function..perhaps the command NOINSET not run ok Now run ok !!!!!!!!!!!!!!!!!!!!!!! Can I insert a bitmap on : oMsgbar:dateon() ? Can I fill ...

... de la clase TMsgItem. Quita las tres lineas que pitan el cuadrito y pon esta otra: //WndBoxIn( hDC, 0, nLeft - 9, ::oMsgBar:nHeight, nLeft - 8 ) //WndBoxRaised( hDC, 0, nLeft - 8, ::oMsgBar:nHeight, nLeft + ::nWidth - 5 ) //WndBoxIn( hDC, 0, nLeft - 9, ::oMsgBar:nHeight, nLeft - 8 ) WndBoxIn( hDC, ...

... SHADED, SHADOW endif if ::lRaised WndRaised( ::hWnd, ::hDC ) // RAISED endif if ::lBox WndBoxIn( ::hDC, 0, 0, ::nBottom-::nTop, ::nRight-::nLeft ) WndBoxRaised( ::hDC, 1, 1, ::nBottom-::nTop-1, ::nRight-::nLeft-1 ) endif ::ReleaseDC() return nil