1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| Procedure DrawRoundRect (G : System.Drawing.Graphics;
Color, BorderColor : Color; R : Rectangle; X, Y : Integer);
Var FSelectColor,
FSelectBorderColor : System.Drawing.Color;
Pen : System.Drawing.Pen;
Brush : System.Drawing.Brush;
GPath : System.Drawing.Drawing2D.GraphicsPath;
Begin
GPath := System.Drawing.Drawing2D.GraphicsPath.Create;
GPath.AddArc(Rectangle.Create(R.Left, R.Top, X * 2, Y * 2),180, 90);
GPath.AddLine(r.Left + X, r.Top, R.Right - X, r.Top);
GPath.AddArc(Rectangle.Create(r.Right - 2 * X - 1, R.Top, 2 * X, 2 * Y),270, 90);
GPath.AddLine(r.Right - 1, r.Top + Y, r.Right - 1, r.Bottom - Y);
GPath.AddArc(r.Right - 2 * X - 1, r.Bottom - 2 * Y - 1, 2 * X, 2 * Y, 0, 90);
GPath.AddLine(r.Right - X - 1, r.Bottom - 1, r.Left + X, r.Bottom - 1);
GPath.AddArc(r.Left, r.Bottom - 1 - 2 * Y, 2 * X, 2 * Y, 90,90);
GPath.AddLine(r.Left, r.bottom - Y - 1, R.Left, r.Top + Y);
Pen := System.Drawing.Pen.Create (BorderColor, 1);
Brush := System.Drawing.SolidBrush.Create(Color);
G.FillPath(Brush, GPath);
G.DrawPath(Pen, GPath);
End; |
Christian S.
