Mega Code Archive

 

Categories / Delphi / Graphic

 

Text,elips

//x,y integer olmalı// form1.image1.Canvas.Brush.Color := clblue; form1.image1.Canvas.Ellipse(x+32, y-32, x+40,y-40); form1.image1.Canvas.Font.Color := clyellow; form1.image1.Canvas.Font.size:=1 ; form1.image1.Canvas.TextOut(x+39, y-56 ,dbedit1.text);