habe ein komisches prob.
im folgenden WinCallback setze ich par farben für gadgets und habe auch die die größenänderung für gadgets drin wenn die fenstergröße geändert wird doch geht die größenänderung nich doch die farben werden gesetzt.
Kann mir da einer helfen?
Das Callback rufe ich nach dem fensteraufbau auf
Code: Alles auswählen
Procedure WinCallback(hWnd,Msg,wParam,lParam)
Result=#PB_ProcessPureBasicEvents
Select Msg
Case #WM_SIZE
ResizeGadget(#panel_haupt,0,0,WindowWidth(),WindowHeight()-20)
ResizeGadget(#li_kunden,1,140,WindowWidth()-7,WindowHeight()-185)
Case #WM_CTLCOLOREDIT ;{
Select lParam
Case GadgetID(#str_k_new_firma)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
Case GadgetID(#str_k_new_vorname)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
Case GadgetID(#str_k_new_name)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
Case GadgetID(#str_k_new_nr)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
Case GadgetID(#str_k_new_ort)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
Case GadgetID(#str_k_new_plz)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
Case GadgetID(#str_k_new_str)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
Case GadgetID(#str_k_new_tel1)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
Case GadgetID(#str_k_new_tel2)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
Case GadgetID(#str_ab_art_pos)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
Case GadgetID(#str_ab_art_menge)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,0))
Result=str_bk_color
EndSelect ;}
Case #WM_CTLCOLORSTATIC ;{
Select lParam
Case GadgetID(#str_k_new_nr)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,150,0))
Result=stc_bk_color
EndSelect
If lParam <> GadgetID(#str_k_new_nr)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,RGB(0,0,150))
Result=Staticcolor
EndIf ;}
EndSelect
ProcedureReturn Result
EndProcedure
MfG Nico