XProfan

- Page 2 -

Rolf
Koch

Hi Pascal

No unfortunately must the parts the jeweilige Static.
Kennste still:
to that example Button Click 2:
Showwindow(static1&,0)
Showwindow(static2&,1)
u.s.w - otherwise should I einges enablen, what too very unproffesionell is.

but thanks nevertheless.
in the momentum not so extreme important, I in a others proposition weiterareiten must.

Rolf

Uwe
''Pascal''
Niemeier

Hello Rolf!

It should several groups of Elementen at a single blow one- or ausgeblendet go (z.B. with Reiterwechsel in a tab-Control)?

how'bout with rahmenlosen Dialogen instead of Statics?

Perhaps could one The Statics too one Subclassing unterziehen, if only The side-effects not wären...

SeeYou
Pascal

Rolf
Koch

Hi Pascal,

Yes would too a Possibility, if one so simply and beautiful like a Static whom Dialogen of dwell from a weisse Backgroundcolor give could. From dwell from = by Style and only not by Startpaint - Endpaint *würg*

Rolf

Rolf - you are still with the Thread.pcu intimate - Why take The not for - The is still How for created. I can you naturally too one small demonstration for supplying.

salvo, iF

Rolf
Koch

Hi If,

clear be I so intimate, even very intim

means meinste there Repaint?
I had extra *würg* with Startpaint written. I hate Startpaint and Endpaint. utterly tedious

but How said: take we the Topic later over again on, there it in the momentum still not so important is. it be because another interested itself furthermore for Fragestellung - except Startpaint LOL
Rolf

Jörg
Sellmeyer

Hello Rolf,
how'bout because so:

Cls
dlg&=Createdialog(%hwnd...)
Static&=Control(Static,dlg&,....)
this Static one Bitmap with lever zaubern, goes indeed with Bitmap
memory. One 1 x 1 Pixel reicht already for a weißen background
Button&=CreateButton(%dlg,...)

so have You The Controls on the dialog and the Static gives you whom weißen background
Greeting
Jörg

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

Rolf
Koch

thanks too you for response.

however very so (similar see it Yes from).
i'm one Staticfetischist

and therefore work I only with Bitmaps on Statics.
I need no Bitmap on the Staticteil. Since I by Style the Staticcontrol in knows color. need means not yet time one Pixel graphic.
means: Control(STATIC,txt$,$54000106,x%,y%,wide%,high%,fenster&,$10000,%hinstance) would knows = Whiterect
or
54000105 = Grayrect
or
54000104 = Blackrect.
you see, It's all right indeed without Bitmap. I wealth you have unfortunately my question not understood. How I what create an so on is Yes clear

. Schätzungsweise have You first below started To reading, there see it to another trouble from

.
It's all right solely around the trouble on Statics erstellten Edits The Tabtaste abzufragen.

foreseen of it remaining in this drop still the trouble

my Creation:

dialog create
Static on it (in weisem Style)
Controls on it
and schätzungsweise there no Solution for the trouble, it be whom by Subclass., that one The Tabtaste there into Editfeldern address can.

but How said: power you now not insane. must hold now first what other program.

[quote:1267241905]
Cls
dlg&=Createdialog(%hwnd...)
Static&=Control(Static,dlg&,....)
this Static one Bitmap with lever zaubern, goes indeed with Bitmap
memory. One 1 x 1 Pixel reicht already for a weißen background
Button&=CreateButton(%dlg,...)
[/quote:1267241905]
Jo might I kennen

- so works ROC, NOCTRAMIC (very plenty) and some of my Beispielcodes still.

Rolf

Moin Rolf, I once more....

time look, whether I you bislang correctly. understood have:
so far are you already...
Compile Mark Separation

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

The SKCONTROL.DLL have I now time omitted - so know I not from - WS_TABSTOP here as an afterthought into Controls einzufügen might but really no trouble his - or still?
which Problems have you got with the dialog as underground, Why to the lane, and which Problems there with WINDOWSTYLE 512?

Rolf
Koch

Hi AH,

jo komischerweise works there now The Tabtaste. I had too $10000 taken.
Perhaps lying it now still only yet on whom SKEdits.
but really well so. Perhaps can I it Yes then (if I there weitermache) so umsetzen. and evtl. whom SKControls whom Stile procure.

Thx
Rolf

Michael
Dell

Hi,

Have too another example with WS_EX_CONTROLPARENT, wisely though not whether with the whom SKEdits too runs:
Compile Mark Separation

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

Greeting

Michael...

Salu Michael...

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

Rolf
Koch

Yes, Michael, works too fine!
As I said: then depends it of (with tab u.s.w) another factor ex.
will be then over again detailiert nachschauen, Why this not so goes. but Perhaps goes it Yes so now with the Examples, come only not moreover To testing

Rolf