XProfan

- page 2 -

Rolf
Koch

Hi Pascal

non malheureusement doit qui Teile sur cela jeweilige Static.
Kennste doch:
Zum Beispiel Button Klick 2:
Showwindow(static1&,0)
Showwindow(static2&,1)
u.s.w - sonst devrait je einges enablen, quoi aussi très unproffesionell ist.

mais merci quand même.
Im Moment pas so extrem important, là je à einem anderen projet weiterareiten muss.

Rolf

Uwe
''Pascal''
Niemeier

allô Rolf!

Il convient plusieurs Gruppen de Elementen sur einmal un- ou bien ausgeblendet volonté (z.B. chez Reiterwechsel dans einem Tab-Contrôle)?

comment wäre es avec rahmenlosen Dialogen statt Statics?

peut-être pourrait on qui Statics aussi einem Subclassing unterziehen, si seulement qui Nebenwirkungen pas wären...

SeeYou
Pascal

Rolf
Koch

Hi Pascal,

oui wäre aussi une Possibilité, si on so simple et joli comment un Static den Dialogen de Hause aus une weisse Hintergrundfarbe donner pourrait. de Hause aus = per Stil et seulement pas per Startpaint - EndPaint *würg*

Rolf

Rolf - tu es doch avec qui Fil.pcu vertraut - pourquoi prends qui pas pour - qui mais est comment pour geschaffen. je peux Dir naturellement aussi un kleines demo pour liefern.

Salve, iF

Rolf
Koch

Hi Si,

bien sûr suis je avec cela vertraut, sogar très intim

alors meinste là Neuzeichnen?
je hatte extra *würg* chez Startpaint geschrieben. je hasse Startpaint et EndPaint. absolu fastidieux

mais comment dit: prenons uns dem Thema später nochmals à, là es im Moment doch pas so important ist. Es sei car un anderer intéressé sich weiterhin pour qui Fragestellung - ausser Startpaint LOL
Rolf

Jörg
Sellmeyer

allô Rolf,
comment wäre es car so:

Cls
dlg&=Createdialog(%hwnd...)
Static&=Control(Static,dlg&,....)
sur cet Static un Bitmap avec Handle pratiquer la magie, allez oui aussi avec Bitmap aus
grenier. un 1 x 1 Pixel reicht oui déjà pour une weißen Hintergrund
Button&=CreateButton(%dlg,...)

So la hâte Du qui Controls sur dem Dialog et cela Static gibt Dir den weißen Hintergrund
Salut
Jörg

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

Rolf
Koch

merci aussi Dir pour qui Antwort.

cependant oui c'est ca so (ähnlich sieht es oui aus).
je suis un Staticfetischist

et daher arbeite je seulement avec Bitmaps sur Statics.
je besoin ne...aucune Bitmap sur dem Staticteil. là je per Stil cela Staticcontrol dans weiss färbe. Brauche alors encore pas la fois un Pixel Grafik.
alors: Contrôle(STATIC,txt$,$54000106,x%,y%,breit%,hoch%,fenster&,$10000,%HINSTANCE) wäre weiss = Whiterect
ou bien
54000105 = Grayrect
ou bien
54000104 = Blackrect.
tu vois, und dir oui aussi sans Bitmap. je schätze tu as malheureusement mon Frage pas verstanden. comment je quoi erstelle et so plus ist oui bien sûr

. Schätzungsweise la hâte Du seulement plus unten angefangen trop lesen, là sieht es pour einem anderen Problem aus

.
und dir lediglich um cela Problem sur Statics erstellten Edits qui Tabtaste abzufragen.

Abgesehen en bleibt dans diesem le cas toujours cela Problem

mon Erstellung:

Dialog erstellen
Static sur elle (dans weisem Stil)
Controls sur elle
et schätzungsweise gibt es aucun Solution pour cela Problem, es sei den per Sous-classe., qui on qui Tabtaste là dans den Editfeldern ansprechen peux.

mais comment dit: pouvoir Euch maintenant pas fou. Muss arrêt maintenant d'abord quoi d'autre programmieren.

[quote-part:1267241905]
Cls
dlg&=Createdialog(%hwnd...)
Static&=Control(Static,dlg&,....)
sur cet Static un Bitmap avec Handle pratiquer la magie, allez oui aussi avec Bitmap aus
grenier. un 1 x 1 Pixel reicht oui déjà pour une weißen Hintergrund
Button&=CreateButton(%dlg,...)
[/quote-part:1267241905]
Jo pourrait je connaître

- so travailler ROC, NOCTRAMIC (très viel) et quelques meiner Beispielcodes doch.

Rolf

Moin Rolf, je encore la fois....

la fois regarder, si je toi jusqu'alors richtig verstanden habe:
So large es du déjà...
Kompilieren Marque Séparation

Declare Static&,Edits&[5],fenster&,Focus%,txt$
WINDOWSTYLE 31
WINDOWTITLE "STATIC Control und Tabtaste",TXT$
Window 0,0-640,440
LET FENSTER&=@Control("Dialog","",$54000000,10,10,210,300,%HWND,$7917,%hinstance)
LET TXT$="Test"
LET STATIC&=@Control("STATIC",txt$,$54000106,0,0,210,300,fenster&,$7918,%hinstance,$10000)
LET EDITs&[1]=@CREATEEDIT(STATIC&,"",10,10,200,25)
LET EDITs&[2]=@CREATEEDIT(STATIC&,"",10,50,200,25)
LET EDITs&[3]=@CREATEEDIT(STATIC&,"",10,90,200,25)
LET EDITs&[4]=@CREATEEDIT(STATIC&,"",10,130,200,25)
LET EDITs&[5]=@CREATEEDIT(STATIC&,"",10,170,200,25)
@SETFOCUS(EDITs&[1])
LET FOCUS%=1

Whilenot %MENUITEM=-2

    Waitinput

WEND

qui SKCONTROL.DLL habe je maintenant la fois weggelassen - avec cela kenne je mich pas aus - WS_TABSTOP ici nachträglich dans qui Controls einzufügen pourrait mais eigentlich ne...aucune Problem son - ou bien doch?
quelle Probleme la hâte du avec dem Dialog comme Untergrund, pourquoi soll qui weg, et quelle Probleme gibt es avec WINDOWSTYLE 512?

Rolf
Koch

Hi AH,

jo komischerweise klappt là maintenant qui Tabtaste. je hatte aussi $10000 pris.
peut-être liegt es maintenant doch seulement encore à den SKEdits.
mais wirklich bien so. peut-être peux je es oui ensuite (si je là weitermache) so umsetzen. et peut-être. den SKControls den Stile beibringen.

Thx
Rolf

Michael
Dell

Salut,

hab aussi encore un Beispiel avec WS_EX_CONTROLPARENT, weis allerdings pas si cela avec den SKEdits aussi fonctionne:
Kompilieren Marque Séparation

Bitte tabulator Taste betätigen
Def GSC(1) !"USER32.DLL","GetSysColor"
Declare dlg1&,st1&,txt1&,ed1&,ed2&,ed3&,tst&
WindowStyle 538
Cls
dlg1& = Create("Dialog",%HWnd,"Test Dialog - Bitte tabulator Taste betätigen",40,40,400,300)
st1&  = Control("Static","Dies ist ein Test!",$54010106,40,40,200,150,dlg1&,$10001,%HInstance,$050080) WS_EX_CONTROLPARENT =$050080
st1&  = Control("Static","Dies ist ein Test!",$54010106,40,120,200,150,%HWnd,$10001,%HInstance,$050080) WS_EX_CONTROLPARENT =$050080
txt1& = Create(  "Text",st1&,"Dies ist ein Test!",10, 10,180, 16)
ed1&  = Create(  "Edit",st1&,            "Edit 1",10, 40,180, 18)
ed2&  = Create(  "Edit",st1&,            "Edit 2",10, 70,180, 18)
ed3&  = Create(  "Edit",st1&,            "Edit 3",10,100,180, 18)
Sleep 1000
ShowWindow(st1&,0)
Sleep 1000
ShowWindow(st1&,1)

WhileNot Or(Equ(%Key,2),Equ(%MenuItem,-2))

    WaitInput

EndWhile

DestroyWindow(dlg1&)
Fin

Salut

Michael...

Salu Michael...

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

Rolf
Koch

oui, Michael, klappt aussi bestens!
Comme je le disais: ensuite hängt es de (avec Tab u.s.w) einem anderen facteur ab.
Werde ensuite nochmals detailiert chercher, pourquoi ca pas so allez. mais peut-être ca va oui so maintenant avec den Beispielen, viens seulement pas en supplément trop testen

Rolf