掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
描画中の線や図形を仮表示するには (ID:33465)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
色々試したら、自力で何とかここまで出来ました＾＾。 まだバグバグですが＾＾； 突っ込みどころあったらよろしくお願いしますｍ（＿＿）ｍ。 var Form1: TForm1; x1,y1,x2,y2:integer; sw:boolean=false; implementation {$R *.dfm} procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin sw := true;; x1 := x; y1 := y; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if sw then begin canvas.LineTo(x2,y2); Canvas.Pen.Color := clWhite; Canvas.Pen.Mode := pmXor; canvas.MoveTo(x1,y1); canvas.LineTo(x,y); end; canvas.MoveTo(x1,y1); x2 := x; y2 := y; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin sw := false; canvas.LineTo(x2,y2); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.