| |
|
|
Jac de Lad | |
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 23.08.2006 ▲ |
|
|
|
|
| Hallo Jacob...
So in etwa??? KompilierenMarkierenSeparierenDEF @CreateStatusWindow(4) ! "comctl32","CreateStatusWindow"
DEf @CreateWindowEx(12) !"USER32","CreateWindowExA"
DEF @GetSysColor(1) !"USER32","GetSysColor"
Def @SetParent(2) !"USER32","SetParent"
Declare Dialog&,Status&,Text$,Positions#
Declare CLASSNAME$,PROGRESSHandle&,HWND&,ProgressZähler&
Windowstyle 31
Windowtitle "Statusbar Test"
Window 0,0-640,440
Dim Positions#,16
Long Positions#,0=250
Long Positions#,4=500
Long Positions#,8=-1
LET Text$="Statusbartext"
Status&=@CreateStatusWindow($50000920,@ADDR(TEXT$),%HWND,1000)
@Sendmessage(Status&,$404,3,Positions#)
Dispose Positions#
@Sendmessage(Status&,$401,0,@ADDR(TEXT$))
@Sendmessage(Status&,$410,0,@ADDR(TEXT$))
LET CLASSNAME$="msctls_progress32"
LET PROGRESSHandle&=@CreateWindowEx(0,@addr(CLASSNAME$),0,$40000000,250+3,3,250-6,@Height(Status&)-6,%HWND,0,%Hinstance,0)
@SetParent(PROGRESSHandle&,Status&)
@Showwindow(PROGRESSHandle&,1)
While 0=0
Sleep 250
@sendmessage(PROGRESSHandle&,$0400+2,ProgressZähler&,0)
LET ProgressZähler&=ProgressZähler&+1
wend
|
|
|
| |
|
|
|
Michael Wodrich | Funktioniert prima das Teil.
Schöne Grüße Michael Wodrich |
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 25.08.2006 ▲ |
|
|
|
|
Jörg Sellmeyer | Sehr schön aber warum nicht direkt auf der Statuszeile erstellen anstatt mit SetParent verschieben?
Saluto Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 25.08.2006 ▲ |
|
|
|
|
| Geht auch, habs nur grad schnell von VB übersetzt... |
|
|
| |
|
|
|
Jac de Lad | Danke, funktioniert! Ja, ohne SetParent wärs eleganter, aber ist doch am Ende egal, oder???
Jac |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 25.08.2006 ▲ |
|
|
|
|
| Jau...
|
|
|
| |
|
|
|
Jac de Lad | Kann ich die Progressbar auch in un Zelle einer Gridbox quetschen??? |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 30.08.2006 ▲ |
|
|
|
|
Jörg Sellmeyer | Ich schätze mal, das geht wenn, dann höchstens mit Franks Dll. Damit kann man zumindest Edits und Buttons in das LV zaubern, warum also keine Statusbar. Saluto Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 30.08.2006 ▲ |
|
|
|
|
Jac de Lad | Arrgh! Die geniale DLL sei verflucht!!! Ich kauf sie mir ja schon bald, da muss ich eben mal eine Woche nix essen!) |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 31.08.2006 ▲ |
|
|
|
|
Peter Max Müller | Hi, Und ausserdem hat uns IF schon einen Code per die Listview.dll gebastelt wo ganz viele Progressbalken hin und her sausen das einem das Herz aufgeht.
tschö |
|
|
| |
|
|
|
| KompilierenMarkierenSeparierenSource wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Progressbar in Statusbar
Def @Createstatuswindow(4) ! comctl32,CreateStatusWindow
Def @Createwindowex(12) !USER32,CreateWindowExA
Def @Getsyscolor(1) !USER32,GetSysColor
Def @Setparent(2) !USER32,SetParent
Declare Dialog&,Status&,Text$,Positions#
Declare Classname$,Progresshandle&,Hwnd&,Progresszähler&
Windowstyle 31
Windowtitle Statusbar Test
Window 0,0-640,440
Dim Positions#,16
Long Positions#,0=250
Long Positions#,4=500
Long Positions#,8=-1
Let Text$=Statusbartext
Status&=@Createstatuswindow($50000920,@Addr(Text$),%Hwnd,1000)
@Sendmessage(Status&,$404,3,Positions#)
Dispose Positions#
@Sendmessage(Status&,$401,0,@Addr(Text$))
@Sendmessage(Status&,$410,0,@Addr(Text$))
Let Classname$=msctls_progress32
Let Progresshandle&=@Createwindowex(0,@Addr(Classname$),0,$40000000,250+3,3,250-6,@Height(Status&)-6,%Hwnd,0,%Hinstance,0)
@Setparent(Progresshandle&,Status&)
@Showwindow(Progresshandle&,1)
While 0=0
Sleep 250
@Sendmessage(Progresshandle&,$0400+2,Progresszähler&,0)
Let Progresszähler&=Progresszähler&+1
Wend
|
|
|
| |
|
|