bb.donnay-software.com

Code: Select all

   aPres := ;
         { { XBP_PP_COL_HA_FGCLR, GRA_CLR_WHITE },            /* Header FG Color  */  ;
			  { XBP_PP_COL_HA_BGCLR, GRA_CLR_DARKGRAY },         /* Header BG Color  */  ;
		     { XBP_PP_COL_DA_ROWHEIGHT, 60 }, ;  // rows are 50 pixels high
           { XBP_PP_COL_DA_CELLHEIGHT, 60 } ,;
           { XBP_PP_COL_DA_HILITE_BGCLR, GRA_CLR_PALEGRAY },;   // Hilite BG color
           { XBP_PP_COL_DA_CELLFRAMELAYOUT, XBPFRAME_BOX } ,;
           { XBP_PP_COL_DA_FRAMELAYOUT,     XBPFRAME_NONE} ,;
           { XBP_PP_COL_DA_ROWSEPARATOR, XBPCOL_SEP_LINE },  /* Row Sep  */     ;
           { XBP_PP_COL_DA_COLSEPARATOR, XBPCOL_SEP_LINE } },  /* Col Sep  */  

Code: Select all

 
@ 0.9,1 DCBROWSE oBrowImenik ALIAS 'IMENIK' SIZE 121,24 PRESENTATION aPres  PARENT oTabPage2 NOSOFTTRACK FIT  ;
                  ITEMMARKED ({||Dc_GetRefresh(oStaticoP1), DC_GetRefresh(oStaticoT1), ;
                  if(partnerjiImenik,(PartMati->(dbseek(Imenik->partner)),oBrowPartnerji:refreshAll()),)     }) ;
				      EVAL {|o|oBrowImenik:ItemRbDown := { |x,y,z| oMenuImenik:PopUp ( z, x, 2 ,  XBPMENU_PU_DEFAULT + XBPMENU_PU_MOUSE_RBDOWN  ) },oBrowImenik:lOwnerDraw := .t.,oBrowImenik:InvalidateRect()  } ;
                  SUBCLASS 'DC_XbpOwnerDrawBrowseGeneric()' USEVISUALSTYLE NOHSCROLL ;
      PREEVAL {|o|o:stdFontCompoundName := '10.Tahoma', ;
                  o:boldFontCompoundName := '10.Tahoma '+FONTBOLD, ;
                  o:boldItalicFontCompoundName := '12.Tahoma '+FONTBOLD+' '+FONTITALIC}

Code: Select all

DCBROWSECOL DATA {||CellArray(3)} ;
                    HEADER 'Name;Address'  WIDTH 20 PARENT oBrowImenik ;
                    COLOR {||{IF(imenik->oznaka[nGroupO]='*',GraMakeRGBColor( { 253, 120,41 } ),GRA_CLR_DARKGREEN),oBrowImenik:rowColor()[2]}} ;
                    OWNERDRAW

Code: Select all

ELSEIF nCol == 3
  @ 5,1 DCADDCELLITEM cpy(imenik->oseba) FONT'10.Tahoma Bold' SELFONT '12.Tahoma Bold Italic'  TO aCell
  @ 18,1 DCADDCELLITEM imenik->telefon                                                         TO aCell
  @ 31,1 DCADDCELLITEM imenik->fax                                                             TO aCell
  @ 44,1 DCADDCELLITEM imenik->email3                                                          TO aCell