Ruler in Trichviewedit
I've add an public procedure to set the margins and page size
procedure TRVRuler.SetRVEMargins(ToPageSize,ToLeft,ToRight,ToTop,ToBottom:Extended);
begin
self.PageWidth := ToPageSize;
self.LeftMargin := ToLeft;
self.RightMargin := ToRight;
self.TopMargin := ToTop;
self.BottomMargin := ToBottom;
DoMarginChanged;
end;
procedure TRVRuler.SetRVEMargins(ToPageSize,ToLeft,ToRight,ToTop,ToBottom:Extended);
begin
self.PageWidth := ToPageSize;
self.LeftMargin := ToLeft;
self.RightMargin := ToRight;
self.TopMargin := ToTop;
self.BottomMargin := ToBottom;
DoMarginChanged;
end;
-
- Site Admin
- Posts: 17559
- Joined: Sat Aug 27, 2005 10:28 am
- Contact: