画一个封闭的框很容易,如何画成如图所示的漂亮框框?
解决方案 »
- listView checked的问题 希望大家帮个忙~
- 在delphi页面中如何插入gif图片?
- 怎样Boolean类型数据在Dbgrid中显示成复选按扭的型式,谁有这样的带复选按扭的Dbgrid控件能不能给我发一个。
- 【求助】问一个很简单的入门问题
- 谁能告诉我Win2000 server 的CD-Key?
- 这样创建的CheckBox为什么不能显示.
- Query怎样才能读取文本文件的内容
- TAChart控件的使用
- Delphi超级新手可以看什么书??
- 在安装ZIPtv组件时,Delphi出现"file not found dsgnint.dcu",请各位给以指点!
- Tparrms用法
- 谁能帮助把这个代码转成C++?谢谢
PolyPolygon(
DC: HDC; {设备环境句柄}
var Points; {点数组}
var nPoints;{数组, 数组元素是每个多边形的顶点数}
p4: Integer {多边形数, 也就是 nPoints 的元素数}
): BOOL;
绘制一组多边形
top
right
bottom Canvas.Rectangle(left, top, right, bottom);矩形框是用这个代码画出来的,如何用 moveto lineto 画出我要的效果?
Canvas.Rectangle(10,10,110,110);
Canvas.FillRect(Rect(30,10, 90, 110));
Canvas.FillRect(Rect(10,30, 110, 90));
const size = 5;
var
x, y: integer;
begin
x := (r.Right - r.Left) div size;
y := (r.Bottom - r.Top) div size;
c.Pen.Style := psSolid; with c, r do
begin
MoveTo(left, top);
LineTo(left, top + y);
MoveTo(left, bottom);
LineTo(left, Bottom - y); MoveTo(left, top);
LineTo(left + x, Top);
MoveTo(right, top);
LineTo(Right - x, top); MoveTo(right, top);
LineTo(Right, top + y);
MoveTo(right, Bottom);
LineTo(Right, Bottom - y); MoveTo(Left, Bottom);
LineTo(Left + x, bottom);
moveto(Right, Bottom);
LineTo(right - x, bottom);
end;
end;demo: drawYours( formX.canvas, rect(20,20,200,200));
已搞定