Bilet ¹23, savol ¹3
Bitta button o‟rnatib, uning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Canvas.Brush.Color:=clred; form1.Canvas.Ellipse(50,50,450,450);
form1.Canvas.Brush.Color:=clblue; form1.Canvas.Ellipse(100,100,400,400);
form1.Canvas.Brush.Color:=clyellow; form1.Canvas.Ellipse(150,150,350,350);
form1.Canvas.Brush.Color:=clgreen; form1.Canvas.Ellipse(200,200,300,300);
form1.Canvas.Brush.Color:=clgray; form1.Canvas.Ellipse(225,225,275,275); end;
Fan:
Informatika fanidan imtixon savollariga javoblar 10 sinf
Bilet: ¹23
"BSB-CHSB.com" © 2024 - Maktab o'quvchilari, abituriyentlar, talabalar va o'qituvchilar uchun ma'lumot portali