XProfan

Michael
Dell

Korrigiere:

SetText %Hwnd venez mir Spanisch avant, sollte anstell de %HWnd pas cela
Handle eines Textfeldes stehen? wohin vouloir du qui Zeit car Montrer?

Sorry, je suis heut wohl quelque chose daneben! arrêt toi la fois lieber à Si

Vieleicht hilft mais aussi cet kleine Demo:
Kompilieren Marque Séparation

Declare txt1&
window 0,0-400,200
PopUp "Test"
AppendMenu 100,"Test_1"
AppendMenu 101,"Test_2"
Separator
AppendMenu 102,"Test_3"
settimer 500
txt1&=Create("Text",%HWnd,"",10,100,80,22)

whileNot Equ(%MenuItem,-2)

    Sleep 100

    If %wmtimer

        SetText txt1&,Time$(0)+":"+substr$(Time$(1),1,".")
        WindowTitle "Check Time - "+Time$(0)+":"+substr$(Time$(1),1,".")  anstelle SetText %HWnd
        SetActiveWindow(%HWnd)

    ElseIf Equ(%MenuItem,100)

        MessageBox("Test_1","Gewählt:",0)
        SetMenuItem 0

    ElseIf Equ(%MenuItem,101)

        MessageBox("Test_2","Gewählt:",0)
        SetMenuItem 0

    ElseIf Equ(%MenuItem,102)

        MessageBox("Test_3","Gewählt:",0)
        SetMenuItem 0

    EndIf

    SetActiveWindow(%HWnd)

endwhile

killtimer

Michael...

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

04.09.2004 ▲

exposition la fois ici: [...]

si Du Votre Zeitanzeige dans qui thread.do legst, funzt es permanent.

XProfan - needet.

Salve, iF

PS: si je mir Dein Avatar so anschaue frage je mich quoi Dir car passiert sei.

04.09.2004 ▲

Peter
Max
Müller

Moin,Moin,

@Michael : wohin qui Zeit dargestellt wird c'est moi égal.si la fenêtre ou bien im Windows Title.
j'ai la fois deinen Demo Code ausprobiert.mais même chose Problem comment chez meinem.
@CreateDialog la fenêtre volonté beim umspringen qui montre selbstständig et schliessen sich.
mais aussi pas alle.je crois cela Problem tritt ensuite sur si per SetFocus sur une Button verweist wird qui den Dialog schliesst.Jedenfalls habe je cela la fois geändert et ensuite lief es.
je remercie Dir.

@IF : j'ai malheureusement ne...aucune X-Profan.encore pas.je merke mais selbst cela alle schönen Funktionen X-Profan brauchen.ici sei seulement la fois X-menu erwähnt.c'est pourquoi werde je prochain semaine updaten.
et trop meinem Avantar: si je mir Deinen so begucke la hâte aussi Du un böses Schicksal erlitten

) .
cela photo ist entstanden comme je mich sur einem VBA rendez-vous comme Profaner geoutet habe.non,Amusement beiseite.je wußte simple pas quoi pour un Bild je prendre sollte et là habe je cela erstbeste pris.Beim Kickboxen sieht on déjà la fois so aus.
et aussi un großes merci joli pour Votre Aider à toi.

XProfan X3, X4ß, Win 10.1

allô Peter,- trop Deinem Avatar,-

je habs kappiert.

trop Deinem Minuteur-Problem,- je crois cela dir cela sekündliche waitinput-sortir de cet Probleme bescherrt (là rester arrêt qui messages sur qui Strecke),- si Du alors seulement une Minutengenaue-Anzeige proggen würdest wären wohl qui Probleme dahin.

Salve, iF

Dennis
Schulmeister

allô Peter,

folgenden Quellcode habe je la fois avant un paire Jahren erstellt, comme justement Profan² 7 récente était. (Hach, étions le reste Zeiten.

)

je serait pour qui l'heure keinen eigenen Minuteur prendre, là dass viel trop ungenau ist. Frage qui Zeit doch simple avec @Time$() ab...

Salut,
Dennis

(Fast) alle Profan²-Versionen seit Version 2.6, sowie (fast) alle Windows-Versionen seit Windows 3.1

Ragnar
Rehbein

böses programm

erzeugt 100 % cpu-charge !

trop DOS-Zeiten wohin seulement un programm en ce moment lief sûrement ne...aucune problem mais aujourd'hui .....

un sleep 1 im IF et dans ELSE -zweig wären sûrement angebracht.

r.r.

Dennis
Schulmeister

Tricolore à vrai dire pas plus getestet mais direct ovn qui Backup-CD hochgeladen.

alors Sleep 1 pas oublier qc.

Salut,
Dennis

(Fast) alle Profan²-Versionen seit Version 2.6, sowie (fast) alle Windows-Versionen seit Windows 3.1

Peter
Max
Müller

Halli,allô,
Erstmal vielen Dank à alle pour eure Aider.
je crois si je qui montre so progge cela vous seulement minütlich umspringt wird es aussi pas wirklich besser.pouvoir qui Anwender kurz avant qui vollen minute un Dialog sur et qui montre springt just kurz après um wird cela la fenêtre wieder geschlossen.Glaube je zumindestens.j'ai es pas ausprobiert.
Hab simple SetFocus sur qui Button weggelassen et es rennt sans Probs.
et quoi aucun de euch savons konnte: Es handelt sich um une Analoguhr wohin un Sekundenzeiger simple bien aussieht. *coolyeah*
Machts alle bien et allez calme la fois dans qui soleil.

jusqu'à bientôt
Euer Peter

XProfan X3, X4ß, Win 10.1

allô Peter...

si du ici une partie votre Quellcodes posté hättest, hätte on dir bestimmt plus rapide et besser aider peut...
trop deinem Problem: qui Minuteur durchbricht pour qui eingestellten Zeit Waitinput et löst avec cela aussi den Button aus, den du après avec GetFocus abfragst et qui den Concentrer hat. Getfocus überprüft seulement, si un Button den Concentrer hat, pas mais si il gedrückt wurde. Versuch la fois folgende Buttonabfrage:
Si @gt(sendmessage(Dein_Button_Handle&,$00F2,0,0),40)
cet Probleme wirst du aussi chez qui Abfrage de Menüpunkten avons, es sei car tu mets cela menu avec SetMenuitem0 wieder zurück...

PS: comme je IFs Avatar zum ersten la fois gesehen habe.... :biggrin:

Uwe
''Pascal''
Niemeier

allô Peter!

>> cela photo ist entstanden comme je mich sur einem VBA rendez-vous comme Profaner geoutet habe.

j'ai là encore un Beispiel, cela sans XProfan auskommt:
Kompilieren Marque Séparation

window 50,50-500,200
setactivewindow(%hwnd)
usermessages 16
def GetModuleHandle(1) !"KERNEL32","GetModuleHandleA"
def GetProcAddress(2) !"KERNEL32","GetProcAddress"
def CreateThread(6) !"KERNEL32","CreateThread"
def TerminateThread(2) !"KERNEL32","TerminateThread"
def ResumeThread(1) !"KERNEL32","ResumeThread"
def SuspendThread(1) !"KERNEL32","SuspendThread"
declare a$,a&,a#
declare Funct1&,Funct2&,Funct3&,Dummy&,Thread&
a$="Kernel32"
a&=GetModuleHandle(addr(a$))
a$="GetTimeFormatA"
Funct1&=GetProcAddress(a&,addr(a$))
a$="Sleep"
Funct3&=GetProcAddress(a&,addr(a$))
a$="User32"
a&=GetModuleHandle(addr(a$))
a$="SendMessageA"
Funct2&=GetProcAddress(a&,addr(a$))
dim a#,200
long a#,0=-1947432107
long a#,4=-141883267
long a#,8=1779746435
long a#,12=6968852
long a#,16=6946922
long a#,20=126550122
long a#,24=1784074495
long a#,28=-1962120704
long a#,32=-1957688249
long a#,36=-788593593
long a#,40=256104
long a#,44=138906368
long a#,48=-24915713
long a#,52=-1949011199
long a#,56=79846885
long a#,60=0
long a#,100 =Funct1&	GetTimeFormat
long a#,104 =Funct2&	SendMessageA
long a#,108 =Funct3&	Sleep
long a#,112 =%hwnd	Zielhandle
Thread&=CreateThread(0,0,a#,a#+100,0,addr(Dummy&))

while 1

    waitinput
    case %umessage=16:break
    case %key=97:SuspendThread(Thread&)--Taste "a": Stopp
    case %key=98:ResumeThread(Thread&)---Taste "b": Weiter

endwhile

TerminateThread(Thread&,259)	259 = STILL_ACTIVE
dispose a#

Weils là encore ne...aucune @ProcAddr(S,N) donnais, ist qui eigendliche Routine dans Assenbler geschrieben et dans un Bereichsvariable emballé worden (ungefähr so comment beim seligen C64 qui Maschinensprache-Codes)

cela partie sollte theoretisch sogar encore jusqu'à sur Profan 5 runterzudrücken son.

HTH
Pascal