How to set control text

[win]

Function dialog_full_screen

Code:

Copy      Help

str dd=
;BEGIN DIALOG
;0 "" 0x90CC0AC8 0x0 0 0 224 136 "Dialog"
;3 ActiveX 0x54030000 0x0 0 16 224 94 "SHDocVw.WebBrowser {8856F961-340A-11D0-A96B-00C04FD705A2}"
;4 Button 0x54032000 0x0 0 0 70 14 "Full screen (F11)"
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2040701 "*" "" "" ""

str controls = "3"
str ax3SHD
if(!ShowDialog(dd &sub.DlgProc &controls)) ret


#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,DT_SetAutoSizeControls hDlg "1m 2m 3s"
,DT_SetAccelerators hDlg "4 F11"
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
,case 4
,int-- t_full; t_full=!t_full
,sub.FullScreen hDlg t_full
ret 1


#sub FullScreen
function w full

if full
,max w
else
,res w

;This code just makes the window maximized or not.
;Replace it with code that makes the window really full-screen or not.
;I don't know a simple way, probably need to resize the window etc.

I would like to feedback a bug, press the hotkey ctrl+shift+R without any response, can not be compiled into an exe file, hold down the ctrl, and then click the compile button is OK, I tried both computers are the problem

---

Function dialog_full_screen

Code:

Copy      Help

str dd=
;BEGIN DIALOG
;0 "" 0x90CC0AC8 0x0 0 0 224 136 "Dialog"
;3 ActiveX 0x54030000 0x0 0 16 224 94 "SHDocVw.WebBrowser {8856F961-340A-11D0-A96B-00C04FD705A2}"
;4 Button 0x54032000 0x0 0 0 70 14 "Full screen (F11)"
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2040701 "*" "" "" ""

str controls = "3"
str ax3SHD
if(!ShowDialog(dd &sub.DlgProc &controls)) ret


#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,DT_SetAutoSizeControls hDlg "1m 2m 3s"
,DT_SetAccelerators hDlg "4 F11"
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
,case 4
,int-- t_full; t_full=!t_full
,sub.FullScreen hDlg t_full
ret 1


#sub FullScreen
function w full

if full
,max w
else
,res w

;This code just makes the window maximized or not.
;Replace it with code that makes the window really full-screen or not.
;I don't know a simple way, probably need to resize the window etc.

I would like to feedback a bug, press the hotkey ctrl+shift+R without any response, can not be compiled into an exe file, hold down the ctrl, and then click the compile button is OK, I tried both computers are the problem

In addition, if I can customize some of the system's shortcuts, it would be great.

I want to change:
Press ctrl+E to export item (add this function)
Press ctrl+ALT+SHIFT+T to generate the AutoText for the selected text (add this function)
Press F5 to run (replace the current ctrl+R)
Press F7 to compile (replace the current ctrl+SHIFT+R)