eigenes WinCallBack was ist hier falsch?

[nicolaus]

Hi
Habe mir ein Wincallback gebastelt was nur für einen container gebraucht wird. Das geht soweit auch ganz gut doch habe ich ein prob und zwar werden in dem callback nich alle messagenr. behandelt!

bei nem normalen callback von pb wird z.b auch die message #WM_CTLCOLORSTATIC verarbeitet doch in meinem callback nich.
Hier mal der testcode vieleicht könnt ihr mir ja helfen.

Code: Alles auswählen

Global wnd_long.l

Procedure.l TestCallBack(WindowID, message, wParam, lParam) 
  Result.l = CallWindowProc_(wnd_long, WindowID, message, wParam, lParam) 
  Debug "Message: " +Str(message)
  AddGadgetItem(3,-1, "Messagenummer: " + Str(message))
  SendMessage_(GadgetID(3), #EM_LINESCROLL, 0, 1)
  ProcedureReturn Result 
EndProcedure 
OpenWindow(0, 0, 0, 200, 400,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered  , "Callbacktest")
CreateGadgetList(WindowID())
hedt = EditorGadget(3,0,110,200,290)
SendMessage_(GadgetID(3), #EM_SETTARGETDEVICE , 0, 0)
hcnd = ContainerGadget(0,0,0,200,100,#PB_Container_Double)
hbtn = ButtonGadget(1,10,10,180,40,"test")
CloseGadgetList()
hContainerGadget = GadgetID(0)
wnd_long = GetWindowLong_(hContainerGadget, #GWL_WNDPROC) 
If wnd_long = 0 
  wnd_long = GetClassLong_(hContainerGadget, #GCL_WNDPROC)
EndIf  
SetWindowLong_(hContainerGadget, #GWL_WNDPROC, @TestCallBack())

Repeat:Until WaitWindowEvent() = #PB_EventCloseWindow

Dabke euch schon mal

[nicolaus]

kann mir da keine nen tip geben was ich falsch mache?

[Danilo]

kann mir da keine nen tip geben was ich falsch mache?

Sag doch erstmal was Du machen möchtest.

Für was willst Du denn genau welche Nachrichten abfangen
oder abarbeiten?

[nicolaus]

Ich will zum beispiel die Message #WM_CTLCOLORSTATIC abfangen und wenn sie die maus über einem Button befindet soll dann ein Text in einem Textgadget (also Statischen objekt) gefärbt werden und wenn die maus weg is vom button solol wieder die alte farbe gesetzt werden. Das is mal eins der dinge die ich da verwenden will.

[Danilo]

Ich will zum beispiel die Message #WM_CTLCOLORSTATIC abfangen

Du hast kein STATIC Control (Static, CheckBox, Radio, GroupBox),
kein disabled/read-only Text Control, und auch keine disabled ComboBox.

Wie willst Du da die Message bekommen?

Außerdem hatten wir das doch vor ein paar Tagen schonmal von Dir.

[nicolaus]

ok in dem beispiel was ich oben habe ist kein static-control drin das hatte ich auch nur zum testen geschrieben um zu sehen welche messahes ich bekomme. wenn du da in den container noch nen textgadget baust (was ja staticcontrol ist) hast du die message dafür trozdem nich (habe das ja in meinem prog) und das das was wir vor paar tagen hatte geht schon aber halt nur in einem wincallback das ich direkt von PB benutze aber nich in dem selbstgebauetn von mir und genau das verstehe ich nich warum ich da nich alle messages bekomme in dem von mir gebastelten

[Lars]

Weil die Messages dann nicht mehr an's Hauptfenster gehen, sondern an
den Container. Du musst also den Callback des Containers ersetzen.

Code: Alles auswählen

Global OrigContainerCallback.l

Procedure.l ContainerCallback(hwnd.l, msg.l, wParam.l, lParam.l)
  ;whatever
  
  ProcedureReturn CallWindowProc_(OrigContainerCallback, hwnd, msg, wParam, lParam)
EndProcedure

OrigContainerCallback = SetWindowLong_(GadgetID(container), #GWL_WNDPROC, @ContainerCallback())

[nicolaus]

@Lars

in der nachfolgenden zeile deines beispiels stimmt doch was nich oder?

Code: Alles auswählen

OrigContainerCallback = SetWindowLong_(GadgetID(container), #GWL_WNDPROC, @ContainerCallback())

das soll doch sicher so gemeint sein:

Code: Alles auswählen

OrigContainerCallback = GetWindowLong_(GadgetID(container), #GWL_WNDPROC, @ContainerCallback())

oder?

und wenn du dir nun mein beispiel anschaust siehst du das ich genau das selbe mache nur das die variable die du OrigContainerCallback nennst bei mir wnd_long heist.

[Lars]

Nein, du kannst dir das GetWindowLong_() sparen, da SetWindowLong_()
bereits den alten Wert zurückgibt.

Dass du in deinem Beispiel die selbe Methode verwendest stimmt schon,
allerdings sehe ich da kein TextGadget, wieso wunderst du dich dann,
dass du die erwarteten Messages nicht bekommst (was Danilo ja auch
schon geschrieben hat)?

[nicolaus]

Hatte zwar oben schon mal geschrieben das das nur ein beispiel ist und ich in dem prog wo ich das eingebaut habe schon textgadgets habe doch hier nun noch mal das geänderte beispiel mit staticontrol (textgadget):

Code: Alles auswählen

Global wnd_long.l 

Procedure.l TestCallBack(WindowID, message, wParam, lParam) 
  Result.l = CallWindowProc_(wnd_long, WindowID, message, wParam, lParam) 
  Debug "Message: " +Str(message) 
  AddGadgetItem(3,-1, "Messagenummer: " + Str(message)) 
  SendMessage_(GadgetID(3), #EM_LINESCROLL, 0, 1) 
  ProcedureReturn Result 
EndProcedure 
OpenWindow(0, 0, 0, 200, 400,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered  , "Callbacktest") 
CreateGadgetList(WindowID()) 
hedt = EditorGadget(3,0,110,200,290) 
SendMessage_(GadgetID(3), #EM_SETTARGETDEVICE , 0, 0) 
hcnd = ContainerGadget(0,0,0,200,100,#PB_Container_Double) 
hbtn = ButtonGadget(1,10,10,180,40,"test") 
htx  = TextGadget(4,10,60,180,18,"Staticcontrol")
CloseGadgetList() 
hContainerGadget = GadgetID(0) 
wnd_long = SetWindowLong_(hContainerGadget, #GWL_WNDPROC, @TestCallBack()) 

Repeat:Until WaitWindowEvent() = #PB_EventCloseWindow

Und auch hier bekommt man das event "#WM_CTLCOLORSTATIC" mit der messagenr. 312 nicht wenn man die maus in dem container bewegt.