实例——重新显示当前页.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 13 行

procedure TRpPreviewForm.RvRenderPreview1ZoomChange(Sender: TObject)；
var   String1: string[10]；
begin
     Str(RvRenderPreview1.ZoomFactor:1:1,String1)；
// 将double类型的ZoomFactor缩放百分数根据指定的位数转换为串，
//并存入到String1中
     ZoomEdit.Text := S1；
     // 显示新的缩放因子
     RvRenderPreview1.RedrawPage；
 // 在预览屏幕上重新显示当前报表页
end；