WndProc (Part 3)

                          ButtonY = CreateWindow(TEXT("button"), TEXT("Form"),

                           WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,

                           cxChar*12,4,5*cxChar,7*cyChar/4,hWnd,(HMENU) 2,

                           ((LPCREATESTRUCT) lParam)->hInstance, NULL);

 

                           ButtonZ = CreateWindow(TEXT("button"), TEXT("Gene"),

                                  WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,

                                  cxChar * 18, 4, 5 * cxChar, 7 * cyChar / 4, hWnd, (HMENU)3,

                                  ((LPCREATESTRUCT)lParam)->hInstance, NULL);

// 

 

// 

// 

                     break;

// 

                     case WM_PAINT:

                           hdc=BeginPaint(hWnd, &ps);

                           SelectObject(hdc,GetStockObject(SYSTEM_FIXED_FONT));

 

                           current_column(&fch, &sch, column);

                           if(column<=26)

                           {

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

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

                           }

                           else

                           {

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

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

                           }

                           sprintf(szBuffer,"%-3d ",row);

                           if(column<=26)

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

                           else

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

                           sprintf(szBuffer,"                                                                                                                                                                                                                         ");

                           TextOut(hdc,cxChar*6,cyChar*3,szBuffer,NUMCHARS-2);

                           TextOut(hdc,cxChar*7,cyChar*2,szBuffer,NUMCHARS-2);

 

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

                           type=stype+pvalue;

                           if (*type=='S' || *type=='F')

                           {

                                  cell=scell+pvalue;

 

                                  if (*type=='S')

                                  {

                                         sprintf(szBuffer, "%s", *cell);

                                  if ((strlen(szBuffer))<(NUMCHARS-10))

                                         NUMD=strlen(szBuffer);

                                  else

                                         NUMD=NUMCHARS-10;

                                  }

 

                                  if (*type=='F')

                                  {

                                         cval=column;

                                         rval=row;

                                 

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

                                        

                                         if ((strlen(genetic))<(NUMCHARS-10))

                                         NUMD=strlen(genetic);

                                  else

                                         NUMD=NUMCHARS-10;

 

                                         TextOut(hdc, cxChar*7, cyChar*3, genetic, NUMD-1);

 

                                         TextOut(hdc, cxChar*15, cyChar*2,szBuffer,strlen(szBuffer));

                                  }            

                                  else

                                         TextOut(hdc, cxChar*7, cyChar*3, szBuffer, NUMD);

                                  if (NUMD==NUMCHARS-10)

                                         TextOut(hdc, cxChar*(NUMD+8), cyChar*3," OV",3);

                           }

                           else

                           if (*type=='N')

                           {

                                         numeric=snumeric+pvalue;

 

                                         if (*(*numeric)==-0) *(*numeric)=0;

 

                                         sprintf(szBuffer,"%e",*(*numeric));

                                         TextOut(hdc, cxChar*7, cyChar*3, szBuffer,strlen(szBuffer));

                           }

//