Changeset 188 for trunk/Packages/CevoComponents/EOTButton.pas
- Timestamp:
- May 6, 2020, 11:21:12 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CevoComponents/EOTButton.pas
r184 r188 38 38 procedure Register; 39 39 40 40 41 implementation 42 43 uses 44 ScreenTools; 41 45 42 46 procedure Register; … … 125 129 begin 126 130 // TODO: For some reason BitBlt is not working with gray background here 127 //BitBlt(Buffer.Canvas.Handle, 0, 0, 48, 48, Back.Canvas.Handle, 0, 128 // 0, SRCCOPY); 131 //BitBltCanvas(Buffer.Canvas, 0, 0, 48, 48, Back.Canvas, 0, 0); 129 132 Buffer.Canvas.Draw(0, 0, Back); 130 133 ImageOp_CBC(Buffer, Template, 0, 0, 133, 149 + 48 * Byte(FDown), 48, 48, … … 133 136 ImageOp_CBC(Buffer, Template, 8, 8, 1 + 32 * Byte(FIndex), 246, 32, 32, 134 137 $000000, $FFFFFF); 135 BitBlt (Canvas.Handle, 0, 0, 48, 48, Buffer.Canvas.Handle, 0, 0, SRCCOPY);138 BitBltCanvas(Canvas, 0, 0, 48, 48, Buffer.Canvas, 0, 0); 136 139 end 137 140 else … … 165 168 procedure TEOTButton.SetBack(ca: TCanvas; x, y: integer); 166 169 begin 167 BitBlt (Back.Canvas.Handle, 0, 0, 48, 48, ca.Handle, x, y, SRCCOPY);170 BitBltCanvas(Back.Canvas, 0, 0, 48, 48, ca, x, y); 168 171 end; 169 172
Note:
See TracChangeset
for help on using the changeset viewer.