图片对称问题

Question

 Lp := Bmp.ScanLine[Ir];          Ix := -1 + RxM[Ir];                  
          Enm := -1 + LxM[Ir];                  
            While (Ix >= Enm) Do                 
          Begin                                 
            TpBt := Lp[Ix];
            Lp[Ix] := Lp[Enm];
            Lp[Enm] := TpBt;                      
            Inc(Enm);                            
          End; 和 Lp := Bmp.ScanLine[Ir];
Ix := -1 + RxM[Ir];                  
          Enm := -1 + LxM[Ir];      
             SrcRect := Rect(Enm,Ir, Ix,Ir);
                 DstRect := Rect(Ix,Ir, Enm,Ir);
             with Bmp do
          Canvas.CopyRect(DstRect, Canvas, SrcRect);结果为什么不样，要怎么改才能上面的一样

Answer 1

SrcRect := Rect(Enm,Ir, Ix, Ir); 
DstRect := Rect(Ix, Ir, Enm,Ir); 
这两个矩形高度是0

Answer 2

矩形的高度等于 Rect.Bottom - Rect.Top，你这里Ir - Ir = 0.