XProfan

English

efisch

I use a mehrteilige Statuszeile, The I with
Compile Mark Separation

DEF @CREATESTATUSBAR(6) @control("msctls_statusbar32",@$(2),$50800040,
@%(3),@%(4),@%(5),@%(6),@%(1),101,%HInstance)e>

beget. the goes too well, as long as The Fenstergröße not changed becomes.
then remaining The Statuszeile simply stand or disappears from the Window

(at verkleinern).
After SetWindowPos Handle& = 0,0-0,0 is everything again in the Lot.
there my Own Search (english-Kenntnisse wären Perhaps helpful been

) no verwertbaren
Results supplied has, The question on you:
gives it a Style, the The Anpassung automatically Done?

cordial Regards
ebi

10/20/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

No.

The Statusbar must always angeschubst go.

on the best and on the Saubersten is the Anschubsen so:
Compile Mark Separation

external("user32","SetWindowPos",sb&,0,0,0,0,0,28)
external("user32","InvalidateRect",sb&,0,0)
external("user32","UpdateWindow",sb&)re>

the Repaint becomes usually of a Program in the Fenstercallback prompted.

salvo, iF.

10/20/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

efisch

[quote:c2c09e6ed6=iF]the Repaint becomes usually of a Program in the Fenstercallback prompted.[/quote:c2c09e6ed6]moreover missing me z.Z. yet the Detailwissen

I must me means well a little bit kundig make. can someone what recommend?

thanks
ebi

10/20/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

look time the dürfe very the his what You gladly would have:
Compile Mark Separation

Set("FastMode",1)
def cwp(5) !"user32","CallWindowProcA"
Declare ex%,_owp&,sb&
Cls
_owp&:=external("user32","SetWindowLongA",%hwnd,-4, Procaddr(_wproc,4))
sb&:=create("StatusWindow",%hwnd,"Bereit.")

Whilenot ex%

    Waitinput

Endwhile

end

Proc _wproc

    Parameters Wnd&, Msg&, Wparam&, Lparam&

    if (msg&==16)// close

        ex%:=1

    elseif (msg& == 3)// move

    elseif (msg& == 5)// size

        _redrw

    elseif (msg& == 15)// paint

    elseif (msg& == 256)// keydwn

    elseif (msg& == $108)// keylast

    elseif (msg& == 522)// wheel

        if (wparam&>0)

        else

        endif

    Endif

    Return cwp(_owp&,Wnd&, Msg&, Wparam&, Lparam&)

Endproc

proc _redrw

    External("user32","SetWindowPos",Sb&,0,0,0,0,0,28)
    External("user32","InvalidateRect",Sb&,0,0)
    External("user32","UpdateWindow",Sb&)

endproc

salvo, iF.

10/20/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

efisch

Hello iF,
your Info on The Window-Callback-procedure was the crucial Info.
thereupon have I in the Profan-Help an example found and ShowWindow adjusted.
shining To functions.
will be with hereafter your example time accurate standing, Perhaps backing it Yes my understanding another little.

thanks
ebi

10/21/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote