XProfan

English

Hubert
Binnewies

Hello together,

I have one Proggi in work the already concise 1500 Lines long is.
now has the Proggi several Window with Buttons.
Logischerweise set I to the Fenstererstellung a Whilenot Loop in the the first commands one Waitinput is.
but seltsamerweise becomes the Waitinput permanent durchbrochen without that I a action ausführe.
in the Program use I none Timer, its of course The Thread.pcu present, but tappt im dunkeln stick in a Proc-Endproc not called becomes.
and otherwise knows I do not with which the Waitinput of my Proggi durchbrochen go can.
has of/ one ne Idea How I inquire can with which the Waitinput durchbrochen watts??

thanks Schonmal beforehand.

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

08/03/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Lass you The Messages Show, %message

, according to worth might then clear his what whom Waitinput durchbricht.

08/03/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hubert
Binnewies

I habs now out...

but this is More as strange what about me verzweifel grade here...because it utterly unlogisch is...

its the %wmpaint

If I the now directly to the Waitinput with Ner dummyvariablen request so the on 0 staid becomes reacted the waitinput not any more on The buttons....

booooooaaaaahhhh.....wat mach I only wrong....

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

08/03/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hubert
Binnewies

I have time weitergeforscht....

means....in following Konstelation have I in special the trouble:
Compile Mark Separation

DLGRhin&=CREATE("DIALOG",%HWND,"Rechner hinzufügen",22,20,400,330)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Def Cps(6) Control("STATIC",@$(2),$5400010E,@%(3),@%(4),@%(5),@%(6),@%(1),2000, %Hinstance)
Picstatic1&=Cps(DlgRhin&,"",0,0,Width(Dlg&),Height(Dlg&))
Pich1&=Create("hpic",-1,"IMGRHhintergrund.bmp")
Sendmessage(Picstatic1&,$172,0,Pich1&)
EDIT1& =@CREATE("EDIT",Picstatic1&,"",0050,0080,0285,0020)
EDIT2& =@CREATE("EDIT",Picstatic1&,"",0050,0140,0285,0020)
EDIT3& =@CREATE("EDIT",Picstatic1&,"",0050,0202,0285,0020)
BUTTON1Rhin& =@CREATE("BUTTON",Picstatic1&,"Hinzufügen",0037,0250,0090,0030)
BUTTON2Rhin& =@CREATE("BUTTON",Picstatic1&,"Liste",0147,0250,0090,0030)
BUTTON3Rhin& =@CREATE("BUTTON",Picstatic1&,"OK",0257,0250,0090,0030)
SETFOCUS(Picstatic1&)
LET DIALOGENDERhin%=0

WHILENOT DIALOGENDERhin%

    waitinput

    If @EQU(%KEY,2)

        LET DIALOGENDERhin%= 1

    ELSEIF %wmPaint=1

    ELSEIF GETFOCUS(EDIT1&) EDIT

    ELSEIF GETFOCUS(EDIT2&) EDIT

    ELSEIF GETFOCUS(EDIT3&) EDIT

    ELSEIF GETFOCUS(BUTTON1Rhin&) BUTTON Hinzufügen

        LET DIALOGENDERhin%= 1
        ..........

    ELSEIF GETFOCUS(BUTTON2Rhin&) BUTTON Liste

        LET DIALOGENDERhin%= 1
        ......

    ELSEIF GETFOCUS(BUTTON3Rhin&) BUTTON OK

        LET DIALOGENDERhin%= 1

    ENDIF

Endwhile

...........

except the %wmpaint becomes the waitinput not durchbrochen.
the Waitinput reacted not The Buttons,
only if I on Buttons in the übergeordneten Mainwindow click.
and with the Window have I the background by Loadbmp loaded, there XProfan and Windows the Repaint on the fly manage.

in the Child-Window have I this lane chosen, there the control here the Repaint on the fly Done.
Schmeisse I the control out reacted too the Waitinput again.

I can means weder the Control yet the Waitinput dispense.
has of/ one ne idea How I the two moreover bring itself To tolerate?

Vielen Thanks beforehand.

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

08/03/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

which XProfanversion very?

The code is unfortunately not run - something like is miserable.

08/03/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

Hi,
give with whom Dialogelementen whom dialog as Elternfenster on and not the Static. the Elternfenster gives on, on which Window Messages over the Betätigemn the Dialogelemnte skillful go. One Static can so nothing begin.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

08/03/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hubert
Binnewies

[quote:63b31b4736=iF]which XProfanversion very?

The code is unfortunately not run - something like is miserable.

[/quote:63b31b4736]
tztz.....means...somewhere in the Forum (sorry I know not any more where) had You therefore gebeten The used XProfan Version on a defined place To write...
Have I made, but if the To small is must You already your Website paraphrase

[quote:63b31b4736=RGH]Hello,
give with whom Dialogelementen whom dialog as Elternfenster on and not the Static. the Elternfenster gives on, on which Window Messages over the Betätigemn the Dialogelemnte skillful go. One Static can so nothing begin.

Greeting
Roland[/quote:63b31b4736]
Have I attempts, thereby arise but one other trouble.
Since I the Static first draw lying The Buttons and Edits optisch to the Static.
but there the Parent the dialog is lying tappt im dunkeln Programmtechnisch behind it and can accordingly with the mouse not access go.
Ergo: not working.

but I have Schonmal one Ähnliches Prob had, Perhaps reminded You yourself on it IF.
look time here : [...]

there had namely very DU me whom hint with the Static given.

I Have me but whom Posting but too again very durchgelesen, and there another hint from you discover, whom Getmessage.
from it have I a Solution gebastelt (I hope The runs too yet in the Compilat)
Compile Mark Separation

DLGRhin&=CREATE("DIALOG",%HWND,"Rechner hinzufügen",250,120,400,330)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Def Cps(6) Control("STATIC",@$(2),$5400010E,@%(3),@%(4),@%(5),@%(6),@%(1),2000, %Hinstance)
Picstatic&=Cps(DlgRhin&,"",0,0,Width(Dlg&),Height(Dlg&))
Pich&=Create("hpic",-1,"IMGRHhintergrund.bmp")
Sendmessage(Picstatic&,$172,0,Pich&)
EDIT1& =@CREATE("EDIT",Picstatic&,"",0050,0080,0285,0020)
EDIT2& =@CREATE("EDIT",Picstatic&,"",0050,0140,0285,0020)
EDIT3& =@CREATE("EDIT",Picstatic&,"",0050,0202,0285,0020)
BUTTON1Rhin& =@CREATE("BUTTON",Picstatic&,"Hinzufügen",0037,0250,0090,0030)
BUTTON2Rhin& =@CREATE("BUTTON",Picstatic&,"Liste",0147,0250,0090,0030)
BUTTON3Rhin& =@CREATE("BUTTON",Picstatic&,"OK",0257,0250,0090,0030)
SETFOCUS(Picstatic&)
LET DIALOGENDERhin%=0

WHILENOT DIALOGENDERhin%

    GetMessage

    If &wParam=1

        Continue

    Endif

    If @EQU(%KEY,2)

        LET DIALOGENDERhin%= 1

    ELSEIF GETFOCUS(EDIT1&) EDIT

    ELSEIF GETFOCUS(EDIT2&) EDIT

    ELSEIF GETFOCUS(  BUTTON1Rhin&) BUTTON Hinzufügen

        LET DIALOGENDERhin%= 1

    ELSEIF GETFOCUS(BUTTON2Rhin&) BUTTON Liste

        LET DIALOGENDERhin%= 1

    ELSEIF %Getfocus=BUTTON3Rhin& BUTTON OK

        LET DIALOGENDERhin%= 1

    ENDIF

Endwhile

functions so far correct, I have only further course one other Prob:
How can I The Systemvariable %Key delete?
with einfachem Reading becomes The not reset...

Hubert

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

08/04/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hm %key delete hm Perhaps with
Compile Mark Separation

settimer 1
waitinput
killtimerre>

08/04/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Hello Georg,
Probier time the:
Compile Mark Separation

print %key,"Taste drücken"
WaitInput
print %key,"Taste drücken, %key wird zurückgesetzt"
WaitInput
SetTimer 1
WaitInput
KillTimer
print %key
WaitI

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

08/04/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hubert
Binnewies

thanks you both....has wonderful functions..

now knows so did i the the GetMessage whom %Key not deletes.

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

08/04/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hubert
Binnewies

One Prob have I yet with my new structure....

I knows now of course How %Key deleted becomes, but in the structure becomes it not any more staid (knows the geier Why)..
now be I do not in the site the Kreuzchen to that close abzufragen.
too %Message , &wParam , &lParam give no eindeutige values, only one Double-click on close, and this is not sense the thing.

has there a ne idea??

thanks Schonmal beforehand.

Hubert.

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

08/05/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hubert
Binnewies

none a idea???

strange...

WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"

08/08/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

►