| |
| |
|
CB | Hi,
brauche la fois wieder fachmännische Aider!
Habe zum einfacheren Handling plusieurs EditControls dans einem StaticControl zusammengefasst - pour folgendem Schema:
KompilierenMarqueSéparationGroupBox5& = 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>)
là liegen maintenant alors EditControls sur einem Static et cet wiederum sur einem Tabcontrol.
Soweit funktioniert aussi alles.
Bloß habe je seitdem cela Problem, qui qui Abfragen des Status qui individuel Edits pas plus marcher. Zum Breakpoint viens je gar pas plus.
Ausschnitt aus qui Hauptschleife:
KompilierenMarqueSéparation
qui Konstruktion soll dem Anwender etliches à Herumklicken ersparen. si il une (certain) Eintrag dans einem champ gewählt hat, volonté autre Felder entsprechend gesetzt et qui Concentrer aussi juste dorthin gesetzt.
Hat einer de Euch une concept, wohin qui faute liegen pourrait?
So nebenbei: avec welchem Stil kriege je une cadre analog trop einer GroupBox zustande?
Christian |
|
| |
| |
| |
|
|
Rolf
Koch | Hi Christian,
[quote-part:d2b61bdc66]
So nebenbei: avec welchem Stil kriege je une cadre analog trop einer GroupBox zustande?
[/quote-part:d2b61bdc66]
Zumindest la fois en supplément:
ensuite kuck doch dans Roc, peut-être comme Dir un cadre, quel so ähnlich aussieht.
Rolf |
|
| |
| |
| |
|
|
 | Christian - erfahrungsgemäß wird einem chez solch Problem selten geholfen - sei car - Du erstellst la fois une kleinste-lauffähige variante quelle oui c'est ca cela Problem erzeugt.
So kamma plus rapide une Solution trouver - statt seulement selbst cette Construire sur qui Beine trop se mettre.
je sais je sais - Du hofftest quelqu'un löste bereits un ähnliches Problem - mais aussi qui Solution zuzuordnen ist anhand eines lauffähigen Beispieles einfacher.
Salve. |
|
| |
| |
| |
|
|
CB | Hi,
@iF: la hâte oui - wieder la fois - droite. 
cela wär oui so, comme täte Je l' mécanicien fragen, pourquoi qui blöde Karre dans chacun Kurve scheppert et hab cela Ding trop Hause stehen. mais irgendwie J'ai eu arrêt wirklich gehofft...
eh bien, habe alors meinen Code soweit gestrippt, qui mon Prob erkenntlich son sollte et qui simplicité halber qui INC avec ALLEN Variablen- et sonstigen DEFs komplett mitgeliefert.
Einiges ist chez qui Aufräumaktion dabei zuviel gelöscht worden, cela tut mais rien zur l'affaire.
qui Einträge sous Cor et Pulmo sommes konventionell dans einer Groupbox zusammengefasst et réagir korrekt.
mais qui Einträge sous WS (Contrôle SkelettGrp) tuns pas plus.
avec un Grund, weshalb je qui Edits dans un Contrôle se mettre veux, ist, qui je aussi qui elends vielen Einzeleinträge sous TAB3_AKTIV bzw. TAB3_INAKTIV loswerden voudrais, et simple b.B. qui jeweiligen Controls aus- et einblende.
Wäre jedenfalls pour nen Tip très reconnaissant.
Christian |
|
| |
| |
| |
|
|
CB | Hi,
habe malheureusement einigen überflüssigen Code übersehen trop effacer. cela peux trop einer Fehlermeldung à cause de fehlender Registry-Einträge mener.
c'est pourquoi ici ne verschlimmbesserte Version.
Christian |
|
| |
| |
| |
|
|
Rolf
Koch | Hi Christian,
peux on la fois voyons, dass on de Andreas Miethe wirklich apprendre peux 
d'abord entier dessus (mais cela la hâte Du glaube je déjà?):
KompilierenMarqueSéparation
ensuite au-dessous Votre la ligne erweitern (alors um $4000):
KompilierenMarqueSéparation
ensuite une Proc erstellen (mon Lieblingstipp de Andreas):
KompilierenMarqueSéparationDef 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&)
KompilierenMarqueSéparationSKELETTGrp& = Contrôle("Static",»,$64000000,10,258,775,148,%hwnd,3501,%Hinstance,$010000) Contrôle anlegen (weißer cadre)
OldStaticProc& = SetWindowLong(SKELETTGrp&,-4,ProcAddr(DummyCallback,4))
WSText& = Créer("Text",SKELETTGrp&,"WS :",8,13,32,17)
SetFont WSText&,Fett&
......
qui Abfragen pour cela Sonderstatic s'il te plaît ensuite so abfragen:
KompilierenMarqueSéparation
et je hoffe, dass je nix oublier qc habe et cela partie ensuite genauso bien fonctionne comment chez mir.
Rolf |
|
| |
| |
| |
|
|
CB | allô, Rolf!
Vielen Dank nochmal pour Votre Mühe! je ne sais pas, si toi mon nouvelle gestern encore erreicht hat - cela Ding funktioniert jedenfalls parfait!
Schicke Dir le soir, quoi je alles daraus gemacht hab - wirst staunen!
Ciao, Christian |
|
| |
| |
| |
|
|
Rolf
Koch | cela freut mich très.
Rolf |
|
| |
| |
| |
|
(511)
Deutsch
English
Français
Español
Italia