$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
 
 

 Declare RADIO1&, RADIO2&, Tabcontrol&, Tabdialog%
 '--------------------------------------
 WindowStyle 26
 WINDOWTITLE "Kassen-Verwaltung"
 WINDOW 0,0 - 700,700
 '--------------------------------------
 'Für Hauptfenster
 '--------------------------------------
 var handle mainchild = Create("ChildWindow",%hwnd, "", 0, 0, width(%hwnd), height(%hwnd))
 SetStyle mainchild, $50800000
 RADIO1& = Create("RADIOBUTTON",mainchild,"0%",170,45,50,30)
 '--------------------------------------
 'Für TabControl
 '--------------------------------------
 Tabcontrol& = Create("Tabctrl",mainchild,"Adresse",80,80,500,500)
 var handle tabchild = Create("ChildWindow",Tabcontrol&, "", 2, 25, width(Tabcontrol&)-6, height(Tabcontrol&)-28)
 SetStyle Tabchild, $50800000
 RADIO2& = CREATE("RADIOBUTTON",tabchild,"7.00%",170,245,70,0030)
 Create("Text",tabchild,"SPALTENSUMMEN",350,190,130,35)
 
 WaitKey
 DestroyWindow(%hwnd)
 End
 

$WinVer

 $H Windows.ph
 $H Messages.ph
 Def GetSysColor(1) !"USER32","GetSysColor"
 Def SetBkMode(2) !"GDI32","SetBkMode"
 Def SelectObject(2) !"GDI32","SelectObject"
 Def GetDC(1) !"USER32","GetDC"
 Def @Show(1) @ShowWindow(@&(1), 1)
 Def @Hide(1) @ShowWindow(@&(1), 0)
 Declare Ende%, OldWndProc_1&, AktivesTab&
 Declare Create_Text%[] , TextBk_1& , tabctrl1&
  
 '-CallBack Routine----------------------------------------------------
 Proc ColorText_TabCtrl
   Parameters hWnd&, Message&, wParam&, lParam&
   If Message& = ~WM_CTLCOLORSTATIC
     ~SetBkMode(wParam&, ~TRANSPARENT)
     ~SetTextColor(wParam&, GetSysColor(18))
     Return TextBk_1&
   Else
     Return ~CallWindowProc(OldWndProc_1&, hWnd&, Message&, wParam&, lParam&)
   EndIf
 EndProc
  
 Proc ColorText
   Parameters hs&,x%,y%
   Declare hdc&,Bk_Color&
   SetText hs&," "
   hdc&=GetDC(hs&)
   SetWindowPos hs&=x%,y% - 0,0
  SelectObject(hdc&,SendMessage(hs&,$031,0,0))
   SetBKMode(hdc&,1)
   StartPaint hdc&
     Bk_Color& = @GetPixel(0,0)
   EndPaint
   Return Bk_Color&
 EndProc
  
 '-Main----------------------------------------------------------------
  
 '-Erweitertes MessageHandling abschalten----------------------------
 Set("FastMode", 1)
  
 '-Fenster oeffnen---------------------------------------------------
 Window 0, 0 - 640, 480
  
 Cls ~GetSysColor(~COLOR_3DFACE)
  
 'Create Text Hintergrundfarben für das TabCtrl ermitteln ---------------
 tabctrl1& = Create("TabCtrl", %hwnd, "tab1", 8, 80, 328, 320)
 OldWndProc_1& = ~GetWindowLong(tabctrl1&, ~GWL_WNDPROC)
 ~SetWindowLong(tabctrl1&, ~GWL_WNDPROC, @ProcAddr("ColorText_TabCtrl", 4))
 InsertTab(tabctrl1&, 1, "tab2")
 Create_Text%[0] = Create("Text", tabctrl1&, " ", 10, 40, 10, 10)
 TextBk_1& = ~CreateSolidBrush(ColorText(Create_Text%[0],10,40))
  
 '-Textfelder------------------------------------------------------
 Create_Text%[0] = Create("Text", %Hwnd, "Text 1", 200, 10, 150, 16)
 Create_Text%[1] = Create("Text", tabctrl1&, "auf dem TabCtrl 1 ", 100, 70, 200, 16)
 Create_Text%[2] = Create("Text", tabctrl1&, "und auf dem TabCtrl 2", 100, 100, 200, 16)
 @Hide(Create_Text%[2])
 '-Dialog-Schleife---------------------------------------------------
 Clear Ende%
  
 WhileNot Ende%
   WaitInput
  
   If %Key = 2
     Ende% = 1
     Elseif Clicked(tabctrl1&) = 1
       AktivesTab& = @GetActiveTab(tabctrl1&)
       If AktivesTab& = 0
         @Hide(Create_Text%[2])
         @Show(Create_Text%[1])
         Elseif AktivesTab& = 1
           @Hide(Create_Text%[1])
           @Show(Create_Text%[2])
       Endif
  
   EndIf
 EndWhile
 ~DeleteObject(TextBk_1&)
 '-Urspruengliche ProgramMainRoutine wieder herstellen---------------
 ~SetWindowLong(tabctrl1&, ~GWL_WNDPROC, OldWndProc_1&)
  
 '-End-------------------------------------------------------------------
 End
 

  Declare RADIO1&, RADIO2&, Tabcontrol&, Tabdialog%
  '--------------------------------------
  WindowStyle 26
  WINDOWTITLE "Kassen-Verwaltung"
  WINDOW 0,0 - 700,700
  '--------------------------------------
  'Für Hauptfenster
  '--------------------------------------
 if $winver = "10.0"
  var handle mainchild = Create("ChildWindow",%hwnd, "", 0, 0, width(%hwnd), height(%hwnd))
  SetStyle mainchild, $50800000
 elseif $winver="6.1"
  DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
  settruecolor 1
  CLS GETSYSCOLOR(15)
  var handle mainchild = %hwnd
 endif
 
  RADIO1& = Create("RADIOBUTTON",mainchild,"0%",170,45,50,30)
 
 '--------------------------------------
  'Für TabControl
  '--------------------------------------
 if $winver = "10.0"
  Tabcontrol& = Create("Tabctrl",mainchild,"Adresse",80,80,500,500)
  var handle tabchild = Create("ChildWindow",Tabcontrol&, "", 2, 25, width(Tabcontrol&)-6, height(Tabcontrol&)-28)
  SetStyle Tabchild, $50800000
 elseif $winver="6.1"
 var handle tabchild = Create("Tabctrl",mainchild,"Adresse",80,80,500,500)
 endif
 
 RADIO2& = CREATE("RADIOBUTTON",tabchild,"7.00%",170,245,70,0030)
 Create("Text",tabchild,"SPALTENSUMMEN",350,190,130,35)
 
  WaitKey
  DestroyWindow(%hwnd)
  End