| |
| |
|
CB | Hi,
need time again fachmännische Help!
have to that einfacheren Handling several EditControls in a StaticControl abstracted - to folgendem schema:
CompileMarkSeparationGroupBox5& = Create("GroupBox",%HWND,"",10,249,775,155)
GroupBox5& = Control("Static","",$50000009,10,258,775,148,%hwnd,3501,%Hinstance) Control anlegen (weißer Rahmen)
WSText& = Create("Text",GroupBox5&,"WS :",8,12,32,17)
SetFont WSText&,Fett&
WS1& = Control("ComboBox","",$50000042,40,10,80,121,GroupBox5&,3013,%hinstance)
ClearList
AddString "ges. WS"
AddString "HWS"
AddString "BWS"
AddString "LWS"
AddString "HWS und BWS"
AddString "BWS und LWS"
AddString "HWS und LWS"
MoveListToChoice(WS1&)
ClearList
SendMessage(WS1&,$14E,0,0)
WS2& = Control("ComboBox","",$50000042,120,10,105,121,GroupBox5&,3014,%hinstance)
ClearList
AddString "frei"
AddString "klopfschmerzhaft"
MoveListToChoice(WS2&)
ClearList
SendMessage(WS2&,$14E,0,0<lass=s2>)
there lying now means EditControls on one Static and this against on one TabControl.
so far functions too everything.
mere have I since then the trouble, that the inquire the status the individual Edits not any more functions. to that Breakpoint come I none More.
neckline from the Hauptschleife:
CompileMarkSeparation
The structure should the users etliches on Herumklicken save. If it a (designed) Sign in one area chosen has, go others boxes properly staid and the Focus too same there staid.
has of/ one of you a idea, where the Error lying could?
so on the side: with welchem Style wars I a welt analog to a GroupBox zustande?
Christian |
|
| |
| |
| |
|
|
Rolf
Koch | Hi Christian,
[quote:d2b61bdc66]
so on the side: with welchem Style wars I a welt analog to a GroupBox zustande?
[/quote:d2b61bdc66]
at least time moreover:
then kuck still in Roc, Perhaps gefällt you one welt, which so similar looks.
Rolf |
|
| |
| |
| |
|
|
 | Christian - erfahrungsgemäß becomes one with such trouble seldom helped - be because - You erstellst time a smallest-lauffähige Variante which very the trouble created.
so kamma faster a Solution find - instead of first self this Konstrukt on The legs To to put.
i know I know - You hofftest someone resolved already one ähnliches trouble - but too The Solution zuzuordnen is anhand one lauffähigen Beispieles plainer.
salvo. |
|
| |
| |
| |
|
|
CB | Hi,
@iF: have Yes - again - right. 
the would Yes so, as täte I the mechanic ask, Why The stupid Karre in eachone curve scheppert and Have the thing To dwell stand. but somehow I had hold really hoped...
well well, have means my code so far gestrippt, that my Prob erkenntlich his ought to and the Simplicity halber The INC with ALLEN variables- and other DEFs complete included.
some is with the Aufräumaktion thereby too much deleted been, the does but nothing to thing.
The Entries under Cor and Pulmo are conventional in a Groupbox abstracted and react correctly.
but The Entries under WS (Control SkelettGrp) tuns not any more.
with one reason, and so I The Edits into Control to put wants, is, that so did i The elends many Einzeleinträge under TAB3_AKTIV or. TAB3_INAKTIV rid would like, and simply b.B. The jeweiligen Controls from- and einblende.
would be anyway for NEN hint very grateful.
Christian |
|
| |
| |
| |
|
|
CB | Hi,
have unfortunately some überflüssigen code overlooking To delete. the can to a Error Message because of fehlender Registry-Entries lead.
therefore here ne verschlimmbesserte Version.
Christian |
|
| |
| |
| |
|
|
Rolf
Koch | Hi Christian,
can time see, that one of Andreas Miethe really learn can 
first integrally supra (but the have You faith I already?):
CompileMarkSeparation
then under your row strain (means circa $4000):
CompileMarkSeparation
then a Proc create (my Lieblingstipp of Andreas):
CompileMarkSeparationDef CallWindowProc(5) !"USER32","CallWindowProcA"
Declare OldStaticProc&,UOldStaticProc&,dlg2&
Proc DummyCallback
Parameters wnd&,msg&,wparam&,lparam&
If msg& = $0111
Usermessage an %hwnd schicken
Sendmessage(%hwnd,$4000,0,lParam&)
Endif
Return CallWindowProc(OldStaticProc&,wnd&,msg&,wparam&,lparam&)
CompileMarkSeparationSKELETTGrp& = Control("Static","",$64000000,10,258,775,148,%hwnd,3501,%Hinstance,$010000) Control lay out (weißer welt)
OldStaticProc& = SetWindowLong(SKELETTGrp&,-4,ProcAddr(DummyCallback,4))
WSText& = Create("Text",SKELETTGrp&,"WS :",8,13,32,17)
SetFont WSText&,Fett&
......
The inquire for the Sonderstatic Please then so inquire:
CompileMarkSeparation
what about me hope, I nothing forget have and the part then just as well runs How by me.
Rolf |
|
| |
| |
| |
|
|
CB | Hello, Rolf!
Vielen Thanks again for your trouble! i don't know, whether you my Message yesterday yet access has - the thing functions anyway perfect!
mail you in the evening, I everything from it made Have - become marvel!
Ciao, Christian |
|
| |
| |
| |
|
|
Rolf
Koch | |
| |
| |
| |
|
(910)
Deutsch
English
Français
Español
Italia