掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
背景が透明な線を描画するには、どのようなアプローチが良いか？ (ID:20602)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たとえば以下のコードです． ただし，図形などを扱うアプリは，どこに，どのように表示し，操作するかに よって，かなりコーディングを変える必要があるでしょう．もう少し具体的な 方針が決まれば，また他の方法もあります． Form1にTImageを2つ，TButtonを1つ配置して下さい． procedure TForm1.Button1Click(Sender: TObject); begin with Image1 do begin Transparent:=True; Top :=0; Left :=0; Width :=100; Height :=100; Canvas.Brush.Style :=bsClear; Canvas.Brush.Color :=clWhite; Canvas.FillRect(ClientRect); Canvas.Pen.Width:=5; Canvas.Pen.Color:=clRed; Canvas.MoveTo(0,0); Canvas.LineTo(100,100); end; with Image2 do begin Transparent:=True; Top :=30; Left :=30; Width :=100; Height :=100; Canvas.Brush.Style :=bsClear; Canvas.Brush.Color :=clWhite; Canvas.FillRect(ClientRect); Canvas.Pen.Width :=5; Canvas.Pen.Color :=clBlack; Canvas.MoveTo(20,0); Canvas.LineTo(50,100); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.