Xailer & OZ Software

Código: Seleccionar todo

//------------------------------------------------------------------------------
METHOD FormInitialize( oSender ) CLASS TFormExistencias
  ::oFontNegrita:= TFont():Create( "Droid Sans", 10, 0, 700 )
  RETURN Nil

//------------------------------------------------------------------------------
METHOD DetalleSucursales() CLASS TFormExistencias

     ::oMemDSItems:GoTop()
     WITH OBJECT ::oBrwExistencias
          :nMarqueeStyle   := bmHIGHLCELL
          :nColDividerStyle:= blLIGHTGRAY
          nLenTalla:= Len( :aCols )
          FOR nItem:= 1 TO nLenTalla
              IF nItem > 2
                 :aCols[nItem]:cPicture:= "@Z 99,999,999"
                 :aCols[nItem]:nWidth  := 55
                 :aCols[nItem]:nAlignment:= taRIGHTHEADERCENTER
                 :aCols[nItem]:OnDrawCell:= "PintaCelda"
              ENDIF
          NEXT
     END WITH

 RETURN NIL

//------------------------------------------------------------------------------
METHOD PintaCelda( oSender, cText, nClrText, nClrPane, lHighLite, hDC, aRect ) CLASS TFormExistencias

  IF ::oMemDSItems:EMPRESA == " T O T A L"
     SelectObject( hDC, ::oFontNegrita:Handle )
     IF !lHighLite
        nClrPane := clYellow
     ENDIF
  ENDIF

  RETURN NIL