質問編集履歴
1
楕円部分のコーディングを修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -161,12 +161,12 @@
|
|
|
161
161
|
else if FShape = stEllipse then
|
|
162
162
|
begin
|
|
163
163
|
with Canvas do begin
|
|
164
|
-
//
|
|
164
|
+
// フォームのColor色で塗りつぶし
|
|
165
|
-
Brush.Color:=
|
|
165
|
+
Brush.Color:= Color;
|
|
166
166
|
Brush.Style:= bsSolid;
|
|
167
167
|
FillRect(Rect(Left, Top, (Left+Width), (Top+Height)));
|
|
168
|
-
//
|
|
168
|
+
// ↓の図形内部の色を決めるBrushに何を書けばいいかわからない
|
|
169
|
-
Brush.Color:= Color;
|
|
169
|
+
Brush.Color:= Brush.Color;
|
|
170
170
|
Brush.Style:= bsSolid;
|
|
171
171
|
// 黒色で太さ1で枠線描画
|
|
172
172
|
Pen.Color:= clBlack;
|