Changeset 188 for trunk/Packages/CevoComponents/BaseWin.pas

Timestamp:

May 6, 2020, 11:21:12 PM (4 years ago)

Author:

chronos

Message:

• Modified: Simplified code by replacing BitBlt which uses always handles by BitBltCanvas which uses directly TCanvas objects. Used default ROP SRCCOPY.

File:

• trunk/Packages/CevoComponents/BaseWin.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -165 +165 @@
 procedure TBufferedDrawDlg.VPaint;
 begin
-  BitBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
-    Offscreen.Canvas.Handle, 0, 0, SRCCOPY);
+  BitBltCanvas(Canvas, 0, 0, ClientWidth, ClientHeight, Offscreen.Canvas, 0, 0);
 end;
 
@@ -454 +453 @@
     end;
 
-  BitBlt(Canvas.Handle, SideFrame, TitleHeight, ClientWidth - 2 * SideFrame,
-    InnerBottom - TitleHeight, Offscreen.Canvas.Handle, 0, 0, SRCCOPY);
+  BitBltCanvas(Canvas, SideFrame, TitleHeight, ClientWidth - 2 * SideFrame,
+    InnerBottom - TitleHeight, Offscreen.Canvas, 0, 0);
 end;