* ----------------------------------------------------------------------------------- * 
 STATIC FUNCTION wSelectEvent( cFile, oBuf ) 
 * ----------------------------------------------------------------------------------- * 
 	LOCAL cForm := 'wListSel', i, t, o := Sys.Cargo, ot := o:oBaseText 
 	LOCAL cBrw  := "oListSel", aHead, aSize, aPict, aAlign, aField, aFoot, aName 
 	LOCAL cTitl := " ", cTag 
 	LOCAL oBrw, aFont, oCol, nY, nX, nW, nH, nI, nN := 2 
 	LOCAL cAlias := "SELGGMM" 
 	LOCAL nArea  := Select() 
 	LOCAL cAlsO  := "OBJ" 
 	LOCAL cObj	:= o:HBK+"obj" 
 	LOCAL cPeri  := oBuf:cPer 
 	LOCAL cCapt  := upper(ot:cSele) + CRLF + ot:cPer+": " + cPeri 
 	LOCAL lExclude := oBuf:lExclude 
 	LOCAL lRowId := Empty(oBuf:lRowID) 
 	LOCAL oColor := oKeyData() 
 	LOCAL nMaxObj, cMaxEvent, cMaxName, cMaxAdres, cMaxOwner, cTmp, nTmp, cVal 
  
 	IF !Empty(oBuf:cTim) ; cCapt += space(7) + ot:cTime + ": " + oBuf:cTim 
 	ENDIF 
  
 	IF ! m_DbUse(cObj, cAlsO, .T.) 
 		MsgStop("File not used !"+CRLF+cObj+".dbf", "ERROR") 
 		RETURN Nil 
 	ENDIF 
 	OrdSetFocus("KOD") 
 	GO TOP 
  
 	IF ! mDbUse(cFile, cAlias, .T., "DBFCDX") 
 		(cAlsO)->( dbCloseArea() ) 
 		//MsgStop("File not used !"+CRLF+cFile+".dbf", "ERROR") 
 		RETURN Nil 
 	ENDIF 
 	INDEX ON OBJECTNUM+R_DTM TAG KOD  FOR  Empty( R_EXC ) 
 	INDEX ON OBJECTNUM+R_DTM TAG EXCL FOR !Empty( R_EXC ) 
 	IF lExclude 
 		INDEX ON OBJECTNUM		 TAG OBJ  FOR !Empty( R_EXC ) UNIQUE 
 	ELSE 
 		INDEX ON OBJECTNUM		 TAG OBJ  FOR  Empty( R_EXC ) UNIQUE 
 	ENDIF 
 	OrdSetFocus("OBJ") 
 	GO TOP 
 	nMaxObj := OrdKeyCount() ; i := 0 
 	DO WHILE !EOF() ; oColor:Set( OBJECTNUM, int(i % 2) ) ; i++ ;  SKIP 
 	ENDDO 
 	GO TOP 
 	cTag := iif( lExclude, "EXCL", "KOD" ) // 
 	OrdSetFocus(cTag) 
 	SET RELATION TO OBJECTNUM INTO &cAlsO 
 	GO TOP 
  
 	// посчитаем строки с max длиной 
 	cMaxEvent := cMaxName := cMaxAdres := cMaxOwner := "" 
 	/* 
 	DO WHILE !EOF() 
 		cTmp := Trim(EVENT) 
 		IF Len(cTmp) > Len(cMaxEvent)  ; cMaxEvent := cTmp 
 		ENDIF 
 		cTmp := Trim( (cAlsO)->NAME ) 
 		IF Len(cTmp) > Len(cMaxName)	; cMaxName  := cTmp 
 		ENDIF 
 		cTmp := Trim( (cAlsO)->OWNER ) 
 		IF Len(cTmp) > Len(cMaxOwner)  ; cMaxOwner := cTmp 
 		ENDIF 
 		cTmp := Trim( (cAlsO)->ADDRESS ) 
 		IF Len(cTmp) > Len(cMaxAdres)  ; cMaxAdres := cTmp 
 		ENDIF 
 		SKIP 
 	ENDDO 
 	GO TOP 
 	*/ 
  
 	aFont := {"Normal", "FontBold", "FontBold", "FontBold"} 
 	aFoot := .T. 
  
 	DEFINE WINDOW &cForm					; 
 		TITLE					 cTitl	 ; 
 		MDICHILD  FOCUSED  NOMINIMIZE ; 
 		ON INIT					NIL		 ; 
 		ON RELEASE			 ( (cAlias)->( dbCloseArea() ), ; 
 									  (cAlsO)->( dbCloseArea()  ), ; 
 									  dbSelectArea(nArea), ; 
 									  oMain:Enabled("BtnExcel", .F.), DoEvents() ) 
 		nY := nX := 0 
 		nW := This.ClientWidth 
 		nH := This.ClientHeight 
  
 		(This.Object):Cargo:oBuf := oBuf 
 		(This.Object):Cargo:oBuf:cAlsObj := cAlsO 
  
 		DEFINE TBROWSE &cBrw OBJ oBrw AT nY,nX WIDTH nW HEIGHT nH CELL ; 
 				 HEADERS		aHead												  ; 
 				 COLSIZES	  aSize												  ; 
 				 PICTURE		aPict												  ; 
 				 ALIAS		  cAlias												 ; 
 				 ENUMERATOR	NIL													 ; 
 				 JUSTIFY		aAlign												 ; 
 				 TRANSPARENT  NIL													 ; 
 				 SELECTOR	  NIL													 ; 
 				 COLUMNS		aField												 ; 
 				 COLNAMES	  aName												  ; 
 				 FOOTERS		aFoot												  ; 
 				 COLNUMBER	 { 1, 90 }											 ; 
 				 COLEDIT		NIL													 ; 
 				 WHEN			NIL													 ; 
 				 VALUE		  NIL													 ; 
 				 FONT			aFont												  ; 
 				 TOOLTIP		NIL													 ; 
 				 BACKCOLOR	 NIL													 ; 
 				 FONTCOLOR	 NIL													 ; 
 				 COLORS		 NIL													 ; 
 				 ON GOTFOCUS  NIL													 ; 
 				 ON CHANGE	 NIL													 ; 
 				 ON LOSTFOCUS NIL													 ; 
 				 ON DBLCLICK  NIL													 ; 
 				 STYLE		  NIL													 ; 
 				 ON HEADCLICK NIL													 ; 
 				 FIXED		  COLSEMPTY  GOTFOCUSSELECT  LOCK				; 
 				 BRUSH		  NIL													 ; 
 				 LOADFIELDS															 ; 
 				 ON INIT	 {|ob| ob:lNoHScroll := .F. } 
  
 			:DelColumn("DATETIME" ) ; :DelColumn("COLOR") ; :DelColumn("R_OWN") ; :DelColumn("R_EXC") 
 			:MoveColumn( :nColumn("R_DTM"), 3 ) 
 			:MoveColumn( :nColumn("EVENT"), 4 ) 
  
 			IF lRowId ; :DelColumn("ROWID") 
 			ENDIF 
  
 			:Cargo:nClr6_1  := -CLR_HRED			  // #define CLR_FOCUSB 6 1 // focused back 
 			:Cargo:nClr6_2  := -CLR_HBLUE			 // #define CLR_FOCUSB  6 2 // focused back 
 			:Cargo:nClr12_1 := -CLR_HBLUE			 // #define CLR_SELEB	12 1 // focused inactive (or selected) back 
 			:Cargo:nClr12_2 := -RGB(128,225,225)	// #define CLR_SELEB 12 2 // focused inactive (or selected) back 
  
 			aField := {"OWNER"} //"NAME", "ADDRESS", , "PHONE", "PWD", "GRP1ROWID", "GRP2ROWID", "GRP3ROWID", "STATUS"} 
 			aName  := {"OWNER"} //"NAME", "ADDRESS", , "PHONE", "PWD", "GRP1"	  , "GRP2"	  , "GRP3"	  , "STATUS"} 
 			aHead  := {"OWNER"} //"NAME", "ADDRESS", , "PHONE", "PWD", "GRP1"	  , "GRP2"	  , "GRP3"	  , "STATUS"} 
  
 			FOR nI := 1 TO Len(aField) 
 				 ADD COLUMN TO oBrw DATA FieldWBlock(aField[ nI ], select(cAlsO))  ; 
 					  HEADER aHead[ nI ] FOOTER "" FIXED NAME &(aName[ nI ]) 
 			NEXT 
  
 			:SetColor( { 6}, { {|c,n,b| c := b:Cargo, iif( b:nCell == n, c:nClr6_1 , c:nClr6_2  ) } } )  // 6 , фона курсора 
 			:SetColor( {11}, { GetSysColor( COLOR_WINDOWTEXT ) } )													// 11, текста неактивного курсора 
 			:SetColor( {12}, { {|c,n,b| c := b:Cargo, iif( b:nCell == n, c:nClr12_1, c:nClr12_2 ) } } )  // 12, фона неактивного курсора 
  
 			oMain:Cargo:oBrw  := oBrw 
 			This.Cargo:oBrw	:= oBrw 
 			This.Cargo:aOrder := {} 
  
 			:aBitMaps := { LoadImage("USS_32") } 
  
 			oCol := :GetColumn("ORDKEYNO") ; oCol:cPicture := "999 999 999" 
 			oCol:cFooting := {|nc,ob| nc := (ob:cAlias)->(OrdKeyCount()), iif( Empty(nc), '', Transform(nc, "999 999 999") ) } 
 														oCol:bDecode  := {|cn| Val(cn) } 
 			oCol := :GetColumn("R_DTM")	 ; oCol:nAlign	:= DT_CENTER 
 														oCol:cPicture := "@R 9999-99-99 99:99:99" 
 														oCol:nWidth	:= oCol:ToWidth(subs(oCol:cPicture, 2)) 
 														oCol:bDecode  := {|cd| Gmt2Utc(cd, .F., .T.) } 
 														oCol:cHeading := StrTran(ot:cDtms, "\", CRLF) 
 			oCol := :GetColumn("EVENT")	 ; oCol:cHeading := ot:cEvnt 
 														oCol:nWidth	:= oCol:ToWidth(45) 
 														//nI := int( oCol:ToWidth(cMaxEvent) / 2 ) + 20 
 														//IF nI < oCol:nWidth ; oCol:nWidth := nI 
 														//ENDIF 
 			oCol := :GetColumn("OBJECTNUM"); oCol:cHeading := ot:cObj 
 														oCol:nFAlign  := DT_CENTER 
 														oCol:cFooting := hb_ntos(nMaxObj) 
 														oCol:oCargo:nMaxObj := nMaxObj 
 														oCol:oCargo:oColor  := oColor 
 														oCol:oCargo:lColor  := nMaxObj > 1 
 														oCol:oCargo:aColor  := { GetSysColor( COLOR_BTNFACE ) } // { CLR_HGRAY } 
 														oCol:bDrawCell := {|obrw,ocel,ocol| 
 															 Local o := ocol:oCargo, nClr, nTo, cKod, nElm 
 															 IF o:lColor 
 																 nClr := ocel:nClrBack 
 																 nTo  := ocel:nClrTo 
 																 cKod := ocel:uValue 
 																 nElm := o:oColor:Get(cKod, 0) 
 																 ocel:nClrBack := iif( nElm > 0, o:aColor[ nElm ], nClr ) 
 																 ocel:nClrTo	:= iif( nElm > 0, o:aColor[ nElm ], nTo  ) 
 															 ENDIF 
 															 Return Nil 
 															 } 
  
 			oCol := :GetColumn("OBJECTNAM"); oCol:nWidth	:= oCol:ToWidth(40) 
 														oCol:cHeading := ot:cName 
 														//nI := int( oCol:ToWidth(cMaxName ) / 2 ) + 20 
 														//IF nI < oCol:nWidth ; oCol:nWidth := nI 
 														//ENDIF 
 			oCol := :GetColumn("OBJECTADR"); oCol:nWidth	:= oCol:ToWidth(40) 
 														oCol:cHeading := ot:cAddr 
 														//nI := int( oCol:ToWidth(cMaxAdres) / 2 ) + 20 
 														//IF nI < oCol:nWidth ; oCol:nWidth := nI 
 														//ENDIF 
  
 			oCol := :GetColumn("OWNER")	 ; oCol:nWidth	:= oCol:ToWidth(35) 
 														oCol:cHeading := ot:cCust 
 														//nI := int( oCol:ToWidth(cMaxOwner) / 2 ) + 20 
 														//IF nI < oCol:nWidth ; oCol:nWidth := nI 
 														//ENDIF 
 			nTmp := Max( :nHeightHead, 32 ) 
 			ADD SUPER HEADER TO oBrw FROM 1 TO :nColCount() TITLE cCapt HEIGHT nTmp COLOR CLR_BLUE FONT "FontBold" 
 			:aSuperHead[1][8] := :aBitMaps[1]			//BITMAP "USS_24" 
  
 			//ADD SUPER HEADER TO oBrw FROM 1 TO	  2		  TITLE cPeri HEIGHT :nHeightHead COLOR CLR_BLUE FONT "FontBold" 
 			//ADD SUPER HEADER TO oBrw FROM 3 TO :nColCount() TITLE cCapt HEIGHT :nHeightHead COLOR CLR_BLUE FONT "FontBold" 
  
 			:nHeightCell += 2 ; :nFreeze := 2 + iif( lRowId, 0, 1 ) ; :nCell := :nFreeze + 1 
  
 		END TBROWSE ON END {|ob| ob:SetNoHoles(), ob:SetFocus(), ob:Refresh() } 
  
 		ON KEY F1	  ACTION NIL 
 		ON KEY ESCAPE ACTION ThisWindow.Release 
  
 		oMain:Cargo:cFocused := This.Name 
 		oMain:Cargo:oFocused := This.Object 
  
 		oMain:Enabled("BtnExcel", .T.) 
  
 		(This.Object):Event(  4, {|ow,ky,nMnu| 
 											LOCAL oBrw := ow:Cargo:oBrw 
 											LOCAL cBtn := "BtnExcel" 
 											LOCAL oCol, cFoot 
 											oMain:Enabled(cBtn, .F.) ; DO EVENTS 
 											oMain:StatusBar:Say(ot:cWait, 1) 
 											oBrw:Enabled(.F.) ; DO EVENTS 
 											IF	  nMnu == 1 
 												ToExcel_1(oBrw) 
 											ELSEIF nMnu == 2 
 												oCol  := oBrw:GetColumn("OBJECTNUM") 
 												cFoot := oCol:cFooting 
 												oCol:cFooting := " " 
 												ToExcel_2(oBrw) 
 												oCol:cFooting := cFoot 
 											ELSEIF nMnu == 3 
 												ToExcel_3(oBrw) 
 											ENDIF 
 											oMain:Enabled(cBtn, .T.) ; DO EVENTS 
 											oMain:StatusBar:Say("", 1) 
 											oBrw:Enabled(.T.) ; DO EVENTS 
 											Return Nil 
 										 } ) 
  
 	END WINDOW 
  
 RETURN Nil 
 цветом выделены строки для работы с сервером