GDI+ Неплохой результат, но получить прозрачность не удается:
| Код |
Unit Unit2;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, GdiPlus, PngImage;
Type
TForm2 = Class(TForm)
Image1: TImage;
Image2: TImage;
Procedure FormCreate(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
End;
Var
Form2: TForm2;
Procedure AntialiasingLine;
Implementation
{$R *.dfm}
Procedure TForm2.FormCreate(Sender: TObject);
Begin
AntialiasingLine;
End;
Procedure AntialiasingLine;
Var
Graphics: IGPGraphics;
PNG: TPngImage;
Pen: IGPPen;
Points: Array[0..9] Of TGPPoint;
Begin
PNG := TPngImage.CreateBlank(Color_RGB, 8, 790, 383);
Graphics := TGPGraphics.Create(PNG.Canvas.Handle);
Graphics.Clear(TGPColor.White);
Pen := TGPPen.Create(TGPColor.Red, 5);
Graphics.SmoothingMode := SmoothingModeHighQuality;
Points[0].Initialize(1, 350);
Points[1].Initialize(170, 350);
Points[2].Initialize(200, 80);
Points[3].Initialize(320, 80);
Points[4].Initialize(340, 370);
Points[5].Initialize(460, 370);
Points[6].Initialize(480, 80);
Points[7].Initialize(600, 80);
Points[8].Initialize(620, 350);
Points[9].Initialize(789, 350);
Graphics.DrawLines(Pen, Points);
//PNG.TransparentColor := PNG.Canvas.Pixels[0, 0];
//PNG.Transparent := True;
Form2.Image1.Picture.Assign(PNG);
End;
End.
|
Если же раскомментировать 2 строчки:
| Код |
PNG.TransparentColor := PNG.Canvas.Pixels[0, 0];
PNG.Transparent := True;
|
То результат:
|
