XProfan

- Page 2 -

Rolf
Koch

either You click on Ausführliche response write and have since the Formatierungsoptionen or You setting it without The space between the code (only so it here displayed becomes):
[c o d e]here the code[/c o d e]

Jörg
Sellmeyer

Andre Hilprecht

the understand I, everything clear.
Perhaps needed I the detour over GetText$(Pass%) not weg, because my Password no word separate a number is.

what other, How get your whom Programmcode here in so one Window, sees rather from what about me must certainly time again couple Lines Source post?

Greeting André

this is no detour separate The only Possibility on whom Text To come - alike whether Text or number. Pass% contains only the lever to that Editcontrol.
If you a number have and weiterverwenden want, must You do not forget tappt im dunkeln with Val(GetText$(Pass%)) in a numerischen worth To transform.

Greeting
Jörg

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

Andre Hilprecht

Perhaps needed I the detour over GetText$(Pass%) not weg, because my Password no word separate a number is.

whom detour wirste already weg must

at that create the Edit-Controls orders windows this a Identifizierungnummer To, The You in Pass% stored have. there is as only The ID for Edit stored. circa on whom Text To come, must this with GetText$ read, where You The ID to the Control commit, which this Text contains.

i'm too slow

, naja old man and the heat

Andre
Hilprecht

Hm, your power me straight clear, the something not goes, what by me but working ??!!??
means my part sees now so from:
Compile Mark Separation

Text%    = @Create(Text,D%,Bitte Programmpasswort eingeben:,20,20,300,20)
Pass%    = @Create(Edit,D%,,   20, 50,200,-30)
Font%    = @Create(Font,Sans Serif,24,0,0,0,0)
SetFont Pass%, Font%
sendmessage(Pass%,204,ord(*),0)
OK%      = @Create(DefButton,D%,OK, 20,140, 140,30)
CANCEL%  = @Create(DefButton,D%,Abbruch,180,140,140,30)
@SetFocus(Pass%)
F% = 0

WhileNot F%

    WaitInput

    If Clicked(OK%)

        Pass$    = @GetText$(Pass%)

        If Pass$=0000

            DestroyWindow(OK%)
            F% = 1
            DestroyWindow(D%)
            Client

        ElseIf Pass$ <> 0000

            Text1% = @Create(Text,D%,Das Passwort ist leider,20,200,140,20)
            Text2% = @Create(Text,D%,F A L S C H   ! !,60,220,140,20)
            EnableWindow Text%,0
            EnableWindow Pass%,0
            EnableWindow OK%,0
            EnableWindow CANCEL%,0
            SLEEP 2500
            F% = 1
            DestroyWindow(D%)

        EndIf

    ElseIf @Clicked(CANCEL%)

        F% = 1
        DestroyWindow(D%)

    EndIf

EndWhile

and it working now wunschgemäß.

thanks you all, until next Denkanstoß Greeting André

You make it still so, as we wrote

Compile Mark Separation

Pass$  = @Gettext$(Pass%)

Pass% is the ID of Edit
Pass$ is the Stringvariable where the Text stored go should

- Page 3 -

Andre
Hilprecht

have right, is correct, the had I install because IMMER The Message kam;
the Password is unfortunately wrong!
so working jetz anyway my Password-request wunschgemäß and asterisk.

Michael
Wodrich

me are another couple items noticed:

Button: it ought to only one DefButton inserted go, Rest is Button.
The reason: Def standing for Default (default). these means the vorgewählte Button.

DestroyWindow(OK%) - not necessary. If you whom dialog deletes, weg The daraufliegenden Controls voluntarily with...

Überhaupt can You The whole DestroyWindow() on 1 reduce. give simply the variables F% the value 2 if the Password is correct. then can You behind the While-Loop whom DestroyWindow settle and
Case F% = 2: Client
whom Programmteil Call.

Best wishes
Michael Wodrich
(too Jahrgang 60)

Programmieren, das spannendste Detektivspiel der Welt.

Pedro
Santos

Hello

How already Pascal erwähnt Sendmessages afford a crowd Opportunities
would be a good idea here in the Communty one container To schafen where Sendmessages with Description what it bewirkt stored go. straight for Beginner is the one blessings

greeting

Pedro

Windows XP Home
Xprofan 10

@Petro
This will with the number on Messages, The there's one schwieriges undertaking

on my own The Messages for RichEdit would here pages fill. for windows generally
becomes the means hardly weg. but Perhaps has iF to ne idea, because fundamentally ought to
there what possible his.

Nico
Madysa

one could in the Online-Doku one chapter Messages lay out.

Nico Madysa

Nunja I could NEN MessagesPool invent - any Headerfiles of XProfan as Datenbasis einspeisen - and a leichtes search make possible.

@Nico: in the ODoku there already Sheets with Messages.