Window API + Button Processing

DarthPuff · Post by **DarthPuff** » Wed Jul 09, 2003 2:14 pm

=\ How do I get if a button has been clicked...

Procedure WndProc(hWnd, uMsg, wParam, lParam)
  result = #PB_ProcessPureBasicEvents
  Select uMsg
    Case #BN_CLICKED
      ProcedureReturn 1
  EndSelect
EndProcedure

ProcedureDLL GadgetI(GadgetID,WinID)
  If Check
    UpdateWindow_(WinID)
  EndIf
  SendMessage_(GadgetID, #EM_SETEVENTMASK, 0, #BN_CLICKED|SendMessage_(GadgetID, #EM_GETEVENTMASK, 0, 0)) 
  If SetWindowCallback(@WndProc())=1
      ProcedureReturn 1
    Else
      ProcedureReturn 0
  EndIf
EndProcedure

I tried this but its obviously wrong...

LarsG · Post by **LarsG** » Wed Jul 09, 2003 3:13 pm

You should look up the WindowEvent() command in the help file (under the window "catalogue")

-Lars

DarthPuff · Post by **DarthPuff** » Thu Jul 10, 2003 1:42 am

I don't think that will work... heres how I create buttons

Code: Select all

ProcedureDLL ButtonG(GadgetID, WinID, X, Y, Width, Height, Text.s, Flag.s)
  hWndMain = WinID
  
  t=0
  Repeat
    sV.s=StringField(Flag.s,t,"|")
    If sV.s<>""
    Select sV.s
      Case "#WS_CHILD"
        lFlag.l=lFlag | #WS_CHILD
      Case "#WS_VISIBLE"
        lFlag.l=lFlag | #WS_VISIBLE
      Case "#WS_CLIPCHILDREN"
        lFlag.l=lFlag | #WS_CLIPCHILDREN
    EndSelect
    t+1
    EndIf
  Until sV.s=""
  
  WinID2.l = CreateWindowEx_(0, "Button", Text.s, lFlag.l , X, Y, Width, Height, hWndMain, 0, 0, 0)
  
  currstyle.l = GetWindowLong_(hWndMain,#GWL_STYLE);
  SetWindowLong_(hWndMain,#GWL_STYLE,currstyle.l | #WS_CLIPCHILDREN);
  ShowWindow_(hWndMain,  #SW_SHOWDEFAULT) 
  UpdateWindow_(hWndMain);
  ProcedureReturn WinID2.l
EndProcedure

=\ Do you guys have any idea how to get a button being clicked from the windows api?

Post by **Fred** » Thu Jul 10, 2003 8:48 am

It's a WM_COMMAND message. I suggest you to read some book about Windows programming, as it's really the start

DarthPuff · Post by **DarthPuff** » Thu Jul 10, 2003 8:57 am

Ahhh... =\ but what do I do after that... I send a message for #WM_COMMAND then I test in windowcallback() to see if its #BN_CLICKED... ???

Edwin Knoppert · Post by **Edwin Knoppert** » Thu Jul 10, 2003 9:08 am

You must use the hiword and loword on wparam
wParam has 2 parts during wm_command

msdn:
The high-order word specifies the notification code if the message is from a control

The low-order word specifies the identifier of the menu item, control, or accelerator

Hiword:
( wParam >> 16 & $ffff )

(When do we ... get these calls in PB?)

Edwin Knoppert · Post by **Edwin Knoppert** » Thu Jul 10, 2003 9:09 am

Loword:
wParam & $ffff

DarthPuff · Post by **DarthPuff** » Thu Jul 10, 2003 12:56 pm

Thank you for the help ... but =P A lil more detail plzzzz...

I'm not to great with this stuff...