XProfan

Hello Jacob...

so vaguely???
Compile Mark Separation

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

functions lovely the part.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

Jörg
Sellmeyer

Very beautiful but Why not directly on the Statuszeile create instead of with Entry / move?

Greeting
Jörg

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

goes too, habs only strain quick of VB Translated...

Jac
de
Lad

thanks, functions! Yes, without Entry / wärs eleganter, but is still end alike, or???

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

can I The wallpaper.pcu of too in a cell of/ one GridBOX contuse???

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

08/30/06 ▲

Jörg
Sellmeyer

I wealth time, the goes if, then not more than with Franks Dll. so can at least Edits and Buttons in the LV zaubern, Why means no Statusbar.
Greeting
Jörg

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

08/30/06 ▲

Jac
de
Lad

Arrgh! The geniale DLL be verflucht!!! I buy tappt im dunkeln me already soon, there must I even time a week nothing food!)

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

08/31/06 ▲

Peter
Max
Müller

Hi,
and ausserdem has us IF already a code for List view.dll gebastelt where
integrally many Progressbalken hither and thither rush the one the marrow aufgeht.

tschö

XProfan X3, X4ß, Win 10.1

08/31/06 ▲