unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, GDIPAPI, GDIPOBJ;

type
  TMyPanel = class(TPanel)
  protected
    procedure Paint; override;
  public
    FBrushColor : Cardinal;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    ColorDialog1: TColorDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    MyPanel : TMyPanel;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := 'GDI+ CircleEllipse';

  //TMyPanelを生成して配置
  MyPanel := TMyPanel.Create(Self);
  with MyPanel do begin
    Parent  := Self;
    Left    := 5;
    Top     := 35;
    Width   := Self.ClientWidth  - 10;
    Height  := Self.ClientHeight - Top - 5;
    Anchors := [akLeft, akTop, akRight, akBottom];
    Color   := clWhite;
    ParentBackground := False;
    DoubleBuffered   := True;

    FBrushColor := aclLime;
  end;
end;

//=============================================================================
//  ブラシの色を変更する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  ColorDialog1.Color := ARGBToColorRef(MyPanel.FBrushColor);
  if ColorDialog1.Execute then begin
    MyPanel.FBrushColor := ColorRefToARGB(ColorDialog1.Color);
  end;
  MyPanel.Invalidate;
end;

{ TMyPanel }

//-----------------------------------------------------------------------------
//  TMyPanelクラスのPaintメソッド
//  実際の描画コード
//  楕円描画の例
//-----------------------------------------------------------------------------
procedure TMyPanel.Paint;
var
  LGPGraphic : TGPGraphics;
　LGPPen     : TGPPen;
  LGPBrush   : TGPSolidBrush;
  LGPRect    : TGPRect;
  LLeft      : Integer;
  LTop       : Integer;
  LDiameterW : Integer;
  LDiameterH : Integer;
  LPenWidth  : Integer;
begin
  inherited;

  LLeft  := 20;
  LTop   := 20;
  LDiameterW := 230;
  LDiameterH := 130;
  LPenWidth  := 13;


  //ペンのオブジェクトを生成
  LGPPen := TGPPen.Create(aclSkyBlue, LPenWidth);
  //TGPSolidBrushを生成
  LGPBrush := TGPSolidBrush.Create(FBrushColor);

  //描画領域を指定
  LGPRect := MakeRect(LLeft, LTop, LDiameterW, LDiameterH);

  //TGPGraphicsオブジェクトを生成
  LGPGraphic := TGPGraphics.Create(Canvas.Handle);

  //内部を塗り潰す
  //塗り潰す必要がなければ実行する必要はない(ブラシの設定も不要)
  LGPGraphic.FillEllipse(LGPBrush, LGPRect);

  //周囲の枠線を描画
  //線の描画関係の関数名はDrawXXXX
  LGPGraphic.DrawEllipse(LGPPen, LGPRect);


  //参考描画
  //既に生成したTGPPenオブジェクトの色と線の太さを変更して四角形を描画
  LGPPen.SetColor(aclBlack);
  LGPPen.SetWidth(1.0);
  LGPGraphic.DrawRectangle(LGPPen, LGPRect);

  //Createしたオブジェクトは解放処理する
  LGPPen.Free;
  LGPBrush.Free;
  LGPGraphic.Free;
end;

end.

//-----------------------------------------------------------------------------
//  TMyPanelクラスのPaintメソッド
//  実際の描画コード
//-----------------------------------------------------------------------------
procedure TMyPanel.Paint;
var
  LGPGraphic : TGPGraphics;
　LGPPen     : TGPPen;
  LGPRect    : TGPRect;
  LLeft      : Integer;
  LTop       : Integer;
  LDiameterW : Integer;
  LDiameterH : Integer;
  LPenWidth  : Integer;
begin
  inherited;

  LLeft  := 50;
  LTop   := 30;
  LDiameterW := 80;
  LDiameterH := 80;
  LPenWidth  := 1;


  LGPPen  := TGPPen.Create(aclBlack, LPenWidth);
  LGPRect := MakeRect(LLeft, LTop, LDiameterW, LDiameterH);

  //アンチエイリアスの設定なしで描画
  LGPGraphic := TGPGraphics.Create(Canvas.Handle);
  LGPGraphic.DrawEllipse(LGPPen, LGPRect);

  LGPRect := MakeRect(LLeft + LDiameterW + 20, LTop, LDiameterW, LDiameterH);

  //アンチエイリアスの設定をして描画
  LGPGraphic.SetSmoothingMode(SmoothingModeAntiAlias);
  LGPGraphic.DrawEllipse(LGPPen, LGPRect);

  LGPPen.Free;
  LGPGraphic.Free;
end;