XProfan

Español

Como XProfan bisher no Splitter ha, tener Yo veces el Docksplitter.dll de David SZAFRANSKI para XProfan gewrapped. El DLL es lizensiert bajo GPL.

So una Splitter puede ser 2 vorher erstellte Controls zuordnen, wobei se ListBoxen, Edits y ähnliches besonders eignen. Mit ratón läßt se ahora el größer dieser beiden Controls verändern, o. por Mausclick auch eins bastante ausblenden. En Umsetzung en el Hinterkopt tener Yo natürlich una Implementation en XProfEdit

Snapschuß:

Das Paket besteht de uno muy pequeño DLL, uno Incluir-Expediente, uno Encabezamiento-Expediente, sowie el oben abgebildeten Ejemplo.

Kompilieren Marca Separación

 $I DockSplitter.inc
Declarar DLLhWnd&
DllhWnd& = Splitter_Init()

Caso negativo DllhWnd& : End : EndIf

    Ventana de Estilo 26
    Ventana 100, 100 - 600, 400
    Declarar hList&, hEdit&, hSplitter&
    hList& = Crear(ListBox, %hWnd, , 0, 0, 0, 0)

    WhileLoop 1, 10, 1

        AddStrings(hList&, Test  + @Str$(&Loop))

    EndWhile

    hEdit& = Crear(MultiEdit, %hWnd, , 0, 0, 0, 0)
    SetText hEdit&, Dies es una kleiner erster Test des DockSplitters!
    hSplitter& = Crear(Splitter, 0, 0, 600, 400)
    Splitter_SetPanel(hSplitter&, hList&, hEdit&)
    Splitter_SetPosition hSplitter&, 150
    Declarar Ende%

    Sinestar encargado Ende%

        WaitInput

    EndWhile

    Splitter_Exit DllhWnd&

Viel Spaß así

DockSplitter.zip	30 kB

Kurzbeschreibung:	Versión 0.5

Hochgeladen:	08.10.2006

Ladeanzahl:
		Descargar

08.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Supersache! Funktioniert ausgezeichnet.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

08.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ausser el 3 Grundfunktionen tener Todavía nichts getestet

Wenn alles en anhieb trabajo debería, wäre natürlich toll

Wer bauts en XProfEd una?

08.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Scheint en sonem komplexenProgramm doch schwieriger a ser

Das:
Kompilieren Marca Separación

 $I DockSplitter.inc
Declare hDockDll&,hSplitterWnd&
hDockDll& = Splitter_Init(DockSplitter.dll)
hSplitterWnd& = Create(Splitter, 0,46, Width(%hwnd),(height(%HWnd)-70))
Splitter_SetPanel(hSplitterWnd&, Navlist&, TabControl&)
Splitter_SetPosition hSplitterWnd&, 146

instalado antes el endgültigen Mostrar la ventana, verursacht al Ende en Splitter_Exit(hDockDll&) choque después de FreeDll. Im Programa selber se ejecuta lo prima.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

08.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Und si du el betroffenen Controls para Ende hin con DestroyWindow() zerstörst?

08.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Frank Abbing

Und si du el betroffenen Controls para Ende hin con DestroyWindow() zerstörst?

Hatte Yo auch ya dran pensamiento aber que aquí bringt el Solución:
Kompilieren Marca Separación

DestroyWindow(hSplitterWnd&)

Nu fungts brimö!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

08.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Gibts eigentlich ne Möglichkeit el y%-Position des Kindcontrols festzulegen oder se el siempre en 0 gesetzt?

Saludo
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

08.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

In Masm32 es bajo Example6Splitter auch una Ejemplo para Splitter. Wer also algo tiefer einsteigen möchte...

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

08.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

So qué va de paso auch:
Kompilieren Marca Separación

 $I DockSplitter.inc
Declare DLLhWnd&
DllhWnd& = Splitter_Init(DockSplitter.dll)

IfNot DllhWnd& : End : EndIf

    WindowStyle 26
    Window 100, 100 - 600, 400
    Declare hList&, hList1&, hEdit&, hSplitter&,hSplitter1&
    hList& = Create(ListBox, %hWnd, , 0, 20, 0, 0)
    hList1&=Create(ListBox, %hWnd, , 0, 20, 0, 0)

    WhileLoop 1, 10, 1

        AddString(hList&, Test1  + @Str$(&Loop))

    EndWhile

    WhileLoop 1, 10, 1

        AddString(hList1&, Test2  + @Str$(&Loop))

    EndWhile

    hEdit& = Create(MultiEdit, %hWnd, , 0, 0, 0, 0)
    SetText hEdit&, Dies ist ein kleiner erster Test des DockSplitters!
    hSplitter& = Create(Splitter, 0, 0, 450, 400)
    hSplitter1&=Create(Splitter, 0, 0, 600, 400)
    Splitter_SetPanel(hSplitter&, hList&, hEdit&)
    Splitter_SetPanel(hSplitter1&, hSplitter&, hList1&)
    Splitter_SetPosition hSplitter&, 150
    Splitter_SetPosition hSplitter1&, 450
    Declare Ende%

    WhileNot Ende%

        SetText hEdit&,Str$(Width(hEdit&))
        WaitInput

    EndWhile

    DestroyWindow(hSplitter&)
    DestroyWindow(hSplitter1&)
    Splitter_Exit DllhWnd&

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

08.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Der DockSplitter es auch en Basic geschrieben

In XBlite (XBasic abkömmling), Source findet ihr hier: [...]

08.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

¡Hola zusammen,

una Sache me está con el zweiten Demo, el qué drei Ventana ha, aufgefallen.
- uno klappt zuerst el rechte Página una komplett por Mausklick una, esta se auch el linke Ventana con eingeklappt
- entonces por Mausklick otra vez ausklappen, danach es el bastante y el mittlere Ventana sichtbar
- nun es por Mausklick no mehr posible el bastante linke Ventana auszuklappen

Sombrero como alguien Tip ?!

Ach sí, getest con XProfan 9.1, Yo hatte me el una Sub.Procedur geändert.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

12.10.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Tal vez veces en el Headerdatei schauen

Kompilieren Marca Separación

 $H docksplitter.ph
 $I Docksplitter.inc
Declare Dllhwnd&
Dllhwnd& = Splitter_init(DockSplitter.dll)

Ifnot Dllhwnd& : End : Endif

    Windowstyle 26
    Window 100, 100 - 600, 400
    Declare Hlist&, Hlist1&, Hedit&, Hsplitter&,Hsplitter1&
    Hlist& = Create(ListBox, %Hwnd, , 0, 20, 0, 0)
    Hlist1&=Create(ListBox, %Hwnd, , 0, 20, 0, 0)

    Whileloop 1, 10, 1

        Addstring(Hlist&, Test1  + @Str$(&Loop))

    Endwhile

    Whileloop 1, 10, 1

        Addstring(Hlist1&, Test2  + @Str$(&Loop))

    Endwhile

    Hedit& = Create(MultiEdit, %Hwnd, , 0, 0, 0, 0)
    Settext Hedit&, Dies ist ein kleiner erster Test des DockSplitters!
    Hsplitter& = Create(Splitter, 0, 0, 450, 400)
    Hsplitter1&=Create(Splitter, 0, 0, 600, 400)
    Splitter_setpanel(Hsplitter&, Hlist&, Hedit&)
    Splitter_setpanel(Hsplitter1&, Hsplitter&, Hlist1&)
    Splitter_SetDockingStyle(Hsplitter1&, ~DS_RIGHT)
    Splitter_setposition Hsplitter&, 150
    Splitter_setposition Hsplitter1&, 450
    Declare Ende%

    Whilenot Ende%

        SetText hEdit&,Str$(Width(hEdit&))
        Waitinput

    Endwhile

    Destroywindow(Hsplitter&)
    Destroywindow(Hsplitter1&)
    Splitter_exit Dllhwnd&