HScrollInfo example for Delphi
var
msg: string;
begin
if (LEADImage1.HScrollInfo.Visible) then
begin
LEADImage1. HScrollInfo.Page := Trunc (LEADImage1.HScrollInfo.Max / 10 ) ;
LEADImage1.HScrollInfo.Line := 10;
end;
if (LEADImage1.VScrollInfo.Visible) then
begin
LEADImage1.VScrollInfo.Page := Trunc ( LEADImage1.VScrollInfo.Max / 10 ) ;
LEADImage1.VScrollInfo.Line := 10;
end;
msg:= 'HScrollMin: ' + IntToStr (LEADImage1.HScrollInfo.Min) + Chr(13);
msg:= msg + 'HScrollMax: ' + IntToStr(LEADImage1.HScrollInfo.Max) + Chr(13);
msg:= msg + 'VScrollMin: ' + IntToStr(LEADImage1.VScrollInfo.Min) + Chr(13);
msg:= msg + 'VScrollMax: ' + IntToStr(LEADImage1.VScrollInfo.Max) + Chr(13);
msg:= msg + '-------------'+ Chr(13);
msg:= msg + 'HScrollPage: ' + IntToStr(LEADImage1.HScrollInfo.Page)+ Chr(13);
msg:= msg + 'HScrollLine: ' + IntToStr(LEADImage1.HScrollInfo.Line)+ Chr(13);
msg:= msg + 'VScrollPage: ' + IntToStr(LEADImage1.VScrollInfo.Page)+ Chr(13);
msg:= msg + 'VScrollLine: ' + IntToStr(LEADImage1.VScrollInfo.Line)+ Chr(13);
msg:= msg + '-------------'+ Chr(13);
msg:= msg + 'HScrollPos: ' + IntToStr(LEADImage1.HScrollInfo.Pos) + Chr(13);
msg:= msg + 'VScrollPos: ' + IntToStr(LEADImage1.VScrollInfo.Pos) + Chr(13);
msg:= msg + '-------------'+ Chr(13);
msg:= msg + 'HScrollWidth: ' + IntToStr(LEADImage1.HScrollInfo.Width)+ Chr(13);
msg:= msg + 'VScrollWidth: ' + IntToStr(LEADImage1.VScrollInfo.Width)+ Chr(13);
ShowMessage ( msg ) ;
end;