开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
FORMPROC.C
资源名称：cbuilder.zip　[点击查看]
上传用户：needlamp
上传日期：2007-01-07
资源大小：78k
文件大小：11k
源码类别：

Delphi控件源码

开发平台：

Visual C++

FORMPROC.C：源码内容
  1. #include <windows.h>
  2. #include "appmain.h"
  3. #include "formproc.h"
  5. long CALLBACK __export FormWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
  6. {
  7.   static BOOL isMouseDown =FALSE,isChildMouseDown =FALSE,isRecSizing =FALSE;
  8.   static POINT pt0,pt1;
  9.   POINT pt;
  10.   static POINT ptFrame;
  11.   HDC hDC;
  12.   HWND hwnd;             
  13.   RECT rc,rcForm;      
  14.   int i,j;
  15.   HWND hWndCurSel;              
  16.   char tmp[150];
  17.   int CtlNo;
  18.   
  19.   switch(message)
  20.   {
  21.     case WM_CREATE: 
  22.       GetWindowRect(hWnd,&rc);
  23.       ptFrame.x =ptFrame.y =0;
  24.       ClientToScreen(hWnd,&ptFrame);
  25.       ptFrame.x -=rc.left;
  26.       ptFrame.y -=rc.top;
  27.       SetWindowWord(hWnd,CTLNO,0);
  28.     return 0L;
  29.     
  30.     case WM_SETFOCUS:
  31.       if(GetParent(hWndRecSize[0])!=hWnd)
  32.       {
  33.         for(i=0;i<8;i++){
  34.           SetParent(hWndRecSize[i],hWnd); 
  35.           ShowWindow(hWndRecSize[i],SW_HIDE);  
  36.         }
  37.         hWndCurSel =(HWND)GetWindowWord(hWnd,CUR_SELWND);  
  38.         //if(hWndCurSel)
  39.           //SetRecPos()
  40.       }
  41.     break;
  42.     
  43.     case WM_SETCURSOR:
  44.       if(IsChild(hWnd,(HWND)wParam))
  45.       {
  46.         SetCursor(LoadCursor(NULL,IDC_SIZE));
  47.         return TRUE;
  48.       }
  49.     break;
  50.     
  51.     case WM_ACTIVATEAPP:                               
  52.       if(wParam) SetActiveWindow(hWnd);
  53.     break;
  54.     
  55.     case WM_SYSCOMMAND:
  56.       if(wParam ==SC_KEYMENU)
  57.       { 
  58.         hWndPrev =hWnd;
  59.         SetFocus(hWndMain);
  60.         SendMessage(hWndMain,WM_SYSCOMMAND,wParam,lParam);
  61.         return 0L;
  62.       }
  63.     break;
  64.     
  65.     case WM_RECSIZING:
  66.       isRecSizing =TRUE;
  67.       switch(wParam)
  68.       {
  69.         case 0:
  70.         break;
  71.         case 1:
  72.         break;
  73.       }
  74.     break;
  75.     
  76.     case WM_PARENTNOTIFY:  
  77.       if(wParam ==WM_LBUTTONDOWN)
  78.       {
  79.         pt =pt0 =MAKEPOINT(lParam);
  80.         CtlNo =GetWindowWord(hWnd,CTLNO);
  81.         for(i=0;i<CtlNo;i++)
  82.         {
  83.           hwnd =GetDlgItem(hWnd,100+i);
  84.           if(hwnd)
  85.           {
  86.             GetWindowRect(hwnd,&rc); 
  87.             pt1.x =rc.left;
  88.             pt1.y =rc.top;
  89.             ScreenToClient(hWnd,&pt1);
  90.             rc.right =rc.right-rc.left+pt1.x;
  91.             rc.bottom =rc.bottom-rc.top+pt1.y;
  92.             rc.left =pt1.x;
  93.             rc.top =pt1.y;  
  94.             if(PtInRect(&rc,pt0)) 
  95.             {
  96.               hWndCurSel =hwnd;
  97.               SetWindowWord(hWnd, CUR_SELWND,hWndCurSel);
  98.               pt0.x -=pt1.x;
  99.               pt0.y -=pt1.y;
  100.               pt1 =pt;                
  101.               hDC =GetWindowDC(hWnd);
  102.               GetClientRect(hwnd,&rc); 
  103.               SelectObject(hDC, GetStockObject(NULL_BRUSH));
  104.               SelectObject(hDC, GetStockObject(WHITE_PEN));
  105.               SetROP2(hDC, R2_NOT);
  106.               Rectangle(hDC,pt1.x-pt0.x+ptFrame.x,pt1.y-pt0.y+ptFrame.y,
  107.                 pt1.x-pt0.x+rc.right+ptFrame.x,pt1.y-pt0.y+rc.bottom+ptFrame.y); 
  108.               ReleaseDC(hWnd,hDC);  
  109.               if(GetParent(hWndRecSize[0])!=hWnd)
  110.                 for(j=0;j<8;j++) SetParent(hWndRecSize[j],hWnd); 
  111.               for(j=0;j<8;j++)
  112.               {                             
  113.                 switch(j)
  114.                 {
  115.                   case 0:
  116.                     //SetWindowPos(hWndRecSize[j],
  117.                   break;
  118.                   case 1:
  119.                     //SetWindowPos(hWndRecSize[j],
  120.                   break;
  121.                   case 2:
  122.                     //SetWindowPos(hWndRecSize[j],
  123.                   break;
  124.                   case 3:
  125.                     //SetWindowPos(hWndRecSize[j],
  126.                   break;
  127.                   case 4:
  128.                     //SetWindowPos(hWndRecSize[j],
  129.                   break;
  130.                   case 5:
  131.                     //SetWindowPos(hWndRecSize[j],
  132.                   break;
  133.                   case 6:
  134.                     //SetWindowPos(hWndRecSize[j],
  135.                   break;
  136.                   case 7:
  137.                     //SetWindowPos(hWndRecSize[j],
  138.                   break;
  139.                 }               
  140.                 ShowWindow(hWndRecSize[j],SW_SHOW);
  141.               }  
  142.               SetFocus(hWnd);
  143.               break;
  144.             }
  145.           }          
  146.         }
  147.       }
  148.     break;
  149.     
  150.     case WM_MOUSEACTIVATE:    
  151.       if(HIWORD(lParam) ==WM_LBUTTONDOWN && LOWORD(lParam)==HTCLIENT && GetFocus()==hWnd)
  152.       {
  153.         SetCapture(hWnd);
  154.         if(isRecSizing) 
  155.         {
  156.           isChildMouseDown =FALSE;
  157.           isRecSizing =FALSE;
  158.         }
  159.         else
  160.           isChildMouseDown =TRUE;
  161.         return MA_NOACTIVATEANDEAT;
  162.       }              
  163.     break;
  164.     
  165.     case WM_LBUTTONDOWN: 
  166.       isMouseDown =TRUE; 
  167.       pt1 =pt0 =MAKEPOINT(lParam);   
  168.       SetCapture(hWnd);
  169.     return 0L;
  170.     
  171.     case WM_MOUSEMOVE:     
  172.       if(!isMouseDown && !isChildMouseDown) break;
  173.       hDC =GetWindowDC(hWnd);   
  174.       hWndCurSel =(HWND)GetWindowWord(hWnd,CUR_SELWND);
  175.       SelectObject(hDC, GetStockObject(NULL_BRUSH));
  176.       SelectObject(hDC, GetStockObject(WHITE_PEN));
  177.       SetROP2(hDC, R2_NOT);
  178.       if(isMouseDown)                  
  179.         Rectangle(hDC, pt0.x+ptFrame.x,pt0.y+ptFrame.y,pt1.x+ptFrame.x,pt1.y+ptFrame.y);
  180.       else
  181.       {                 
  182.         if(hWndCurSel)
  183.         {
  184.           GetClientRect(hWndCurSel,&rc);
  185.           Rectangle(hDC,pt1.x-pt0.x+ptFrame.x,pt1.y-pt0.y+ptFrame.y,
  186.                 pt1.x-pt0.x+rc.right+ptFrame.x,pt1.y-pt0.y+rc.bottom+ptFrame.y); 
  187.         }        
  188.       }
  189.       pt1 =MAKEPOINT(lParam);
  190.       if(isMouseDown)
  191.         Rectangle(hDC, pt0.x+ptFrame.x,pt0.y+ptFrame.y,pt1.x+ptFrame.x,pt1.y+ptFrame.y);
  192.       else if(hWndCurSel)
  193.         Rectangle(hDC,pt1.x-pt0.x+ptFrame.x,pt1.y-pt0.y+ptFrame.y,
  194.            pt1.x-pt0.x+rc.right+ptFrame.x,pt1.y-pt0.y+rc.bottom+ptFrame.y); 
  195.         
  196.       ReleaseDC(hWnd,hDC);
  197.     return 0L;
  198.         
  199.     case WM_LBUTTONUP: 
  200.       ReleaseCapture();
  201.       if(!isMouseDown && !isChildMouseDown) return 0L;
  202.       pt1 =MAKEPOINT(lParam); 
  203.       hWndCurSel =GetWindowWord(hWnd,CUR_SELWND);
  204.       hDC =GetWindowDC(hWnd);
  205.       SetROP2(hDC, R2_NOT);
  206.       SelectObject(hDC, GetStockObject(NULL_BRUSH));
  207.       SelectObject(hDC, GetStockObject(WHITE_PEN));
  208.       if(isChildMouseDown && hWndCurSel)
  209.       {
  210.         GetClientRect(hWndCurSel,&rc);
  211.         Rectangle(hDC,pt1.x-pt0.x+ptFrame.x,pt1.y-pt0.y+ptFrame.y,
  212.            pt1.x-pt0.x+rc.right+ptFrame.x,pt1.y-pt0.y+rc.bottom+ptFrame.y); 
  213.         GetClientRect(hWndCurSel,&rc); 
  214.         if(pt0.x-pt1.x>rc.right) pt1.x =pt0.x;
  215.         if(pt0.y-pt1.y>rc.bottom) pt1.y =pt0.y; 
  216.         GetClientRect(hWnd,&rcForm);
  217.         if(pt1.x-pt0.x>rcForm.right) pt1.x =pt0.x+rcForm.right-rc.right;
  218.         if(pt1.y-pt0.y>rcForm.bottom) pt1.y =pt0.y+rcForm.bottom-rc.bottom;
  219.         SetWindowPos(hWndCurSel,0,pt1.x-pt0.x,pt1.y-pt0.y,0,0,SWP_NOSIZE |SWP_NOZORDER);
  220.         InvalidateRect(hWndCurSel,NULL,FALSE);
  221.         isChildMouseDown =FALSE;   
  222.         ReleaseDC(hWnd,hDC);                  
  223.         pt0.x =pt1.x-pt0.x;
  224.         pt0.y =pt1.y-pt0.y;  
  225.         pt1.x =pt0.x+rc.right;
  226.         pt1.y =pt0.y+rc.bottom;
  227.         //return TRUE;
  228.       }
  229.       else
  230.       if(isMouseDown)
  231.       {                           
  232.         isMouseDown =FALSE; 
  233.         CtlNo =GetWindowWord(hWnd,CTLNO);
  234.         Rectangle(hDC, pt0.x+ptFrame.x,pt0.y+ptFrame.y,pt1.x+ptFrame.x,pt1.y+ptFrame.y);
  235.         if(lpCurCtlInfo)
  236.         {
  237.           wsprintf((LPSTR)tmp,"%s%d",(LPSTR)lpCurCtlInfo->ClassName,lpCurCtlInfo->WndCount+1);
  238.           if(pt1.x<pt0.x)
  239.           {
  240.             pt.x =pt1.x;
  241.             pt1.x =pt0.x;
  242.             pt0.x =pt.x;
  243.           }  
  244.           if(pt1.y<pt0.y)
  245.           {
  246.             pt.y =pt1.y;
  247.             pt1.y =pt0.y;
  248.             pt0.y =pt.y;
  249.           }
  250.           hwnd =CreateWindow(lpCurCtlInfo->ClassName,tmp,WS_CHILD | WS_VISIBLE | lpCurCtlInfo->WndStyle,
  251.             pt0.x, pt0.y, pt1.x-pt0.x, pt1.y-pt0.y,
  252.             hWnd, 100+CtlNo,hInst,NULL);     
  253.           if(hwnd)
  254.           {
  255.             SetWindowWord(hWnd,CTLNO,CtlNo+1);
  256.             lpCurCtlInfo->WndCount++;
  257.           }
  258.           hWndCurSel=hwnd;
  259.         }
  260.         ReleaseDC(hWnd,hDC);       
  261.       }    
  262.       if(GetParent(hWndRecSize[0])!=hWnd)
  263.         for(i=0;i<8;i++) SetParent(hWndRecSize[i],hWnd); 
  264.       if(hWndCurSel)
  265.       for(i=0;i<8;i++)
  266.       {                             
  267.         ShowWindow(hWndRecSize[i],SW_SHOW);                              
  268.         switch(i)
  269.         {
  270.           case 0:
  271.             SetWindowPos(hWndRecSize[i],HWND_TOP,pt0.x-3,pt0.y-3,0,0,SWP_NOSIZE|SWP_NOACTIVATE);
  272.           break;
  273.           case 1:
  274.             SetWindowPos(hWndRecSize[i],HWND_TOP,(pt1.x+pt0.x)/2,pt0.y-3,0,0,SWP_NOSIZE|SWP_NOACTIVATE);
  275.           break;
  276.           case 2:
  277.             SetWindowPos(hWndRecSize[i],HWND_TOP,pt1.x-2,pt0.y-3,0,0,SWP_NOSIZE|SWP_NOACTIVATE);
  278.           break;
  279.           case 3:
  280.             SetWindowPos(hWndRecSize[i],HWND_TOP,pt1.x-2,(pt0.y+pt1.y)/2,0,0,SWP_NOSIZE|SWP_NOACTIVATE);
  281.           break;
  282.           case 4:
  283.             SetWindowPos(hWndRecSize[i],HWND_TOP,pt1.x-2,pt1.y-2,0,0,SWP_NOSIZE|SWP_NOACTIVATE);
  284.           break;
  285.           case 5:
  286.             SetWindowPos(hWndRecSize[i],HWND_TOP,(pt1.x+pt0.x)/2,pt1.y-2,0,0,SWP_NOSIZE|SWP_NOACTIVATE);
  287.           break;
  288.           case 6:
  289.             SetWindowPos(hWndRecSize[i],HWND_TOP,pt0.x-3,pt1.y-2,0,0,SWP_NOSIZE|SWP_NOACTIVATE);
  290.           break;
  291.           case 7:
  292.             SetWindowPos(hWndRecSize[i],HWND_TOP,pt0.x-3,(pt0.y+pt1.y)/2,0,0,SWP_NOSIZE|SWP_NOACTIVATE);
  293.           break;
  294.         }      
  295.         //InvalidateRect(hWndRecSize[i],NULL,TRUE);         
  296.       }
  297.     return 0L;
  298.     
  299.     case WM_CLOSE:
  300.     break;
  301.     
  302.     default:
  303.     break;
  304.   }  
  305.   return (DefWindowProc(hWnd, message, wParam, lParam));
  306. }
  308. long CALLBACK __export RecSizeWndProc(HWND hWnd, UINT message, 
  309.                           WPARAM wParam, LPARAM lParam)
  310. {             
  311.   HCURSOR hCursor;
  312.                                         
  313.   switch(message)
  314.   {
  315.     case WM_SETCURSOR:
  316.       switch(GetWindowWord(hWnd,0))
  317.       {
  318.         case 0:                                 
  319.         case 4:
  320.           hCursor=LoadCursor(NULL,IDC_SIZENWSE);
  321.         break;
  322.         case 1:                              
  323.         case 5:
  324.           hCursor=LoadCursor(NULL,IDC_SIZENS);
  325.         break;
  326.         case 2:                                                    
  327.         case 6:
  328.           hCursor=LoadCursor(NULL,IDC_SIZENESW);
  329.         break;
  330.         case 3:
  331.         case 7:
  332.           hCursor=LoadCursor(NULL,IDC_SIZEWE);
  333.         break;
  334.         default: return FALSE;
  335.       }
  336.       SetCursor(hCursor);
  337.       return TRUE;
  338.     case WM_MOUSEMOVE:
  339.     return 0L;
  340.     case WM_LBUTTONDOWN:
  341.       SendMessage(GetParent(hWnd),WM_RECSIZING,hWnd,0L); 
  342.     return 0L;   
  343.   }
  344.   return (DefWindowProc(hWnd, message, wParam, lParam));
  345. }