XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster splitten
Lauffähig ab Profan-Version 5.0
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