做流程图程序的点滴

4.3

在项目中想实现按钮的弹起和按下的效果..其中阴影效果我折腾了半天.经过如下:想到三中解决方案:

1:在panel上实例化2个btn,通过他们的位置偏移 和canvas的颜色不同来产生效果,/

Rect:TRect;
begin
Rect := image1.BoundsRect;
Rect.Left := Rect.left+10;
Rect.top := Rect.top+10;
Rect.right := Rect.right+10;
Rect.Bottom := Rect.bottom+10;
Color := Canvas.Brush.Color ;
Canvas.Brush.Color := clbtnshadow;
Canvas.fillrect(Rect);
Canvas.brush.color:=Color;
end;
(缺点:1,只为了实现个阴影效果而创建了一个btn,资源上浪费太多,2,这个btn是相对来说独立的一个,可以被选中之类,这样如何把他们绑在一块需要考虑)

2:直接用他的canvas画2个图形.这里有个关键的地方,本来以为

    procedure DrawFlowShape(fsFlowShape:TFlowShapeType;intLeft:integer;
      intTop:integer;intWidth:integer;intHeight:integer);
只需要canvas的 传入 形状类型,还有canvas的 宽度和高度就可以画图形...但是这样的话一个canvas就只能

画一个图形,如果加入了intleft和inttop 函数的含义就变成 在画布特定的位置画一个特定大小的图象,这样使函数的

意义更广泛.关键代码(用了2天啊.哭)

    Canvas.Pen.Color := clBlack;
    Canvas.Brush.Color:=clBtnShadow;
    DrawFlowShape(FlowShape,2,2,width-3,height-3);

    Canvas.Pen.Color := clGreen;
    Canvas.Brush.Color:=clRed;
    DrawFlowShape(FlowShape,0,0,width-3,Height-3);

应该思路对了才动手去做,否则就算做出来了也是莫名其妙的。.