BGRABitmap图像操作6:开放线头,即一头为突出,另一头为凹进
2016-09-03 20:57
330 查看
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
BGRABitmap, BGRABitmapTypes;
type
{ TForm1 }
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormPaint(Sender: TObject);
var image: TBGRABitmap;
c: TBGRAPixel;
begin
image := TBGRABitmap.Create(ClientWidth,ClientHeight,ColorToBGRA(ColorToRGB(clBtnFace)));
c := ColorToBGRA(ColorToRGB(clWindowText));
image.DrawPolyLineAntialias([PointF(40,200), PointF(120,100), PointF(170,140), PointF(250,60)],c,10,False);
image.Draw(Canvas,0,0,True);
image.free;
end;
end.
相关文章推荐
- BGRABitmap图像操作1:最简单的例子,在窗体上画一个长方体
- BGRABitmap图像操作3:用鼠标在窗体画断续的曲线
- BGRABitmap图像操作3:用鼠标在窗体画连续的曲线
- BGRABitmap图像操作4:直接操作像素
- BGRABitmap图像操作4:直接操作像素,使用HSLA colorspace
- BGRABitmap图像操作4:直接操作像素,颜色校正
- BGRABitmap图像操作5:使用层、遮罩
- BGRABitmap图像操作5:擦除部分图像
- BGRABitmap图像操作5:画出月亮、太阳、灯光
- BGRABitmap图像操作6:使用不同的线型与形状
- BGRABitmap图像操作6:前面的长方形改成圆角
- BGRABitmap图像操作6:前面的长方形改成既有圆角又有尖角
- BGRABitmap图像操作6:改变笔型,创建点线
- BGRABitmap图像操作6:平的线头
- BGRABitmap图像操作的其余内容链接
- BGRABitmap图像操作14:对形状进行变换
- BGRABitmap图像操作14:复杂形状
- BGRABitmap图像操作14:BGRABitmap的 Canvas2D
- BGRABitmap图像操作13:前一个例子,更改canvas为CanvasBGRA
- BGRABitmap图像操作13:标准坐标系统下像素级别例子