Skip to content

README.md

Latest commit

 

History

History
29 lines (24 loc) · 835 Bytes

README.md

File metadata and controls

29 lines (24 loc) · 835 Bytes

test

procedure TLayerViewer.InitialDisplayParams;
begin
  FRealRange:=Rect(0, 0, FPaintBoxRef.Width, FPaintBoxRef.Height); // 哈哈
  FViewRange:=Rect(0, 0, FPaintBoxRef.Width, FPaintBoxRef.Height);

  FVertiCurViewPosition   := 0;
  FVertiMinViewPosition   := 0;
  FVertiMaxViewPosition   := 0;
  FVertiPositionPerChange := FVertiScrollbarRef.SmallChange;

  FViewRange.Top:=FViewRange.Top + FVertiCurViewPosition;
  FViewRange.Bottom:=FViewRange.Bottom + FVertiCurViewPosition;

  if FHoriScrollbarOn then
  begin
    FHoriCurViewPosition   := 0;
    FHoriMinViewPosition   := 0;
    FHoriMaxViewPosition   := 0;
    FHoriPositionPerChange := FHoriScrollbarRef.SmallChange;

    FViewRange.Left:=FViewRange.Left + FHoriCurViewPosition;
    FViewRange.Right:=FViewRange.Right + FHoriCurViewPosition;
  end;
end;