GUI enabling/disabling of controls: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 709: | Line 709: | ||
} |
} |
||
}</lang> |
}</lang> |
||
=={{header|FreeBASIC}}== |
|||
<lang FreeBASIC> |
|||
#Include "windows.bi" |
|||
Dim As HWND Window_Main, Edit_Number, Button_Inc, Button_Dec |
|||
Dim As MSG msg |
|||
Dim As Integer n |
|||
Dim As String text |
|||
'Create a window with an input field and two buttons: |
|||
Window_Main = CreateWindow("#32770", "GUI Enabling/Disabling of Controls", WS_OVERLAPPEDWINDOW Or WS_VISIBLE, 100, 100, 250, 200, 0, 0, 0, 0) |
|||
Var Static_Number = CreateWindow("STATIC", "Value:", WS_VISIBLE Or WS_CHILD, 10, 10, 100, 20, Window_Main, 0, 0, 0) |
|||
Edit_Number = CreateWindow("EDIT", "0", WS_BORDER Or WS_VISIBLE Or WS_CHILD Or ES_AUTOHSCROLL Or ES_Number, 110, 10, 100, 20, Window_Main, 0, 0, 0) |
|||
Button_Inc = CreateWindow("BUTTON", "Increment", WS_VISIBLE Or WS_CHILD, 110, 40, 100, 20, Window_Main, 0, 0, 0) |
|||
Button_Dec = CreateWindow("BUTTON", "Decrement", WS_VISIBLE Or WS_CHILD, 110, 70, 100, 20, Window_Main, 0, 0, 0) |
|||
'Windows message loop: |
|||
While GetMessage(@msg, Window_Main, 0, 0) |
|||
text = Space(GetWindowTextLength(Edit_Number) + 1) 'Buffer for the text |
|||
GetWindowText(Edit_Number, text, Len(text)) |
|||
n = Val(text) |
|||
If n <> 0 Then EnableWindow(Edit_Number, False) Else EnableWindow(Edit_Number, True) |
|||
If n > 9 Then EnableWindow(Button_Inc, False) Else EnableWindow(Button_Inc, True) |
|||
If n > 0 Then EnableWindow(Button_Dec, True) Else EnableWindow(Button_Dec, False) |
|||
TranslateMessage(@msg) |
|||
DispatchMessage(@msg) |
|||
Select Case msg.hwnd |
|||
Case Button_Inc |
|||
'Increment value: |
|||
If msg.message = WM_LBUTTONDOWN Then SetWindowText(Edit_Number, Str(n + 1)) |
|||
Case Button_Dec |
|||
'Decrement value: |
|||
If msg.message = WM_LBUTTONDOWN Then SetWindowText(Edit_Number, Str(n - 1)) |
|||
Case Window_Main |
|||
If msg.message = WM_COMMAND Then End |
|||
End Select |
|||
Wend |
|||
End |
|||
</lang> |
|||
==Icon and {{header|Unicon}}== |
==Icon and {{header|Unicon}}== |