在IF语句里怎么画图形呢？

Question

if buwei01='电器' then
    begin
         if shijiks=0 then
           begin
             Image1.Canvas.Brush.color:=clred;  //网络图(4)填充为红色
             Image1.Canvas.Rectangle(220,140,270,160);//网络图(4.3)大小设置
           end;
        if shijiks>StrToTime(dianqkais) then
           begin
             Image1.Canvas.Brush.color:=clLime;   //网络图(4)填充为红色
             Image1.Canvas.Rectangle(220,140,270,160);//网络图(4.3)大小设置
           end;
大家看。就是这样的一段代码。运行后即不报错，也不画图。谁知道怎么回事？

Answer 1

结尾少了一个end;  呵呵

Answer 2

一会Delphi都让你给祸害S了shijiks类型有问题吧！

Answer 3

         if shijiks=0 then
           begin
             Image1.Canvas.Brush.color:=clred;  //网络图(4)填充为红色
             Image1.Canvas.Rectangle(220,140,270,160);//网络图(4.3)大小设置
           end;
 else
 begin
             Image1.Canvas.Brush.color:=clyello;  //网络图(4)填充为黄色
             Image1.Canvas.Rectangle(220,140,270,160);//网络图(4.3)大小设置
   end;
        if shijiks>StrToTime(dianqkais) then
           begin
             Image1.Canvas.Brush.color:=clLime;   //网络图(4)填充为红色
             Image1.Canvas.Rectangle(220,140,270,160);//网络图(4.3)大小设置
           end;
 else
   begin
             Image1.Canvas.Brush.color:=clblack;  //网络图(4)填充为黑色
             Image1.Canvas.Rectangle(220,140,270,160);//网络图(4.3)大小设置
   end;

Answer 4

设置一下填充模式，Image1.Canvas.Brush.Style:=bsSolid;