Changeset 19 for trunk/UFormMain.pas
- Timestamp:
- Feb 27, 2014, 7:43:00 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UFormMain.pas
r18 r19 210 210 procedure TFormMain.PaintBox1MouseWheelDown(Sender: TObject; 211 211 Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); 212 begin 213 with Game.CurrentPlayer do 212 var 213 D: TPoint; 214 begin 215 with Game.CurrentPlayer do begin 216 D := Point(Trunc(MousePos.X - Game.CurrentPlayer.View.Left / ViewZoom), 217 Trunc(MousePos.Y - Game.CurrentPlayer.View.Top / ViewZoom)); 214 218 ViewZoom := ViewZoom / ZoomFactor; 219 //View := Bounds(Trunc((D.X - MousePos.X) * ViewZoom), 220 // Trunc((D.Y - MousePos.Y) * ViewZoom), 221 // View.Right - View.Left, 222 // View.Bottom - View.Top); 223 end; 215 224 Redraw; 216 225 end;
Note:
See TracChangeset
for help on using the changeset viewer.