Element RadioButton BaseElements include 'Win.inc' EndBase Create NewControl Self,Parent,button_class,Self#.prop.Caption,BS_AUTORADIOBUTTON if Self#.prop.Selected invoke SendMessage,[Self#.hwnd],BM_SETCHECK,Self#.prop.Selected,0 end if Events Event Self,onSelect invoke SendMessage,[Self#.hwnd],BM_GETCHECK,0,0 or eax,eax je Parent#.finish Self#.onSelect 0,data_null,Parent#.finish jmp Parent#.finish EndEvent MessageMap cmp [wmsg],WM_KEYDOWN jne .nokeydown cmp [wparam],VK_LEFT je .up cmp [wparam],VK_UP jne .noup .up: push -1 jmp .dofind .noup: cmp [wparam],VK_RIGHT je .down cmp [wparam],VK_DOWN jne .nokeydown .down: push 0 .dofind: invoke GetParent,[Self#.hwnd] stdcall FindNextTab,eax,[Self#.TabOrder] or eax,eax je Self#.exit invoke SetFocus,eax jmp Self#.exit .nokeydown: PointVar Selected,data_int invoke SendMessage,[Self#.hwnd],BM_GETCHECK,0,0 result equ eax EndPoint PointWork doSelect \local res ToInteger res,data,data.type invoke SendMessage,[Self#.hwnd],BM_SETCHECK,res,0 EndPoint EndElement