#!c:\perl\wperl.exe

use strict;

use Win32::GUI;
use Win32::GUI::Grid;

my $mainform = Win32::GUI::Window->new(-name=>'main',-text=>'Grid Date Format Problem',-width=>810,-height=>625,-dialogui=>1);
my $grid = $mainform->AddGrid(-name=>'grid',-pos=>[25,85],-rows=>2,-columns=>3,-fixedrows=>1,-fixedcolumns=>1,-editable=>1,-size=> [520,400],-addstyle=>WS_VSCROLL|WS_TABSTOP);
    
    $grid->SetColumnWidth(0,100);
    $grid->SetColumnWidth(1,100);
    $grid->SetColumnWidth(2,100);

    $grid->SetRowHeight(1,30);
    
    $grid->SetCellText(0, 0, "ID");
    $grid->SetCellText(0, 1, "GVIT_DATECAL");
    $grid->SetCellText(0, 2, "GVIT_DATE"); 

    $grid->SetCellFormat(1, 1, 'yyyy-MM-dd');
    $grid->SetCellType(1, 1, GVIT_DATECAL);
    $grid->SetCellText(1, 1, "2005-07-19");
    
    $grid->SetCellFormat(1, 2, 'yyyy-MM-dd');
    $grid->SetCellType(1, 2, GVIT_DATE);
    $grid->SetCellText(1, 2, "2005-07-19");

$mainform->Show();
Win32::GUI::Dialog();