Лекция: EndWith

Pen= CreatePenIndirect(mLP)OldPen= SelectObject(Form1.hdc, Pen)Ifi = 1 ThenCallRectangle(Form1.hdc,20,30,70,80)Ifi = 2 ThenCallEllipse(Form1.hdc,100,30,150,80)Ifi = 3 ThenCall_Pie(Form1.hdc,180,30,230,80,180,30,230,30)Ifi = 4 ThenCall_Chord(Form1.hdc, 260, 30, 310, 80,260,30,310,50)Ifi = 5 ThenCall_RoundRect(Form1.hdc,20,120,70,170,25,25)if i = 6 ThenCallSelectObject(Form1.hdc, OldPen)W.x= 3mLP.lopnWidth= WPen= CreatePenIndirect(mLP)

OldPen= SelectObject(Form1.hdc, Pen)CallArc(Form1.hdc,200,100,320,200,350,250, 200,400)CallMoveToEx(Form1.hdc, 400, 250, lpp)CallLineTo(Form1.hdc, 260, 150)CallLineTo(Form1.hdc, 190, 250)CallFloodFill(Form1.hdc, 250, 120, &HFF)EndIfCallSelectObject(Form1.hdc, OldPen)NextCallSelectObject(Form1.hdc, OldBrush)EndSubPrivateSubForm_Load()Caption= «Примеротображенияграфическихпримитивов»End Sub