背景が透明な線を描画するには、どのようなアプローチが良いか？ (ID:20603)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>（Ａ）（Ｂ）について、アドバイスをいただけますか？

これは現状の質問内容からは難しいです．例えばTLableだってPaintメソッドを
実装すれば以下のように図形，文字列も描画可能です．

type
  TMyLable =class(TLabel)
  protected
    { Protected 宣言 }
    procedure Paint; override;
  end;

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

var
  ALable : TMyLable;

procedure TForm1.Button1Click(Sender: TObject);
begin
     ALable:=TMyLable.Create(Self);
     with ALable do begin
       Parent:=Self;
       Left  :=100;
       Top   :=50;
       Width :=200;
       Height:=100;
     end;
end;

{ TMyLable }

procedure TMyLable.Paint;
begin
  inherited;
   with ALable do begin
     Canvas.Pen.Width:=3;
     Canvas.Pen.Color:=clGreen;
     Canvas.MoveTo(0,0);
     Canvas.LineTo(200,100);
     Canvas.Font.Size:=20;
     Canvas.TextOut(20,30,'喫茶XRAY');
   end;
end;

>オートシェイプのように図形を表示したいと考えています。
単に図形を表示するのであれば，TPaintBoxなりTImageのCanvasに描けば
OKなわけです．また

>あらかじめ２００個程度のPaintBox...

一つのTPaintBox,TImageのCanvasにいくつでも図形は描画できます．
原理的に，図形ごとに用意する必要はありません．もちろん，これは作成
したいアプリにもよります．
つもり，デル太さんが一体どのような動作をするプログラムを作成したい
かが具体的にわからないとアドバイスは難しいということです．

←解決時は質問者本人がここをチェックしてください。

戻る