下面这两句代码是什么意思? 谢谢
- Delphi(Pascal) code
IntersectRect(DstRect, RecRect, ViewRect); if not EqualRect(DstRect, RecRect) then begin with frmIFFormDesign.isbForm do begin HorzScrollBar.Position := RecRect.Left - Floor((ClientWidth - (RecRect.Right - RecRect.Left)) / 2); VertScrollBar.Position := RecRect.Top - Floor((ClientHeight - (RecRect.Bottom - RecRect.Top)) / 2); end; end;
最后两句是什么意思 ?
- Delphi(Pascal) code
HorzScrollBar.Position := RecRect.Left - Floor((ClientWidth - (RecRect.Right - RecRect.Left)) / 2); VertScrollBar.Position := RecRect.Top - Floor((ClientHeight - (RecRect.Bottom - RecRect.Top)) / 2);
[解决办法]
横向滚动条及竖向滚动条位置定位
[解决办法]
我不知道你的函数是怎么定义的!呵呵,这可能还是要靠你自己认真看看