equal
deleted
inserted
replaced
95 end; |
95 end; |
96 |
96 |
97 procedure InitZoom(zoom: real); |
97 procedure InitZoom(zoom: real); |
98 begin |
98 begin |
99 SetScale(zoom); |
99 SetScale(zoom); |
100 UpdateViewLimits(); |
|
101 end; |
100 end; |
102 |
101 |
103 function WriteInRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: PChar): TSDL_Rect; |
102 function WriteInRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: PChar): TSDL_Rect; |
104 var w, h: LongInt; |
103 var w, h: LongInt; |
105 tmpsurf: PSDL_Surface; |
104 tmpsurf: PSDL_Surface; |