Changeset 7 for trunk/UFormMain.pas
- Timestamp:
- Feb 11, 2014, 11:53:04 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UFormMain.pas
r6 r7 32 32 MenuItem7: TMenuItem; 33 33 PaintBox1: TPaintBox; 34 Timer1: TTimer; 34 35 procedure AExitExecute(Sender: TObject); 35 36 procedure AGameNewExecute(Sender: TObject); … … 50 51 procedure PaintBox1Paint(Sender: TObject); 51 52 procedure EraseBackground(DC: HDC); override; 53 procedure Timer1Timer(Sender: TObject); 52 54 private 53 55 StartMousePoint: TPoint; 54 56 StartViewPoint: TPoint; 55 57 MoveActive: Boolean; 58 RedrawPending: Boolean; 56 59 public 57 60 Game: TGame; 61 procedure Redraw; 58 62 end; 59 63 … … 72 76 procedure TFormMain.PaintBox1Paint(Sender: TObject); 73 77 begin 74 TPlayer(Game.Players[0]).Paint(PaintBox1); 78 with TPlayer(Game.Players[0]) do begin 79 View := Bounds(View.Left, View.Top, PaintBox1.Width, 80 PaintBox1.Height); 81 Paint(PaintBox1); 82 end; 75 83 end; 76 84 77 85 procedure TFormMain.EraseBackground(DC: HDC); 78 86 begin 87 end; 88 89 procedure TFormMain.Timer1Timer(Sender: TObject); 90 begin 91 if RedrawPending then begin 92 RedrawPending := False; 93 PaintBox1.Repaint; 94 end; 95 end; 96 97 procedure TFormMain.Redraw; 98 begin 99 RedrawPending := True; 79 100 end; 80 101 … … 95 116 FormNew.Save(Game); 96 117 Game.New; 97 PaintBox1.Repaint;118 Redraw; 98 119 end; 99 120 end; … … 116 137 StartViewPoint := Point(TPlayer(Game.Players[0]).View.Left, TPlayer(Game.Players[0]).View.Top); 117 138 MoveActive := True; 139 TPlayer(Game.Players[0]).SelectCell(Point(X, Y)); 140 Redraw; 118 141 end; 119 142 end; … … 133 156 TPlayer(Game.Players[0]).View.Bottom - TPlayer(Game.Players[0]).View.Top); 134 157 TPlayer(Game.Players[0]).SelectCell(Point(X, Y)); 135 PaintBox1.Repaint;158 Redraw; 136 159 end; 137 160 end; … … 148 171 with TPlayer(Game.Players[0]) do 149 172 ViewZoom := ViewZoom / ZoomFactor; 150 PaintBox1.Repaint;173 Redraw; 151 174 end; 152 175 … … 156 179 with TPlayer(Game.Players[0]) do 157 180 ViewZoom := ViewZoom * ZoomFactor; 158 PaintBox1.Repaint;181 Redraw; 159 182 end; 160 183
Note:
See TracChangeset
for help on using the changeset viewer.