XProfan

- Seite 2 -

Rolf
Koch

Hi Pascal

Nein leider müssen die Teile auf das jeweilige Static.
Kennste doch:
Zum Beispiel Button Klick 2:
Showwindow(static1&,0)
Showwindow(static2&,1)
u.s.w - sonst müsste ich einges enablen, was auch sehr unproffesionell ist.

Aber Danke trotzdem.
Im Moment nicht so extrem wichtig, da ich an einem anderen Projekt weiterareiten muss.

Rolf

Uwe
''Pascal''
Niemeier

Hallo Rolf!

Es sollen mehrere Gruppen von Elementen auf einmal ein- oder ausgeblendet werden (z.B. bei Reiterwechsel in einem Tab-Control)?

Wie wäre es mit rahmenlosen Dialogen statt Statics?

Vielleicht könnte man die Statics auch einem Subclassing unterziehen, wenn nur die Nebenwirkungen nicht wären...

SeeYou
Pascal

Rolf
Koch

Hi Pascal,

ja wäre auch eine Möglichkeit, wenn man so einfach und schön wie ein Static den Dialogen von Hause aus eine weisse Hintergrundfarbe geben könnte. Von Hause aus = per Stil und nur nicht per Startpaint - Endpaint *würg*

Rolf

Rolf - Du bist doch mit der Thread.pcu vertraut - warum nimmst die nicht dafür - die ist doch wie dafür geschaffen. Ich kann Dir natürlich auch ein kleines demo dafür liefern.

Salve, iF

Rolf
Koch

Hi If,

klar bin ich damit vertraut, sogar sehr intim

Also meinste dort Neuzeichnen?
Ich hatte extra *würg* bei Startpaint geschrieben. Ich hasse Startpaint und Endpaint. Absolut langweilig

Aber wie gesagt: Nehmen wir uns dem Thema später nochmals an, da es im Moment doch nicht so wichtig ist. Es sei denn ein anderer interessiert sich weiterhin für die Fragestellung - ausser Startpaint LOL
Rolf

Jörg
Sellmeyer

Hallo Rolf,
Wie wäre es denn so:

Cls
dlg&=Createdialog(%hwnd...)
Static&=Control(Static,dlg&,....)
auf dieses Static ein Bitmap mit Handle zaubern, geht ja auch mit Bitmap aus
Speicher. Ein 1 x 1 Pixel reicht ja schon für einen weißen Hintergrund
Button&=CreateButton(%dlg,...)

So hast Du die Controls auf dem Dialog und das Static gibt Dir den weißen Hintergrund
Gruß
Jörg

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

Rolf
Koch

Danke auch Dir für die Antwort.

Jedoch genau so (ähnlich sieht es ja aus).
Ich bin ein Staticfetischist

und daher arbeite ich nur mit Bitmaps auf Statics.
Ich benötige kein Bitmap auf dem Staticteil. Da ich per Stil das Staticcontrol in weiss färbe. Brauche also noch nicht mal ein Pixel Grafik.
Also: Control(STATIC,txt$,$54000106,x%,y%,breit%,hoch%,fenster&,$10000,%hinstance) wäre weiss = Whiterect
oder
54000105 = Grayrect
oder
54000104 = Blackrect.
Du siehst, es geht ja auch ohne Bitmap. Ich schätze Du hast leider meine Frage nicht verstanden. Wie ich was erstelle und so weiter ist ja klar

. Schätzungsweise hast Du erst weiter unten angefangen zu lesen, da sieht es nach einem anderen Problem aus

.
Es geht lediglich um das Problem auf Statics erstellten Edits die Tabtaste abzufragen.

Abgesehen davon bleibt in diesem Fall immer noch das Problem

Meine Erstellung:

Dialog erstellen
Static drauf (in weisem Stil)
Controls drauf
und schätzungsweise gibt es keine Lösung für das Problem, es sei den per Subclass., daß man die Tabtaste dort in den Editfeldern ansprechen kann.

Aber wie gesagt: Macht Euch jetzt nicht verrückt. Muss halt jetzt zuerst was anderes programmieren.

[quote:1267241905]
Cls
dlg&=Createdialog(%hwnd...)
Static&=Control(Static,dlg&,....)
auf dieses Static ein Bitmap mit Handle zaubern, geht ja auch mit Bitmap aus
Speicher. Ein 1 x 1 Pixel reicht ja schon für einen weißen Hintergrund
Button&=CreateButton(%dlg,...)
[/quote:1267241905]
Jo dürfte ich kennen

- so arbeiten ROC, NOCTRAMIC (sehr viel) und einige meiner Beispielcodes doch.

Rolf

Moin Rolf, ich noch mal....

Mal schauen, ob ich dich bislang richtig verstanden habe:
So weit bist du schon...
Kompilieren Markieren Separieren

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

Die SKCONTROL.DLL habe ich jetzt mal weggelassen - damit kenne ich mich nicht aus - WS_TABSTOP hier nachträglich in die Controls einzufügen dürfte aber eigentlich kein Problem sein - oder doch?
Welche Probleme hast du mit dem Dialog als Untergrund, warum soll der weg, und welche Probleme gibt es mit WINDOWSTYLE 512?

Rolf
Koch

Hi AH,

jo komischerweise klappt da jetzt die Tabtaste. Ich hatte auch $10000 genommen.
Vielleicht liegt es jetzt doch nur noch an den SKEdits.
Aber wirklich gut so. Vielleicht kann ich es ja dann (wenn ich da weitermache) so umsetzen. Und evtl. den SKControls den Stile beibringen.

Thx
Rolf

Michael
Dell

Hallo,

hab auch noch ein Beispiel mit WS_EX_CONTROLPARENT, weis allerdings nicht ob das mit den SKEdits auch läuft:
Kompilieren Markieren Separieren

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&)
End

Gruß

Michael...

Salu Michael...

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

Rolf
Koch

Ja, Michael, klappt auch bestens!
Wie gesagt: Dann hängt es von (mit Tab u.s.w) einem anderen Faktor ab.
Werde dann nochmals detailiert nachschauen, warum dies nicht so geht. Aber vielleicht geht es ja so jetzt mit den Beispielen, komme nur nicht dazu zu testen

Rolf