Вопрос как твоё детище проглотит SetAlpha
Скорее всего будут видны не очень приятные куски овалов и прямоугольников.
Я бы использовал, если бы не этот неприятный момент.
Пардон, не увидел SetViewPort
Я использую:
Function DrawRoundRect(x:Int, y:Int, width:Int, height:Int, radius:Int = 10)
DrawOval(x, y, radius, radius)
DrawOval(x + (width - (radius)), y, radius, radius)
DrawOval(x, y + (height - (radius)), radius, radius)
DrawOval(x + (width - (radius)), y + (height - (radius)), radius, radius)
DrawRect(x + (radius / 2), y, width - radius, height)
DrawRect(x, y + (radius / 2), width, height - radius)
End Function
Те-же самые куски при частичной прозрачности. Но мне пока что нра. =)