- Timestamp:
- Jan 11, 2017, 9:15:33 AM (8 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Term.pas
r47 r48 4152 4152 end; 4153 4153 4154 function ScrollDCCopy(Canvas: TCanvas; dx: longint; dy: longint; const lprcScroll:RECT; const lprcClip:RECT; hrgnUpdate:HRGN; lprcUpdate:LPRECT):WINBOOL; 4155 begin 4156 BitBltCanvas(Canvas, lprcScroll.Left + dx, lprcScroll.Top + dy, lprcScroll.Right - lprcScroll.Left, lprcScroll.Bottom - lprcScroll.Top, 4157 Canvas, lprcScroll.Left, lprcScroll.Top, SRCCOPY); 4158 end; 4159 4154 4160 procedure TMainScreen.MainOffscreenPaint; 4155 4161 var … … 4198 4204 offscreen.Canvas.Font.Assign(UniFont[ftSmall]); 4199 4205 rec := Rect(0, 0, MapWidth, MapHeight); 4200 {$IFDEF WINDOWS} { TODO Linux }4206 {$IFDEF WINDOWS} 4201 4207 ScrollDC(offscreen.Canvas.Handle, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, 4202 4208 rec, rec, 0, nil); 4203 4209 {$ENDIF} 4210 {$IFDEF LINUX} 4211 // Fallback to bitblt 4212 ScrollDCCopy(offscreen.Canvas, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, 4213 rec, rec, 0, nil); 4214 {$ENDIF} 4204 4215 for DoInvalidate := false to FastScrolling do 4205 4216 begin … … 4207 4218 begin 4208 4219 rec.Bottom := MapHeight - overlap; 4209 {$IFDEF WINDOWS} { TODO Linux }4220 {$IFDEF WINDOWS} 4210 4221 ScrollDC(Canvas.Handle, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, rec, 4211 4222 rec, 0, nil); 4223 {$ENDIF} 4224 {$IFDEF LINUX} 4225 // Fallback to bitblt 4226 ScrollDCCopy(Canvas, (xwd - xw) * (xxt * 2), (ywd - yw) * yyt, 4227 rec, rec, 0, nil); 4212 4228 {$ENDIF} 4213 4229 ProcessOptions := prInvalidate; -
trunk/ScreenTools.pas
r47 r48 810 810 begin 811 811 Assert(Rop = SRCCOPY); 812 DestCanvas.CopyRect(Rect(X, X, Width,Height), SrcCanvas,812 DestCanvas.CopyRect(Rect(X, Y, X + Width, Y + Height), SrcCanvas, 813 813 Rect(XSrc, YSrc, XSrc + Width, YSrc + Height)); 814 814 end;
Note:
See TracChangeset
for help on using the changeset viewer.