Revision | c7413669facaba2e9f525d1447dc13c13af9d366 (tree) |
---|---|
Zeit | 2021-11-23 18:54:32 |
Autor | yamat0jp <yamat0jp@yaho...> |
Commiter | yamat0jp |
list.objects
@@ -40,8 +40,12 @@ begin | ||
40 | 40 | end; |
41 | 41 | |
42 | 42 | procedure TOKRightDlg.FormHide(Sender: TObject); |
43 | +var | |
44 | + i: Integer; | |
43 | 45 | begin |
44 | 46 | list.Assign(ValueListEditor1.Strings); |
47 | + for i := 0 to list.Count-1 do | |
48 | + list.Objects[i]:=nil; | |
45 | 49 | end; |
46 | 50 | |
47 | 51 | procedure TOKRightDlg.FormShow(Sender: TObject); |
@@ -127,6 +127,7 @@ end; | ||
127 | 127 | |
128 | 128 | procedure TForm1.startExecute(Sender: TObject); |
129 | 129 | begin |
130 | + complete := false; | |
130 | 131 | starting := TMyData.Create; |
131 | 132 | starting.left := PaintBox1.left + 10; |
132 | 133 | starting.top := PaintBox1.Height div 2; |
@@ -210,6 +211,7 @@ begin | ||
210 | 211 | end; |
211 | 212 | obj.Free; |
212 | 213 | end; |
214 | + complete := false; | |
213 | 215 | PaintBox1Paint(Sender); |
214 | 216 | end; |
215 | 217 |