XProfan

Français

là XProfan bisher keinen Splitter hat, hab je fois le Docksplitter.dll de David SZAFRANSKI pour XProfan gewrapped. qui DLL ist lizensiert sous GPL.

So einem Splitter peux on 2 auparavant erstellte Controls zuordnen, wobei sich ListBoxen, Edits et ähnliches besonders eignen. avec qui souris läßt sich maintenant qui größer cette beiden Controls verändern, bzw. per Mausclick aussi une entier ausblenden. chez qui Umsetzung im Hinterkopt hab je naturellement une Implementation dans XProfEdit

Snapschuß:

cela paquet besteht aus einer très kleinen DLL, einer Include-Dossier, einer En-tête-Dossier, sowie dem dessus abgebildeten Beispiel.

Kompilieren Marque Séparation

 $I DockSplitter.inc
Déclarer DLLhWnd&
DllhWnd& = Splitter_Init()

Si non DllhWnd& : Fin : EndIf

    Fenêtre Style 26
    Fenêtre 100, 100 - 600, 400
    Déclarer hList&, hEdit&, hSplitter&
    hList& = Créer(ListBox, %hWnd, , 0, 0, 0, 0)

    WhileLoop 1, 10, 1

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

    Endwhile

    hEdit& = Créer(MultiEdit, %hWnd, , 0, 0, 0, 0)
    SetText hEdit&, ca ist un kleiner erster Test des DockSplitters!
    hSplitter& = Créer(Splitter, 0, 0, 600, 400)
    Splitter_SetPanel(hSplitter&, hList&, hEdit&)
    Splitter_SetPosition hSplitter&, 150
    Déclarer Ende%

    WhileNot Ende%

        WaitInput

    Endwhile

    Splitter_Exit DllhWnd&

Viel Amusement avec cela

DockSplitter.zip	30 kB

Kurzbeschreibung:	Version 0.5

Hochgeladen:	08.10.2006

Downloadcounter:
		Download

08.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Supersache! Funktioniert ausgezeichnet.

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

08.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Ausser den 3 Grundfunktionen hab je encore rien getestet

si alles sur anhieb marcher sollte, wäre naturellement toll

qui bauts dans XProfEd un?

08.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Scheint chez sonem komplexenProgramm doch schwieriger trop son

cela:
Kompilieren Marque Séparation

 $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

incorporé avant dem final Montrer des Fensters, verursacht am Ende chez Splitter_Exit(hDockDll&) une Absturz pour FreeDll. Im Programme selber fonctionne es prima.

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

08.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

et si du qui betroffenen Controls zum Ende hin avec DestroyWindow() zerstörst?

08.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Frank Abbing

et si du qui betroffenen Controls zum Ende hin avec DestroyWindow() zerstörst?

Hatte je aussi déjà tour gedacht mais que voici bringt qui Solution:
Kompilieren Marque Séparation

DestroyWindow(hSplitterWnd&)

Nu fungts brimö!

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

08.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Gibts eigentlich ne Possibilité qui y%-Position des Kindcontrols festzulegen ou bien wird qui toujours sur 0 gesetzt?

Salut
Jörg

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

08.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

dans Masm32 ist sous Example6Splitter aussi un Beispiel zum Splitter. qui alors quelque chose tiefer monter voudrais...

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

08.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

So quoi allez incidemment aussi:
Kompilieren Marque Séparation

 $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 citation

Absatzweise Citation Zeilenweise Citation

qui DockSplitter ist aussi dans Basic geschrieben

dans XBlite (XBasic abkömmling), Source findet son ici: [...]

08.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Hovenbitzer

allô zusammen,

une l'affaire c'est moi avec dem zweiten Demo, cela quoi trois la fenêtre hat, aufgefallen.
- on klappt d'abord qui rechte page un komplett per Mausklick un, dabei wird aussi cela linke la fenêtre avec eingeklappt
- ensuite per Mausklick wieder ausklappen, après ist cela droite et cela mittlere la fenêtre sichtbar
- eh bien ist es per Mausklick pas plus possible cela entier linke la fenêtre auszuklappen

Hat là quelqu'un une Tip ?!

ah oui, getest avec XProfan 9.1, je hatte mir qui une Sous.Procedur geändert.

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

12.10.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

peut-être la fois dans qui Headerdatei regarder

Kompilieren Marque Séparation

 $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&