XProfan

Hm your code calls a function "zentriert" on but the lying not.

a couple Notes:

You uses number of times Window Style vlt. around the Style the Mainwindow anew festzulegen -

Window Style around the Hauptfensterstil To define can only once to Erzeugung the Mainwindow apply go.

then uses You sleep presumably in the hope the your "Splash-Screen" a Time long displayed becomes -

the can but to hinten make at there Sleep sooner something like How "ProgrammAnhalten" is and if the window by then not entire painted/ aufgebaut watts then sees one "nix". If the User Waiting should then always rather waitInput there the Thread thereby not stand remaining.

In example.
Compile Mark Separation

proc userWarte

    parameters ms&
    var tme&=&getTickCount+ms&

    while &getTickCount<tme&

        waitInput 30

    wend

oc

08/21/11 ▲

With the Windowstyle in the master-Program (in the code) is a slip, now where You it write. there ought to not More attend.
Yes sleep ought to the window stop circa then later weiterzumachen.
will be me but your suggestion To hearts take and times swap.

Stephie

The with Centered begot code, setting the window always center screen.
Compile Mark Separation

'----- Fenster Zentriert -----

Proc Zentriert

    Parameters b%,h%
    Window ((%maxx - b%) / 2),((%maxy - h%) / 2) - b%,h%

EndP

XProfan 11

08/21/11 ▲

Stephie

Sorry that I me first now login, but one known has attempts me my erased File back To fetch. and he brought home the bacon.
now is again everything at middle-aged.

iF, have your code tested and me as not acceptable found.
it ought to one startfenster attend, so the users it short reading can and then ought to the Hauptprogramm launched go.
with your code goes it same over into Mainwindow without the one The chance has the Startfenster To see and To reading.
means must I with of my Variante with sleep stay.
thanks nevertheless for Info, have me it time as a precaution abgespeichert.

XProfan 11

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

Regards!

but... ne - then have You it of my opinion to not "richtig" installed.

You must on The function just as How on Sleep as Parameter The Number of To wartenden Millisekunden append.

userWarte 2000 becomes definitiv at least 2 sec Waiting -

with Sleep against can it his - How I already wrote - that it in the Result not always so functions becomes How You you erhoffst where I do not of 1 computer and 1 Betriebssystem write separate even a wide volume.

Jörg
Sellmeyer

Hm - then can the still too same so vereinfachen:
Compile Mark Separation

proc userWarte

    parameters ms&

    while 1

        waitInput ms&

    wend

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

XProfan X2
Win7 Ultimate, PDual T2310 @ 1.46GHz

Paul
Glatz

for me sees the as an Endlosschleife from

Julian
Schmidt

is too a Endlosschleife

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

Jörg
Sellmeyer

Sorry! having one Break forget. Compile Mark Separation proc userWarte parameters ms& while 1 waitInput ms& break wend endProc Cls userwarte(2000) print "fertig"
Windows XP SP2 XProfan X4 ... und hier mal was ganz anderes als Profan ...	08/23/11 ▲ Vollständiges Quote Absatzweise Quote Zeilenweise Quote

No can not there ne Message reicht around the "Schleife" To durchbrechen instead of ms waited becomes. oO After Deim principle is indeed the While or. The Loop without weight.

E.T.

I "baue" so a Splash-Screen mostly so, only to Note:
Compile Mark Separation

Proc Splash

    Parameters SplashText$
    var Pic&[1] = @Create("hPic",Dll2&,"Splash")
    var Splash_Win& = @Create("Bitmap",%Desktop,Pic&[1],(%MaxX/2-280),(%MaxY/2-280))
    StartPaint Splash_Win&
    TextColor RGB(255,255,0),-1
    UseFont "Arial",30,15,1,1,0
    DrawText 15,(@Height(Splash_Win&)-50),SplashText$
    EndPaint
    waitinput 2000'Zeit je nach Wunsch, oder ohne Zeit um auf User zu warten
    destroyWindow(Splash_Win&)

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

08/24/11 ▲

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

@E.T.: Well, with Your example is it the User possible too less than 2000ms To Waiting z.B. because it clicking. should the Splash but a gewisse Time showing then brings hold The function The I supra written have.

08/25/11 ▲