cheveguerra/Izca_Reparto_Creditos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Izca_Reparto_Creditos.git synced 2026-04-20 06:09:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Javier
2025-10-07 17:43:36 -06:00
parent 377499c4ac
commit 5d6fb50254
289 changed files with 4130 additions and 3048 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/EscPosPrinter.bas
View File

@@ -524,7 +524,7 @@ Version=9.3
'' Create the value to draw a box in a custom character
'' The box top left start is X0,Y0 and bottom right is X1,Y1
'Public Sub CreateBox(x0 As Int, y0 As Int, x1 As Int, y1 As Int, fill As Boolean) As Int
' Dim box As Int = 0x10000000
' Dim box As Int = 0x100000000
' If fill Then box = box + 0x80000000
' box = box + Bit.ShiftLeft(Bit.And(0xf,x0), 24)
' box = box + Bit.ShiftLeft(Bit.And(0x1f,y0), 16)
@@ -1668,7 +1668,7 @@ End Sub
' Create the value to draw a box in a custom character
' The box top left start is X0,Y0 and bottom right is X1,Y1
Public Sub CreateBox(x0 As Int, y0 As Int, x1 As Int, y1 As Int, fill As Boolean) As Int
Dim box As Int = 0x10000000
Dim box As Int = 0x100000000
If fill Then box = box + 0x80000000
box = box + Bit.ShiftLeft(Bit.And(0xf,x0), 24)
box = box + Bit.ShiftLeft(Bit.And(0x1f,y0), 16)