GdiPlus[33]: 基本绘图与填充命令

最新推荐文章于 2020-02-13 19:53:46 发布
最新推荐文章于 2020-02-13 19:53:46 发布
阅读量587 收藏
点赞数
文章标签： c/c++
原文链接：https://my.oschina.net/hermer/blog/320301
版权

为什么80%的码农都做不了架构师？>>>   hot3.png


DrawLine();
DrawLines();
DrawArc();
DrawBezier();
DrawBeziers();
DrawRectangle();
DrawRectangles();
DrawEllipse();
DrawPie();
DrawPolygon();
DrawCurve();
DrawClosedCurve();

FillRectangle();
FillRectangles();
FillPolygon();
FillEllipse();
FillPie();
FillClosedCurve();

DrawLines、DrawPolygon、FillPolygon 测试图:

26153630_DMa7.png

DrawLines、DrawPolygon、FillPolygon 测试代码: 

uses GdiPlus;

procedure TForm1.FormPaint(Sender: TObject);
const
  Pts: array[0..3] of TGPPointF = ((X:20; Y:80), (X:60; Y:20), (X:100; Y:80), (X:60; Y:140));
var
  Graphics: IGPGraphics;
  Pen: IGPPen;
  Brush: IGPSolidBrush;
  Font: IGPFont;
  i: Integer;
begin
  Graphics := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create($FFFF0000, 2);
  Brush := TGPSolidBrush.Create($FF000000);
  Font := TGPFont.Create(Canvas.Handle);

  Graphics.DrawLines(Pen, Pts);
  for i := 0 to Length(Pts) - 1 do Graphics.DrawString(IntToStr(i), Font, Pts[i], Brush);

  Graphics.TranslateTransform(110, 0);
  Graphics.DrawPolygon(Pen, Pts);

  Brush.Color := $FFFFFF00;
  Graphics.TranslateTransform(110, 0);
  Graphics.FillPolygon(Brush, Pts);

  Graphics.TranslateTransform(110, 0);
  Graphics.FillPolygon(Brush, Pts);
  Graphics.DrawPolygon(Pen, Pts);
end;

DrawRectangles、FillRectangles 测试图:

26153630_E6LG.png

DrawRectangles、FillRectangles 测试代码: 

uses GdiPlus;

procedure TForm1.FormPaint(Sender: TObject);
var
  Graphics: IGPGraphics;
  Pen: IGPPen;
  Brush: IGPSolidBrush;
  Rects: array[0..2] of TGPRect;
begin
  Rects[0].Initialize(40, 20, 20, 20);
  Rects[1].Initialize(30, 40, 40, 40);
  Rects[2].Initialize(10, 80, 80, 80);

  Graphics := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create($FFFF0000, 2);
  Brush := TGPSolidBrush.Create($FFC0C0C0);

  Graphics.DrawRectangles(Pen, Rects);

  Graphics.TranslateTransform(110, 0);
  Graphics.FillRectangles(Brush, Rects);

  Graphics.TranslateTransform(110, 0);
  Graphics.FillRectangles(Brush, Rects);
  Graphics.DrawRectangles(Pen, Rects);
end;

DrawArc、DrawPie、FillPie 测试图:

26153630_smM3.png

DrawArc、DrawPie、FillPie 测试代码: 

uses GdiPlus;

procedure TForm1.FormPaint(Sender: TObject);
var
  Graphics: IGPGraphics;
  Pen: IGPPen;
  Brush: IGPSolidBrush;
  Rect: TGPRect;
begin
  Rect.Initialize(15, 15, 160, 80);

  Graphics := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create($FFFF0000, 2);
  Brush := TGPSolidBrush.Create($FFB0C4DE);

  Graphics.FillEllipse(Brush, Rect);
  Graphics.DrawArc(Pen, Rect, 0, 45);
  Graphics.TranslateTransform(0, Rect.Y + Rect.Height);

  Graphics.FillEllipse(Brush, Rect);
  Graphics.DrawPie(Pen, Rect, 0, 45);
  Graphics.TranslateTransform(0, Rect.Y + Rect.Height);

  Graphics.FillEllipse(Brush, Rect);
  Brush.Color := $FFFFD700;
  Graphics.FillPie(Brush, Rect, 0, 45);
  Graphics.TranslateTransform(0, Rect.Y + Rect.Height);

  Brush.Color := $FFB0C4DE;
  Graphics.FillEllipse(Brush, Rect);
  Brush.Color := $FFFFD700;
  Graphics.FillPie(Brush, Rect, 0, 45);
  Graphics.DrawPie(Pen, Rect, 0, 45);
end;

DrawCurve、DrawClosedCurve、FillClosedCurve 测试图:

26153631_wkoy.png

DrawCurve、DrawClosedCurve、FillClosedCurve 测试代码: 

uses GdiPlus;

const
  Pts: array [0..5] of TGPPoint = (
    (X: 10;  Y:  40),
    (X: 100; Y:  60),
    (X: 150; Y:  20),
    (X: 130; Y: 100),
    (X: 70;  Y:  80),
    (X: 30;  Y: 140));

procedure TForm1.FormPaint(Sender: TObject);
const
  m = 180;
  n = 160;
var
  Graphics: IGPGraphics;
  Pen: IGPPen;
  BrushBak, Brush: IGPBrush;
begin
  Graphics := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create($FFFF0000, 2);
  BrushBak := TGPSolidBrush.Create($FFD8BFD8);
  Brush := TGPSolidBrush.Create($FFFFD700);

  with Graphics do
  begin
    FillPolygon(BrushBak, Pts);
    DrawCurve(Pen, Pts);
    TranslateTransform(m, 0);

    FillPolygon(BrushBak, Pts);
    DrawCurve(Pen, Pts, 1.5);
    TranslateTransform(m, 0);

    FillPolygon(BrushBak, Pts);
    DrawCurve(Pen, Pts, 0.5);
    TranslateTransform(m, 0);

    FillPolygon(BrushBak, Pts);
    DrawCurve(Pen, Pts, 0);

    //
    TranslateTransform(-Transform.OffsetX, 150);

    FillPolygon(BrushBak, Pts);
    DrawClosedCurve(Pen, Pts);
    TranslateTransform(m, 0);

    FillPolygon(BrushBak, Pts);
    DrawClosedCurve(Pen, Pts, 1.5);
    TranslateTransform(m, 0);

    FillPolygon(BrushBak, Pts);
    DrawClosedCurve(Pen, Pts, 0.5);
    TranslateTransform(m, 0);

    FillPolygon(BrushBak, Pts);
    DrawClosedCurve(Pen, Pts, 0);

    //
    TranslateTransform(-Transform.OffsetX, n);

    FillPolygon(BrushBak, Pts);
    FillClosedCurve(Brush, Pts);
    DrawClosedCurve(Pen, Pts);
    TranslateTransform(m, 0);

    FillPolygon(BrushBak, Pts);
    FillClosedCurve(Brush, Pts, FillModeAlternate, 1.5);
    DrawClosedCurve(Pen, Pts, 1.5);
    TranslateTransform(m, 0);

    FillPolygon(BrushBak, Pts);
    FillClosedCurve(Brush, Pts, FillModeAlternate, 0.5);
    DrawClosedCurve(Pen, Pts, 0.5);
    TranslateTransform(m, 0);

    FillPolygon(BrushBak, Pts);
    FillClosedCurve(Brush, Pts, FillModeAlternate, 0);
    DrawClosedCurve(Pen, Pts, 0);
  end;
end;

DrawBezier 测试图:

26153631_GPlD.png

DrawBezier 测试代码: 

uses GdiPlus;

//一条 Bezier 线需要四个点: 两个端点、两个控制点
procedure TForm1.FormPaint(Sender: TObject);
var
  Graphics: IGPGraphics;
  Pen: IGPPen;
  P1,C1,C2,P2: TGPPoint;
begin
  P1.Initialize(30, 100);
  C1.Initialize(120, 10);
  C2.Initialize(170, 150);
  P2.Initialize(220, 80);

  Graphics := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create($FF0000FF, 2);

  Graphics.DrawBezier(Pen, P1, C1, C2, P2);

  Pen.Width := 1;
  Pen.Color := $FFFF0000;
  Graphics.DrawRectangle(Pen, P1.X-3, P1.Y-3, 6, 6);
  Graphics.DrawRectangle(Pen, P2.X-3, P2.Y-3, 6, 6);
  Graphics.DrawEllipse(Pen, C1.X-3, C1.Y-3, 6, 6);
  Graphics.DrawEllipse(Pen, C2.X-3, C2.Y-3, 6, 6);

  Pen.Color := $FFC0C0C0;
  Graphics.DrawLine(Pen, P1, C1);
  Graphics.DrawLine(Pen, P2, C2);
end;

//把一条当作多条画(DrawBeziers), 结果同上
procedure TForm1.FormPaint(Sender: TObject);
var
  Graphics: IGPGraphics;
  Pen: IGPPen;
  Pts: array[0..3] of TGPPoint;
begin
  Pts[0].Initialize(30, 100);
  Pts[1].Initialize(120, 10);
  Pts[2].Initialize(170, 150);
  Pts[3].Initialize(220, 80);

  Graphics := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create($FF0000FF, 2);

  Graphics.DrawBeziers(Pen, Pts);

  Pen.Width := 1;
  Pen.Color := $FFFF0000;
  Graphics.DrawRectangle(Pen, Pts[0].X-3, Pts[0].Y-3, 6, 6);
  Graphics.DrawRectangle(Pen, Pts[3].X-3, Pts[3].Y-3, 6, 6);
  Graphics.DrawEllipse(Pen, Pts[1].X-3, Pts[1].Y-3, 6, 6);
  Graphics.DrawEllipse(Pen, Pts[2].X-3, Pts[2].Y-3, 6, 6);

  Pen.Color := $FFC0C0C0;
  Graphics.DrawLine(Pen, Pts[0], Pts[1]);
  Graphics.DrawLine(Pen, Pts[3], Pts[2]);
end;

DrawBeziers 测试图:

26153631_QdXN.png

DrawBeziers 测试代码: 

uses GdiPlus;

const
  Pts: array[0..6] of TGPPoint = (
    (X: 24; Y: 32), // Pt1
    (X: 16; Y: 88), // C1
    (X: 36; Y:132), // C2
    (X:120; Y: 20), // Pt2
    (X:180; Y:150), // C3
    (X:210; Y: 90), // C4
    (X:210; Y: 20)  // Pt3
  );

//两条 Bezier 线需要 7 个点, 而不是 8 个; 因为 Bezier1 的终点即是 Bezier2 的起点;
//多条 Bezier 线需要的点数 = 3 * 线数 + 1;
//数组 ID 能被 3 整除的点是端点, 其他是控制点
procedure TForm1.FormPaint(Sender: TObject);
var
  Graphics: IGPGraphics;
  Pen: IGPPen;
  Brush: IGPBrush;
  Rect: TGPRect;
  i: Integer;
begin
  Graphics := TGPGraphics.Create(Handle);
  Pen := TGPPen.Create($FFFF0000, 2);
  Brush := TGPSolidBrush.Create($800000FF);

  Graphics.DrawBeziers(Pen, Pts);

  for i := 0 to Length(Pts) - 1 do
  begin
    Rect.Initialize(Pts[i].X - 4, Pts[i].Y - 4, 8, 8);
    if i mod 3 = 0 then
      Graphics.FillRectangle(Brush, Rect)
    else
      Graphics.FillEllipse(Brush, Rect);
  end;
end;

转载于:https://my.oschina.net/hermer/blog/320301

csdn产品小助手
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
一、使用GDI+画线
b644352184372385的博客
05-17 288
.Net中在System.Drawing命名空间下使用Graphics类画线。 有四种方法画线。 //绘制一条连接两个Point结构的线 DrawLine(Pen,Point,Point) //绘制一条连接两个PointF结构的线 DrawLine(Pen,PointF,PointF) //绘制一条连接由坐标对指定的两个点的线条 DrawLine(Pen,Int...
GdiPlus.h GdiPlus.h gdiplus.dll等
12-31
例如，你可能会用到`Gdiplus::Graphics`类来创建绘图对象，`Gdiplus::Bitmap`来处理位图，以及`Gdiplus::Pen`和`Gdiplus::SolidBrush`进行线条和填充。 6. **初始化和清理**：GDI+使用需要初始化和清理。通常在程序...
gdiplus绘制带透明通道文本
03-18 529
[list] [*]Private Sub Form_Load() [*]    InitGDIPlus [*]    [*]    Dim memBmp As Long, memGraphics As Long [*]    CreateBitmapWithGraphics memBmp, memGraphics, 200, 100, PixelFormat32bppARGB [*
再学 GDI+[4]: DrawEllipse - 绘制椭圆
weixin_30336061的博客
06-08 103
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPain...
gdiplus画直线
martinkeith的博客
02-13 614
转自：https://blog.csdn.net/yao_yu_126/article/details/10279287 1. 创建MFC应用程序, CMyApp 2. 在stdafx.h文件中加入GDI+支持 //GDI+支持 #include <gdiplus.h> using namespace Gdiplus; #pragma comment (lib,"Gdiplus...
gdiplus_windowsgdi+绘图类库_
10-03
除了这些基本元素，GDI+还包含了一些高级功能，如路径绘图（`GraphicsPath`类）、位图操作（`Bitmap`类）以及矩阵变换（`Matrix`类）。开发者可以利用这些工具实现复杂的图形效果，比如曲线、阴影、透明度等。 在...
GDIPlus类1.0模块-易语言
06-13
二、GDIPlus类结构与常用方法 1. 图像对象：在GDIPlus模块中，`GDIPlus::Image`类用于表示图像，包括位图、图标等。常用的方法有`Load`用于加载图片文件，`GetWidth`和`GetHeight`获取图像尺寸，`Draw`进行图像绘制...
易语言GDIPlus圆形图片
07-15
易语言是一种专为中国人设计的编程语言，它以简体中文作为编程语法，降低了编程的门槛，使得更多非计算机专业的人...通过掌握基本的GDIPlus图形操作和易语言的API调用，开发者可以创建出符合需求的各种图形界面和效果。
CGDIplus2Dlg::OnDrawEllipse()
autumn20080101的专栏
09-23 579
void CGDIplus2Dlg::OnDrawRectangle() { Pen* myPen = new Pen(Color(255, 255, 0, 0), 3);//红笔 Graphics* myGraphics; CClientDC dc(this); HDC hdc=dc.m_hDC; myGraphics = new Graphics(hdc);/
GDI+入门教程GDIPlus
09-09
非常不错的GDI+入门教程，适合初学者学习,word格式
GDIplus贴图上画线
08-04
GDI+ 贴图 背景 mfc c++ 画图，贴了一张图，在图上可以画画，用GDI+实现的，调试通过。以后改善继续更新。
再学 GDI+[6]: DrawPie - 绘制饼形
weixin_34242819的博客
06-09 174
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, ExtCtrls; type TForm1 = class(TFor...
使用GDI+保存带Alpha通道的图像
weixin_34315665的博客
03-03 346
带Alpha通道的图像（ARBG）在通过GDIPlus::Bitmap::FromHBITMAP等转为GDI+位图，再存储时，透明区域会变成纯黑（也有可能是纯白？）。 网上找了两段保持透明的实现代码，列在下边，经测试，第一段无效，第二段有效，这两段代码正好可以对比说明：FromHBITMAP在拷贝图像数据时，原图中的Alpha数据确实没有Copy过来，而并非是未设置图像属性的问题。 ...
画一个矩形
weixin_33701564的博客
11-07 212
2019独角兽企业重金招聘Python工程师标准>>> ...
GDI-Pen
-----------------------------不要在跟自己无关的事情上浪费时间
05-25 1207
#include LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM); void DrawLines(HWND); int WINAPI wWinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, PWSTR lpCmdLine, int nCmdShow) { MSG ms
GDI+学习记录(2)-画笔 Pen
曹江波的博客
09-01 1912
画笔(Pen)用于描述图形的轮廓，GDI+的画笔除了有常见的色彩和宽度属性外，还添加了其他的属性，如对齐方式、线帽、变换方式等高级属性。 private void button1_Click(object sender, EventArgs e) { //创建Graphics对象 Graphics g = this.Crea
再学 GDI+[11]: DrawCurve - 绘制曲线
weixin_33768481的博客
09-26 974
为什么80%的码农都做不了架构师？>>> ...
Gdiplus::Bitmap::FromStream
最新发布
06-08
`Gdiplus::Bitmap::FromStream` 是 GDI+ 库中的一个函数，用于从流中加载图像。其函数原型如下： ```c++ Gdiplus::Status FromStream( IStream *stream, BOOL useEmbeddedColorManagement = FALSE ); ``` 其中，...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值