Citat:
Ursprungligen postat av chaos
Någon vändlig skäl som kan skriva hur koden nedan ( visual basic ) ska se ut i Delphi ? har frågat innan men inte fått något svar =(
[code:1]
Sub DrawFace()
Picture1.FillStyle = vbSolid
Picture1.FillColor = vbYellow
Picture1.Circle (48, 48), 45
Picture1.FillColor = vbBlack
Picture1.Circle (30, 35), 10
Picture1.Circle (65, 35), 10
Picture1.Circle (47, 55), 8
Picture1.DrawWidth = 2
Picture1.Circle (48, 50), 30, 3.4, 6, 1#
End Sub[/code:1]
fråga i #delphi på quakenet...