zoukankan      html  css  js  c++  java
  • 画笔与画刷

    声明全局变量

    HPEN hPen[7];
    HBRUSH hBru[7];
    int sPen[7]={PS_SOLID,PS_DASH,PS_DOT,PS_DASHDOT,PS_DASHDOTDOT,
    PS_NULL,PS_INSIDEFRAME};
    int sBru[7]={HS_VERTICAL,HS_HORIZONTAL,HS_CROSS,HS_DIAGCROSS,
    HS_FDIAGONAL,HS_BDIAGONAL};

    void MyPaint(HDC hdc);

    创建画刷与画笔

       for (i=0;i<=6;i++)
       {
        hPen[i] = CreatePen(sPen[i],1,RGB(255,0,0));
        if(i==6)
         hBru[i]=CreateSolidBrush(RGB(0,255,0));
        else
         hBru[i]=CreateHatchBrush(sBru[i],RGB(0,255,0));
       }
       hdc=GetDC(hWnd);
       MyPaint(hdc);
       ReleaseDC(hWnd,hdc);

    关联画刷与画笔并画图

    void MyPaint(HDC hdc)
    {
        int i,x1,x2,y;
     for (i=0;i<=6;i++)
     {
      y=(i+1)*30;
      SelectObject(hdc,hPen[i]);
      MoveToEx(hdc,30,y,NULL);
      LineTo(hdc,100,y);
     }
     x1=120;
     x2=180;

        for (i=0;i<=6;i++)
        {
      SelectObject(hdc,hBru[i]);
      Rectangle(hdc,x1,30,x2,y);
      x1+=70;
      x2+=70;
        }
    }

    删除画刷与画笔

    case WM_DESTROY:
      for (i=0;i<=6;i++)
      {
       DeleteObject(hPen[i]);
       DeleteObject(hBru[i]);
      }
      PostQuitMessage(0);
      break;

  • 相关阅读:
    indy tcpclient tcpServer
    Delphi生成即调用带窗体的Dll
    本地同步到网络时间
    tfield的字段名和显示名
    Delphi流的操作_文件合并
    Delphi7 流操作_压缩
    delphi内嵌汇编
    给rar文件加个自定义头
    fastreport小入门
    delphi 单例模式
  • 原文地址:https://www.cnblogs.com/batman425/p/3238147.html
Copyright © 2011-2022 走看看