Changeset 98 for trunk/UView.pas
- Timestamp:
- Sep 28, 2022, 1:45:58 PM (20 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UView.pas
r91 r98 18 18 procedure SetZoom(AValue: Double); 19 19 public 20 procedure Assign(Source: TView); 20 21 function PointDestToSrc(Pos: TPoint): TPoint; 21 22 function PointSrcToDest(Pos: TPoint): TPoint; … … 76 77 end; 77 78 79 procedure TView.Assign(Source: TView); 80 begin 81 FDestRect := Source.FDestRect; 82 FSourceRect := Source.FSourceRect; 83 FZoom := Source.FZoom; 84 end; 85 78 86 function TView.PointDestToSrc(Pos: TPoint): TPoint; 79 87 begin
Note:
See TracChangeset
for help on using the changeset viewer.