XProfan

¡Hola Jacob...

So en etwa???
Kompilieren Marca Separación

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

Michael
Wodrich

Funktioniert prima el Teil.

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Jörg
Sellmeyer

Sehr schön aber por qué no direkt en el Statuszeile redactar anstatt con SetParent mover?

Saludo
Jörg

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

Geht auch, habs sólo grad rápidamente de VB traducido...

Jac
de
Lad

Gracias, funktioniert! Sí, sin SetParent wärs eleganter, aber es doch al 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

Jau...

Jac
de
Lad

Kann Yo el Progressbar auch en un Zelle uno 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

Yo schätze veces, el va si, entonces höchstens con Franks Dll. Damit puede ser zumindest Edits y Buttons en el LV zaubern, por qué also no Statusbar.
Saludo
Jörg

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

30.08.2006 ▲

Jac
de
Lad

Arrgh! El geniale DLL sei verflucht!!! Yo kauf ellos me sí ya bald, como muss Yo eben veces una Semana 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 ha uns IF ya una Code para el Listview.dll gebastelt wo
bastante viele Progressbalken hin y her sausen el una el Herz aufgeht.

tschö

XProfan X3, X4ß, Win 10.1

31.08.2006 ▲