| |
| |
|
 | there XProfan yet none Splitter has, Have I times the Docksplitter.dll of David SZAFRANSKI for XProfan gewrapped. The DLL is licensed under GPL.
so one Splitter can 2 before erstellte Controls zuordnen, where itself ListBoxen, Edits and ähnliches particularly suit. with the mouse can itself now The larger this both Controls change, or. by Mausclick too one integrally Hide. with the Umsetzung in the Hinterkopt Have I naturally a Implementation in XProfEdit 
Snapschuß:
the pkg exists a very small DLL, of/ one Include-File, of/ one Header-File, as well as the supra abgebildeten example.
$I DockSplitter.inc
Declare DLLhWnd&
DllhWnd& = Splitter_Init()
Ifnot DllhWnd& : End : EndIf
Window Style 26
Window 100, 100 - 600, 400
Declare hList&, hEdit&, hSplitter&
hList& = Create(ListBox, %hWnd, , 0, 0, 0, 0)
WhileLoop 1, 10, 1
AddStrings(hList&, Test + @Str $(&Loop))
EndWhile
hEdit& = Create(MultiEdit, %hWnd, , 0, 0, 0, 0)
SetText hEdit&, this is one small first Test the DockSplitters!
hSplitter& = Create(Splitter, 0, 0, 600, 400)
Splitter_SetPanel(hSplitter&, hList&, hEdit&)
Splitter_SetPosition hSplitter&, 150
Declare end%
WhileNot end%
WaitInput
EndWhile
Splitter_Exit DllhWnd&
plenty Fun so |
 |
| |
| |
| |
|
|
Jörg
Sellmeyer | | Supersache! functions fine. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 10/08/06 ▲ |
|
| |
|
|
| except whom 3 Grundfunktionen Have I yet nothing tested 
If everything on attempt functions ought to, would naturally cool
who bauts in XProfEd one? |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | shining with sonem komplexenProgramm still tougher To his 
the:
CompileMarkSeparation installed to the final Show the Fensters, causes end with Splitter_Exit(hDockDll&) a crash to FreeDll. in the Program yourself runs it lovely. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/08/06 ▲ |
|
| |
|
|
Frank
Abbing | | And if You The affected Controls to that end there with DestroyWindow() destroy? |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Frank Abbing
And if You The affected Controls to that end there with DestroyWindow() destroy?
having so did i already dran virtual but that here bring The Solution:
CompileMarkSeparation
Nu fungts brimö! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/08/06 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Gibts really ne Possibility The y%-position the Kindcontrols festzulegen or becomes the ever on 0 staid?
Greeting
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10/08/06 ▲ |
|
| |
|
|
Michael
Wodrich | In Masm32 is under Example6Splitter too an example to that Splitter. who means something deeper get in would like...
Best wishes
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 10/08/06 ▲ |
|
| |
|
|
Jörg
Sellmeyer | so what goes incidentally too:
CompileMarkSeparation $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 ... | 10/08/06 ▲ |
|
| |
|
|
| The DockSplitter is too in Basic written
In XBlite (XBasic offspring), Source finds your here: [...]  |
|
| |
| |
| |
|
|
Georg
Hovenbitzer | Hello together,
a thing is me with the second demonstration, the what three Window has, noticed.
- one works first The rights Page one complete by Click one, thereby becomes too the left Window with eingeklappt
- then by Click again ausklappen, thereafter is the right and the mittlere Window visible
- now is it by Click not any more possible the integrally left Window auszuklappen
has there someone a hint ?!
alas Yes, getest with XProfan 9.1, I had me a Sub.Procedur changed. |
|
| |
| Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a) | 10/12/06 ▲ |
|
| |
|
|
| Perhaps time into Headerdatei look 
CompileMarkSeparation $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&
means Header integrate and Splitter_SetDockingStyle(Hsplitter1&, ~DS_RIGHT) as right Docking settle |
|
| |
| |
| |
|
(912)
Deutsch
English
Français
Español
Italia