Changeset 15 for trunk/LocalPlayer
- Timestamp:
- Jan 7, 2017, 10:16:37 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Term.pas
r12 r15 4205 4205 offscreen.Canvas.Font.Assign(UniFont[ftSmall]); 4206 4206 rec := Rect(0, 0, MapWidth, MapHeight); 4207 { TODOScrollDC(offscreen.Canvas.Handle, (xwd - xw) * (xxt * 2),4208 (ywd - yw) * yyt, rec, rec, 0, nil); }4207 ScrollDC(offscreen.Canvas.Handle, (xwd - xw) * (xxt * 2), 4208 (ywd - yw) * yyt, rec, rec, 0, nil); 4209 4209 for DoInvalidate := false to FastScrolling do 4210 4210 begin … … 4212 4212 begin 4213 4213 rec.Bottom := MapHeight - overlap; 4214 { TODOScrollDC(Canvas.Handle, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, rec,4215 rec, 0, nil); }4214 ScrollDC(Canvas.Handle, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, rec, 4215 rec, 0, nil); 4216 4216 ProcessOptions := prInvalidate; 4217 4217 end … … 7789 7789 procedure TMainScreen.mLogClick(Sender: TObject); 7790 7790 begin 7791 LogDlg.Show 7791 LogDlg.Show; 7792 7792 end; 7793 7793 7794 7794 procedure TMainScreen.FormShow(Sender: TObject); 7795 7795 begin 7796 Timer1.Enabled := true 7796 Timer1.Enabled := true; 7797 Left := 0; 7798 Top := 0; 7797 7799 end; 7798 7800 7799 7801 procedure TMainScreen.FormClose(Sender: TObject; var Action: TCloseAction); 7800 7802 begin 7801 Timer1.Enabled := false 7803 Timer1.Enabled := false; 7802 7804 end; 7803 7805 7804 7806 procedure TMainScreen.Radio(Sender: TObject); 7805 7807 begin 7806 TMenuItem(Sender).Checked := true 7808 TMenuItem(Sender).Checked := true; 7807 7809 end; 7808 7810
Note:
See TracChangeset
for help on using the changeset viewer.