In the following example, try to use the scroll's or PageDown.
What is wrong?
Regards
Peter
What is wrong?
Regards
Peter
Code:
#COMPILE EXE #INCLUDE "win32api.inc" DECLARE CALLBACK FUNCTION DlgProc DECLARE FUNCTION GetFile(File AS STRING, Buffer AS STRING) AS LONG %IDC_EDIT = 100 $ReadMe = "e:\pbdll60\readme.txt" FUNCTION PBMAIN LOCAL hDlg AS LONG LOCAL Buffer AS STRING IF GetFile($ReadMe, Buffer) = 0 THEN EXIT FUNCTION DIALOG NEW 0, "",,,400, 300, %WS_SYSMENU OR %WS_MINIMIZEBOX OR %DS_CENTER TO hDlg CONTROL ADD TEXTBOX, hDlg, %IDC_EDIT, Buffer, 5, 5, 385, 275, %WS_HSCROLL OR %WS_VSCROLL OR _ %ES_MULTILINE OR %ES_AUTOHSCROLL OR %ES_AUTOVSCROLL OR %ES_WANTRETURN, %WS_EX_CLIENTEDGE CONTROL SET FOCUS hDlg, %IDC_EDIT DIALOG SHOW MODAL hDlg CALL DlgProc END FUNCTION CALLBACK FUNCTION DlgProc STATIC hBrush AS LONG, lb AS LOGBRUSH SELECT CASE CBMSG CASE %WM_INITDIALOG lb.lbStyle = %BS_SOLID lb.lbColor = RGB(192,255,255) hBRush = CreateBrushIndirect(lb) CASE %WM_CTLCOLOREDIT SetBkMode CBWPARAM, %TRANSPARENT FUNCTION = hBrush CASE %WM_COMMAND SELECT CASE LOWRD(CBWPARAM) END SELECT END SELECT END FUNCTION FUNCTION GetFile(File AS STRING, Buffer AS STRING) AS LONG LOCAL hFile AS LONG hFile = FREEFILE OPEN File FOR BINARY AS hFile IF ERR THEN EXIT FUNCTION GET$ hFile, LOF(hFile), Buffer CLOSE hFile FUNCTION = 1 END FUNCTION
Comment