'Einen Fensterteiler (Splitter unter Delphi) erstellen.
'Achtung: Grafikbefehle u.s.w müssen wie in
'einer Dialogroutine behandelt werden.
'So wie der Explorer es anbietet. Die Grundidee ist von
'Andreas Miehte.
'Diese Vorlage: Rolf Koch - Rokosoft - April 2003

SetErrorLevel 0 'WICHTIG WEGEN NEGATIVEFENSTER!
DECLARE SPLITTER1&,testbox&,testbutton&
Declare splitter2&,ende&,ende%,x#,ox&,oy&
Declare Testbox2&,Testbutton2&
Def GetSysColor(1) !"USER32","GetSysColor"
PROC SPLITTCHECK
If or(or(equ(%lastmessage,160),equ(%lastmessage,161)),equ(%lastmessage,512))
   SetWindowPos splitter2&=Width(Splitter1&)-99,2-550,15000;0
   SetWindowPos testbox&=101,51-Width(Splitter1&)-111,400;0
ENDIF
ENDPROC


SETTRUECOLOR 1
WINDOWSTYLE 63
WINDOW 10,10-640,480
WIndowtitle "WINDOWSPLITTER   (c) by Rolf Koch - Rokosoft 04/2003"
CLS GETSYSCOLOR(15)
SetDialogFont 1
USEFONT "MS Sans Serif",13,0,0,0,0

'Hier die linke Hälfte:
SPLITTER1&=Control("DIALOG","",$54040000,-100,-50,370,15000,%hwnd,2000,%hinstance)
testbox&=CREATE("MULTIEDIT",SPLITTER1&,"",101,51,0255,0400) 'x +100 und y +50! da Splitter -100!
testbutton&=CREATE("BUTTON",SPLITTER1&,"Testbutton",151,460,100,25) 'dito

'Hier die rechte Hälfte
SPLITTER2&=Control("STATIC","",$54000000,Width(Splitter1&)-99,2,550,15000,%hwnd,2000,%hinstance)
testbox2&=CREATE("MULTIEDIT",SPLITTER2&,"",10,1,0240,0400)
testbutton2&=CREATE("BUTTON",SPLITTER2&,"Testbutton2",10,410,100,25)
ende&=CREATE("BUTTON",SPLITTER2&,"ENDE",255,5,80,25)
ende%=0
SPLITTCHECK
WHILENOT ENDE%
WaitInput
SPLITTCHECK
if getfocus(ende&)
   ende%=1
endif
WEND