#include 'hbgtinfo.ch'

ANNOUNCE HB_GTSYS
REQUEST  HB_GT_WVT_DEFAULT

#define COLOR_BLACK      "N"
#define COLOR_BLUE       "B"
#define COLOR_GREEN      "G"
#define COLOR_CYAN       "BG"
#define COLOR_RED        "R"
#define COLOR_MAGENTA    "RB"
#define COLOR_BROWN      "GR"
#define COLOR_WHITE      "W"
#define COLOR_GRAY       "N+"
#define COLOR_HIBLUE     "B+"
#define COLOR_HIGREEN    "G+"
#define COLOR_HICYAN     "BG+"
#define COLOR_HIRED      "R+"
#define COLOR_HIMAGENTA  "RB+"
#define COLOR_YELLOW     "GR+"
#define COLOR_HIWHITE    "W+"

LOCAL aList := { COLOR_BLACK, COLOR_BLUE, COLOR_GREEN, COLOR_CYAN, ;
      COLOR_RED, COLOR_MAGENTA, COLOR_BROWN, COLOR_WHITE, COLOR_GRAY, COLOR_HIBLUE, ;
      COLOR_HIGREEN, COLOR_HICYAN, COLOR_HIRED, COLOR_HIMAGENTA, COLOR_YELLOW, COLOR_HIWHITE }
LOCAL cCorFrente, cCorFundo, aPallete, cLinha

aFlatUIColorPallete = { ;
                        { '#1ABC9C', 'Turquoise',   'W+/BG*'}, ;
                        { '#2ECC71', 'Emerald',     'W+/G*'}, ;
                        { '#3498DB', 'Peter River', 'W+/B*'}, ;
                        { '#9B59B6', 'Amethyst',    'W+/RB*'}, ;
                        { '#34495E', 'Wet Asphalt', 'W+/N*'}, ; 
                        { '#16A085', 'Green Sea',   'W+/BG'}, ;
                        { '#27AE60', 'Nephirits',   'W+/G'}, ;
                        { '#2980B9', 'Belize Hole', 'W+/B'}, ;
                        { '#8E44AD', 'Wisteria',    'W+/RB'}, ;
                        { '#2C3E50', 'Green Sea',   'W+/N'}, ; 
                        { '#F1C40F', 'Sun Flower',  'W+/GR*'}, ;
                        { '#E67E22', 'Carrot',      'W+/GR'}, ;
                        { '#E74C3C', 'Alizarin',    'W+/R*'}, ;
                        { '#ECF0F1', 'Clouds',      'N/W*'}, ; 
                        { '#95A5A6', 'Concrete',    'W+/W'}, ; 
                        { '#F39C12', 'Orange',      'W+/GR'}, ;
                        { '#D35400', 'Pumpkin',     'W+/GR'}, ;
                        { '#C0392B', 'Pomegranate', 'W+/R'}, ;
                        { '#BDC3C7', 'Silver',      'W+/W'}, ;
                        { '#7F8C8D', 'Asbestos',    'W+/N*'} ;
                      }
hb_gtInfo( HB_GTI_WINTITLE, 'TESTE DE CORES SIMILARES AO FLAT UI' )

hb_gtInfo( HB_GTI_ICONRES, [ICON_MAIN] )

hb_gtInfo( HB_GTI_SELECTCOPY, "Selecione e Copie" )

hb_gtInfo( HB_GTI_RESIZABLE, .T. )         
hb_gtInfo( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_FONT )

// altd ()

IF hb_osIsWinVista()
   cFont := [Consolas]        
ELSE
   cFont := [Lucida Console]
ENDIF

hb_gtInfo( HB_GTI_FONTNAME, cFont )

hb_gtInfo( HB_GTI_ALTENTER, .T. )

SETMODE(46, 112 )

FOR EACH cCorFrente IN aList
   FOR EACH cCorFundo IN aList
      @ cCorFrente:__EnumIndex, ( cCorFundo:__EnumIndex - 1 ) * 7 SAY Pad( cCorFrente + "/" + StrTran( cCorFundo, "+", "*" ), 7 ) ;
     COLOR ( cCorFrente + "/" + StrTran( cCorFundo, "+", "*" ) )
   NEXT
NEXT

y = ROW () + 1

FOR EACH aPallete IN aFlatUIColorPallete
   aBox = { '', '', '', '  ' + '(' + aPallete [3] + ')', '  ' + aPallete [1], '  ' + aPallete [2], ''}
   For each cLinha in aBox 
      @  y + cLinha:__EnumIndex + Int ((aPallete:__EnumIndex - 1)/ 5) * Len (aBox), ;
        18 + ((aPallete:__EnumIndex - 1) % 5) * 15 ;
        SAY Pad (cLinha, 15) COLOR aPallete [3]
   Next
NEXT

inkey (0)