PureBoard

Verfasst: **11.10.2004 20:33**

Hi leute
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

Danke euch wie immer schon mal.
MfG Nico

Verfasst: **11.10.2004 20:52**

ok hat sich so eben erledigt. ich hatte in einer anderen procedure wo ich mit HideWindow() gearbeitet habe danach ein UseWindow() vergessen. nun gehts.

Habe aber noch mal ne andere frage wie kann ich den ne Statusbar mit resizen lassen?

PureBoard

Resize on the Fly was ist hier falsch???

Resize on the Fly was ist hier falsch???