Yin and yang: Difference between revisions
Content added Content deleted
No edit summary |
m (→{{header|Delphi}}: Fix syntax highlighting) |
||
Line 94:
=={{header|Delphi}}==
<lang delphi>procedure TForm1.ButtonCreateClick(Sender: TObject);▼
▲procedure TForm1.ButtonCreateClick(Sender: TObject);
begin
DrawYinAndYang(StrToInt(EditSize.Text), Canvas, GetClientRect);
Line 122 ⟶ 121:
DrawArea.Pen.Color := clblack;
DrawArea.Ellipse(10 + 7 * (size div 16), 10 + 3 * (size div 16), 10 + 9 * (size div 16),10 + 5 * (size div 16));
end;</lang>
=={{header|J}}==
| |||