WndProc (Part 6)

      else

                           {

                                  cval=nHscrollPos;

                                  sprintf(szBuffer,"   ");

                                  TextOut(hdc,cxChar*1,cyChar*4,szBuffer,3);

                                  a=4;

// 

// Display the column values.

                                  for(i=1;i<=NUMCOLS;i++)

                                  {

                                         sprintf(szBuffer,"      ");

                                         TextOut(hdc,cxChar*a,cyChar*4,szBuffer,6);

                                         a+=6;

                                         current_column(&fch, &sch, cval);

                                         sprintf(szBuffer,"%2c%c",fch,sch);

                                         TextOut(hdc,cxChar*a,cyChar*4, szBuffer,3);

                                         a+=3;

                                         cval++;

                                  }

                                  sprintf(szBuffer," ");

                                  TextOut(hdc,cxChar*a, cyChar*4, szBuffer,1);

                                  hredraw=0;

// 

                                  cval=nVscrollPos;

// Display the row values.

                                  for (i=4;i<=NUMLINES;i++)

                                  {

                                         sprintf(szBuffer,"    ");

                                         TextOut(hdc,0, cyChar*(1+i),szBuffer,4);

                                         sprintf(szBuffer,"%3d",cval);

                                         TextOut(hdc,0,cyChar*(1+i),szBuffer,3);

                                         cval++;

                                  }

                                  vredraw=0;

                                  SetTextColor(hdc, RGB(0,0,0));

                                  SetBkColor(hdc, RGB(255,255,255));

                                  rval=nVscrollPos;

                                  cval=nHscrollPos;

// Display the contents of the Worksheet.

                                  for(i=1;i<=MAXROW;i++)

                                  {

                                         cvaly=cyChar*(4+i);

                                         for (a=1; a<=NUMCOLS;a++)

                                         {

                                                int pvalue=0;

                                                pvalue=((cval-1)*100)+rval;

                                                type=stype+pvalue;

                                                cvalx=5+((a-1)*9);

                                                evaluate_cell(cval,rval,(char)*type,szBuffer,'D',genetic);

// 

                                                TextOut(hdc, 0.25+cxChar*cvalx, cvaly,szBuffer,9);

                                                cval++;

                                         }

                                         cval=nHscrollPos;

                                         rval++;

                                  }

                                  {

                                         int pvalue=0;

                                         pvalue=((column-1)*100)+row;

                                         type=stype+pvalue;

                                         cvalx=5+((curxpos-1)*9);

                                         cvaly=cyChar*(4+curypos);

                                         SetTextColor(hdc, RGB(255,255,255));

                                         SetBkColor(hdc, RGB(0,0,200));

                                         evaluate_cell(column,row,(char)*type,szBuffer,'D',genetic);

                                         TextOut(hdc, 0.25+cxChar*cvalx, cvaly, szBuffer,9);

                                         SetTextColor(hdc, RGB(0,0,0));

                                         SetBkColor(hdc, RGB(255,255,255));

                                         credraw=0;

                                  }

                                  goto finished;

                           }

                           doitselect :

                           if (hredraw)