$H Windows.ph
 $H Messages.ph
 
 
 Declare RADIO1&, RADIO2&, OldWndProc&, TextBk1&, hText1%, Tabcontrol&, Tabdialog%
 '----------------------------------------------------------------------------------
 Proc ColorText
   Parameters hWnd&, Message&, wParam&, lParam&
   If Message& = ~WM_CTLCOLORSTATIC
      If lParam& = hText1%
          ~SetBkMode(wParam&, ~TRANSPARENT)
          ~SetTextColor(wParam&, RGB(0, 0, 0)) 
           Return TextBk1&
      EndIf
   Else
      Return ~CallWindowProc(OldWndProc&, hWnd&, Message&, \
      wParam&, lParam&)
   EndIf
 EndProc
 
 TextBk1& = ~CreateSolidBrush(RGB(255, 255, 255)) 
 
 Set("FastMode", 1)
 
 '----------------------------------------------
 WindowStyle 26+512
 WINDOWTITLE "Kassen-Verwaltung"
 WINDOW 0,0 - 700,700
 '--------------------------------------
 
 '--------------------------------------
 OldWndProc& = ~GetWindowLong(%hWnd, ~GWL_WNDPROC)
 ~SetWindowLong(%hWnd, ~GWL_WNDPROC, ProcAddr("ColorText", 4))
 
 Tabcontrol& = Create("Tabctrl",%hwnd,"Adresse",80,80,500,500)
 
 'transparenter hintergrund
 RADIO1& = Create("RADIOBUTTON",%HWnd,"0%",170,150,50,30)
 'transparenter hintergrund
 
 'kein transparenter hintergrund
 RADIO2& = CREATE("RADIOBUTTON",%HWnd,"7.00%",170,250,70,30)
 hText1% = Create("Text",%HWnd,"SPALTENSUMMEN",170,200,130,16)
 'kein transparenter hintergrund
 
 While 1
   WaitInput
   Case %Key = 2 : Break
 EndWhile
 
 ~DeleteObject(TextBk1&)
 ~SetWindowLong(%hWnd, ~GWL_WNDPROC, OldWndProc&)
 
 End