01.10.2025, 12:38 AM
(This post was last modified: 01.10.2025, 12:39 AM by Robert Alvarez.)
FORMATTING NOT SHOWING CORRECT ON POST
type A&B
screen show AB <-- SHOULD BE B UNDERLINE
xprint show A&B
type A&&B
screen show A&B
xprint show A&&B
Here is sample code that show problem
'CODE FOR PROBLEM
#COMPILE EXE
#DIM ALL
%UNICODE = 1
GLOBAL hDlg AS DWORD, A AS STRING
CALLBACK FUNCTION XPRINTT()
XPRINT ATTACH CHOOSE
XPRINT A
XPRINT CLOSE
END FUNCTION
CALLBACK FUNCTION TEXTT()
CONTROL GET TEXT hDlg, 1000 TO A
CONTROL SET TEXT hDlg, 1002, A
END FUNCTION
FUNCTION PBMAIN () AS LONG
LOCAL W, RtoL AS WSTRING
LOCAL R AS STRING
W = CHR$$(&h1D08)
RtoL = CHR$$(&h21D0) 'F4)
DIALOG DEFAULT FONT "Consolas", 10, 0, 1
DIALOG NEW 0, W, , , 150, 50, %WS_OVERLAPPEDWINDOW, %WS_EX_LEFT OR _
%WS_EX_LTRREADING TO hDlg
CONTROL ADD TEXTBOX, hDlg, 1000, "", 5, 5, 40, 12
CONTROL ADD BUTTON ,hDlg,1001, "DONE", 50,5,40,12, CALL TEXTT
CONTROL ADD LABEL ,hDlg,1002, "XX", 50,25,40,12, '
CONTROL ADD BUTTON ,hDlg,1003, "PRINT", 100, 5,40,12, CALL XPRINTT
DIALOG SHOW MODAL hDlg
END FUNCTION
doing xprint better to print to file than waste paper
type A&B
screen show AB <-- SHOULD BE B UNDERLINE
xprint show A&B
type A&&B
screen show A&B
xprint show A&&B
Here is sample code that show problem
'CODE FOR PROBLEM
#COMPILE EXE
#DIM ALL
%UNICODE = 1
GLOBAL hDlg AS DWORD, A AS STRING
CALLBACK FUNCTION XPRINTT()
XPRINT ATTACH CHOOSE
XPRINT A
XPRINT CLOSE
END FUNCTION
CALLBACK FUNCTION TEXTT()
CONTROL GET TEXT hDlg, 1000 TO A
CONTROL SET TEXT hDlg, 1002, A
END FUNCTION
FUNCTION PBMAIN () AS LONG
LOCAL W, RtoL AS WSTRING
LOCAL R AS STRING
W = CHR$$(&h1D08)
RtoL = CHR$$(&h21D0) 'F4)
DIALOG DEFAULT FONT "Consolas", 10, 0, 1
DIALOG NEW 0, W, , , 150, 50, %WS_OVERLAPPEDWINDOW, %WS_EX_LEFT OR _
%WS_EX_LTRREADING TO hDlg
CONTROL ADD TEXTBOX, hDlg, 1000, "", 5, 5, 40, 12
CONTROL ADD BUTTON ,hDlg,1001, "DONE", 50,5,40,12, CALL TEXTT
CONTROL ADD LABEL ,hDlg,1002, "XX", 50,25,40,12, '
CONTROL ADD BUTTON ,hDlg,1003, "PRINT", 100, 5,40,12, CALL XPRINTT
DIALOG SHOW MODAL hDlg
END FUNCTION
doing xprint better to print to file than waste paper