equal
deleted
inserted
replaced
94 end; |
94 end; |
95 |
95 |
96 procedure InitZoom(zoom: real); |
96 procedure InitZoom(zoom: real); |
97 begin |
97 begin |
98 SetScale(zoom); |
98 SetScale(zoom); |
|
99 // make sure view limits are updated |
|
100 // because SetScale() doesn't do it, if zoom=cScaleFactor |
|
101 updateViewLimits(); |
99 end; |
102 end; |
100 |
103 |
101 function WriteInRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: PChar): TSDL_Rect; |
104 function WriteInRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: PChar): TSDL_Rect; |
102 var w, h: LongInt; |
105 var w, h: LongInt; |
103 tmpsurf: PSDL_Surface; |
106 tmpsurf: PSDL_Surface; |