/* 
  * MINIGUI - Harbour Win32 GUI library Demo 
  * 
 */ 
  
 #include "minigui.ch" 
 #include "tsbrowse.ch" 
  
 #define AMARELOCLARO      {255,252,200} 
 #define AZULCLARO	        {202,225,230} 
 #define CINZA05		     {239,238,238} 
 #define CINZA10		     {222,222,221} 
 #define CINZA20		     {194,193,193} 
 #define CINZA80	        {96,93,92} 
 #define VERDE             {0,146,63} 
 #define VERDECLARO        {192,235,210} 
 #define AZULESCURO        {0,0,128} 
 #define VERDEESCURO       {33,68,70} 
 #define VERMELHOCLARO     {255,150,150} 
  
 #define RGB_PRETO         RGB( 0,0,0 ) 
 #define RGB_BRANCO        RGB( 255,255,255 ) 
 #define RGB_AMARELOCLARO  RGB( 255,252,200 ) 
 #define RGB_AZULCLARO	  RGB( 202,225,230 ) 
 #define RGB_CINZA05	     RGB( 239,238,238 ) 
 #define RGB_CINZA10	     RGB( 222,222,221 ) 
 #define RGB_CINZA20	     RGB( 194,193,193 ) 
 #define RGB_CINZA80	     RGB( 96,93,92 ) 
 #define RGB_VERDE         RGB( 0,146,63 ) 
 #define RGB_AZULESCURO    RGB( 0,0,128 ) 
 #define RGB_AZUL    	     RGB( 0,0,255 ) 
 #define RGB_VERMELHO  	  RGB( 255,0,0 ) 
 #define RGB_AMARELO  	  RGB( 255,255,0 ) 
 #define RGB_CELCLARA  	  RGB( 210, 215, 210 ) 
 #define RGB_CELESCURA  	  RGB( 240, 240, 240 ) 
 #define RGB_COLCLARA  	  RGB( 182, 194, 222 ) 
 #define RGB_COLESCURA  	  RGB( 170, 185, 220 ) 
 #define RGB_ROSACLARO  	  RGB( 255, 244, 241 ) 
 //------------------------------------------------ 
 PROCEDURE Main 
 //------------------------------------------------ 
 Public oGrid_Fases,; 
        aFases             := { { "","",Space(15),CtoD( "  /  /    " ),CtoD( "  /  /    " ),.T. } },; 
        bColor,aBmp[3],nSave 
  
       aBmp[1] := LoadImage ("images\Ponteiro.bmp") 
       aBmp[2] := LoadImage ("images\Level1.bmp") 
       aBmp[3] := LoadImage ("images\Level2.bmp") 
  
 DEFINE WINDOW win_1 AT 0,0 WIDTH 500 HEIGHT 500 ; 
    MAIN TITLE "Teste NoHorizontal" NOMAXIMIZE NOSIZE 
  
       GerarDados() 
  
       bColor  := { || If( oGrid_Fases:nAt % 2 == 0, RGB_CELCLARA, RGB_CELESCURA ) } 
  
       DEFINE TBROWSE oGrid_Fases AT 20,10; 
          WIDTH 430 HEIGHT 395 CELLED; 
          Font "Arial" Size 9; 
          ToolTip "Identificaзгo das fases, conforme quantidade de fases."; 
          Colors  {RGB_AZULESCURO, bColor}; 
          BackColor CINZA10 
  
                 oGrid_Fases:SetArray( aFases ) 
  
                 ADD COLUMN TO TBROWSE oGrid_Fases DATA ARRAY ELEMENT 1; 
                     TITLE "" SIZE 20 
                 ADD COLUMN TO TBROWSE oGrid_Fases DATA ARRAY ELEMENT 2; 
                     TITLE "Seq" SIZE 30 
                 ADD COLUMN TO TBROWSE oGrid_Fases DATA ARRAY ELEMENT 3; 
                     TITLE "Descriзгo da Fase" SIZE 140 
                 ADD COLUMN TO TBROWSE oGrid_Fases DATA ARRAY ELEMENT 4; 
                     TITLE "Data Inнcio" SIZE 90 
                 ADD COLUMN TO TBROWSE oGrid_Fases DATA ARRAY ELEMENT 5; 
                     TITLE "Data Fim" SIZE 90 
                 ADD COLUMN TO TBROWSE oGrid_Fases DATA ARRAY ELEMENT 6; 
                     TITLE "Peso" SIZE 40 CHECKBOX EDITABLE          // this column is editable 
  
                 oGrid_Fases:lNoHScroll := .T. 
                 oGrid_Fases:lNoLiteBar := .F. 
  
                 oGrid_Fases:Look3D( .T., 1, 1 ) 
                 oGrid_Fases:Look3D( .T., 2, 1 ) 
  
                 oGrid_Fases:Look3D( .T., Nil, 2 ) 
                 oGrid_Fases:Look3D( .T., 1, 1 ) 
  
                 oGrid_Fases:aColumns[3]:cPicture  := "@!" 
  
                 oGrid_Fases:nLineStyle  :=  LINES_VERT 
                 oGrid_Fases:nFreeze     := 2 
                 oGrid_Fases:lLockFreeze := .T. 
                 oGrid_Fases:nHeightCell += 1 
                 oGrid_Fases:nHeightHead += 3 
  
                 oGrid_Fases:lNoChangeOrd:= .T. && Desativa a Classificaзгo pelo Cabeзalho 
                 oGrid_Fases:lNoPopup    := .T. && Desativa Menu pelo Botгo Direito no Cabeзalho 
                 oGrid_Fases:lPickerMode := .F. && Desativa o modo de preenchimento no campo data 
  
                 oGrid_Fases:aColumns[6]:nEditMove := DT_MOVE_DOWN 
                 oGrid_Fases:aColumns[6]:aCheck := { aBmp[2], aBmp[3] } 
  
                 oGrid_Fases:GetColumn(6):bLClicked := {|| _Pushkey(VK_SPACE) } 
                 oGrid_Fases:GetColumn(6):bPostEdit := {|uVl,oBr,lAp| mPostEdit(uVl, oBr, lAp) }  
  
                 oGrid_Fases:SetColor( { 1, 2, 3, 4, 7, 8, 11, 12, 13, 14, 15 }, ; 
                                        { RGB_PRETO, bColor, RGB_AZULESCURO, { RGB_COLESCURA,RGB_COLCLARA }, RGB_VERMELHO, RGB_AMARELO, RGB_PRETO, bColor,RGB_AZULESCURO, { RGB_COLESCURA,RGB_COLCLARA }, RGB_AZULESCURO } ) 
  
                 oGrid_Fases:SetColor( { 2 }, { { RGB_COLESCURA,RGB_COLCLARA } },1 ) 
                 oGrid_Fases:SetColor( { 2 }, { { RGB_COLESCURA,RGB_COLCLARA } },2 ) 
  
                 oGrid_Fases:hBmpCursor := aBmp[1] 
  
                 oGrid_Fases:SetAlign( 1, 1, DT_CENTER )  // ( nCol, nLevel, nAlign ) 
                 oGrid_Fases:SetAlign( 2, 1, DT_CENTER )  // ( nCol, nLevel, nAlign ) 
                 oGrid_Fases:SetAlign( 3, 1, DT_CENTER )  // ( nCol, nLevel, nAlign ) 
                 oGrid_Fases:SetAlign( 4, 1, DT_CENTER )  // ( nCol, nLevel, nAlign ) 
                 oGrid_Fases:SetAlign( 5, 1, DT_CENTER )  // ( nCol, nLevel, nAlign ) 
                 oGrid_Fases:SetAlign( 6, 1, DT_RIGHT )  // ( nCol, nLevel, nAlign ) 
  
                 oGrid_Fases:HiliteCell( 3 ) && Posiciona na coluna n 
  
          END TBROWSE 
  
 END WINDOW 
 CENTER WINDOW win_1 
 ACTIVATE WINDOW win_1 
  
 RETURN 
  
  
 Function GerarDados() 
       aFases := {} 
       For nI := 1 To 50 
           cDescFase := AllTrim( Str( nI ) )+"є BIMESTRE"+Space(50) 
           cDescFase := SubStr( cDescFase,1,15 ) 
           aAdd( aFases,{ "",StrZero( nI,2 ),cDescFase,CtoD( "  /  /    " ),CtoD( "  /  /    " ),.T. } ) 
       Next nI 
 Return Nil 
  
  
 STATIC FUNCTION mPostEdit( uVal, oBrw, lApp )  
  
    LOCAL cForm   := oBrw:cParentWnd  
    LOCAL cBrw    := oBrw:cControlName  
    LOCAL nCell   := oBrw:nCell  
    LOCAL oCol    := oBrw:aColumns[ nCell ]  
    LOCAL lRet    := .T. 
    
    If nCell == 6 
      SetProperty(cForm, "Title", cvaltochar(oBrw:nAt)+'->'+cvaltochar(uVal))  
    EndIf  
    
 RETURN lRet