XProfan

English

Andre
Hilprecht

Hello together,

GETFOCUS(EDIT1%) functions but GETFOCUS(Text1%) not.

After one Waitinput question I whatever now clicked watts, means come then The Lines

IF GETFOCUS(EDIT1%)
input
ELSEIF GETFOCUS(EDIT2%)
input
ELSEIF GETFOCUS(TEXT1%)
input
ENDIF

Click on Edit1 - plunge to Proc input
Click on Edit2 - plunge to Proc input
Click on Text1 - Nix pasiert

What do I do wrong, where is my fallacy?
Greeting Andre

Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 1 -

Andre
Hilprecht

the have I geahnt, have me time the part respected and come so not at all clear.
now need I the XPSE-Compiler, cool, i'm keen.
and after I now everything on seinem Space having, means whom Verweis on The Include and the
on the XPSE-Compiler, says it me jetz Unitdefinitionsdatei <SCROLLAREA> missing, though tappt im dunkeln there's
and then Program defective.

means the help me not really moreover.

SetScrollPos and SetScrollRange settle still even only The position the Knopfes inside the
VScroll1%-Elementes, not but the now the Mainwindow self gescrollt becomes. the bräuchte I
still only, if I the window in a gescrollten position Save/close wants circa it on this
position again to open. then must I still too whom button on The position settle.?

or be I there completely on the incorrect steamer?

Greeting Andre

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

@AH,
clear GEHTS over the API and just as with Profanboardmitteln. however are so mulish, it'll nothing LIVE updated. for something like is Subclass simply genial!!!

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

I said Yes: to hardship

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

@Andre
two Listviews because now very made go?
One Mainwindow with Scroll bar slip?

with SetScrollRange position one one, as Results To werten are. to that Example of 0 To 10000. now can I then The with GetScrollPos gelesene or with SetScrollPos gesetzte Position in 100stel percent very werten.

The question is: need You these Positionswerte at all? or should your Window just Scroll bar include?

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andre Hilprecht

the have I geahnt, have me time the part respected and come so not at all clear.

there are You sure not the only.

Andre Hilprecht

now need I the XPSE-Compiler, cool, i'm keen.

If not serious meant was Gibts Ärger.

Andre Hilprecht

and after I now everything on seinem Space having, means whom Verweis on The Include and the
on the XPSE-Compiler, says it me jetz Unitdefinitionsdatei missing, though tappt im dunkeln there's
and then Program defective.

this is incorrect, here lying certainly only one Bedienerfehler to.

seek You something like?
Compile Mark Separation

 {$cleq}
const scrollBarWidth=18
const planeHeight=2048
set(errorlevel,-1)
windowstyle 8
cls
long h:=createvscroll(hwnd,,width(hwnd)-scrollBarWidth,0,scrollBarWidth,height(hwnd))
long plane:=createtext(hwnd,,0,0,width(hwnd)-scrollBarWidth,planeHeight)
long spos:=getscrollpos(h),ospos:=spos
float realFact:=(planeHeight-height(hwnd))/100
buildControls plane

do {

    waitinput
    spos:=getscrollpos(h)

    if (ospos<>spos) {

        ospos:=spos
        setwindowpos plane=0,(0-spos)*realFact - width(plane),height(plane);0

    }

}

end

buildcontrols (long parent) {

    long w:=width(parent)-40
    long h:=creategroupbox(parent,,20,20,w,height(parent)-40)
    case w>40 : buildcontrols (h)}

Compile Mark Separation

SET(errorlevel,-1)
WINDOWSTYLE 8
CLS
var H&=CREATEVSCROLL(%HWND,,WIDTH(%HWND)-18,0,18,HEIGHT(%HWND))
var PLANE&=(CONTROL(STATIC,,$50000000,(0),(0),(WIDTH(%HWND)-18),(2048),(%HWND),0,%HINSTANCE))
var SPOS&=GETSCROLLPOS(H&)
var OSPOS&=SPOS&
var REALFACT!=(2048-HEIGHT(%HWND))/100
BUILDCONTROLS PLANE&

WHILE 1

    WAITINPUT
    SPOS&=GETSCROLLPOS(H&)

    IF (OSPOS&<>SPOS&)

        OSPOS&=SPOS&
        SETWINDOWPOS PLANE&=0,(0-SPOS&)*REALFACT! - WIDTH(PLANE&),HEIGHT(PLANE&);0

    ENDIF

ENDWHILE

proc BUILDCONTROLS

    PARAMETERS PARENT&
    var W&=WIDTH(PARENT&)-40
    var H&=(CREATE(GROUPBOX,(PARENT&),,(20),(20),(W&),(HEIGHT(PARENT&)-40)))

    IF W&>40

        BUILDCONTROLS (H&)

    ENDIF

endproc

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andre
Hilprecht

@ Michael Wodrich
i want just my Mainwindow with a vertikalen Scroll bar slip, to Possibility ought to alternatively naturally then too the Rollrad the mouse functions. with the Scrolling would like I a designed area the Mainwindow rumble, means like with Excel if a scheduler fixes is. my Mainwindow becomes a Kopfbereich having, in the the Tabellenkopf sits and there should itself some Schaltflächen bustling. at that Scrolling should means the upper area stand stay.

@IF
I take at times, (entschuldige my Blödheit) the are two different Codes, The both a VScroll having, the then too functions. whom second code I get even to that walk, only my Window remaining empty. there's no Scroll bar To see, there's really at all nothing To see and accordingly functions too nothing. The second code sees well from, there can I me so one little what zusammenreimen, How the functions ought to. only there nothing To see is and nothing functions, can I too so nothing begin.

help one drongo Please on The Sprünge.
Greeting André

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

you are no drongo!
Why attempt You not with my code supra? very the what You benötigst.

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andre
Hilprecht

@Rolf
Yes, your Sourcecode have I probiert, i'll now time try instead of the Spielerei a definierten area in my Window rumble To let.
somehow have I but not so a right Peilung.
write I a Text on a position outside the begot Mainwindow and strain it then mere, or How working the?

means WINDOW 22,20-250,310
......
......
TEXT1& = CREATE(TEXT,%HWND,Info 1,0014,(GETSCROLLPOS(VSCROLL1&)),0070,0020)

make so means any XProfan-items, The gescrollt go should tributary of stood the Knopfes in the Scroll bar?
and must I any items auschalten, if a gewisse Höhe access is so my head in the Mainwindow not überschrieben becomes?

young, there Have I me but what undertaken, because I must ca. 2500 Text&-Bausteine rumble.

Greeting André

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

here to demonstration I my (hold only as Ansatz and quick written):
Compile Mark Separation

 $P+
SET(ERRORLEVEL,0)
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.5b
DATUM  17.02.2007    um  14:39 Uhr
VERWENDETE PROFANVERSION IST 10.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS Unbekannt
Subclass für %hwnd ist eingeschaltet!
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DECLARE VSCROLL1&
DECLARE TEXT1&,font&,x%
Declare untergrund&,scrollteil&
DEF GETSYSCOLOR(1) !USER32,GetSysColor
 $H C:PROFANAKTUELLE PROJEKTEROCLIBWINDOWS.PH
 $H C:PROFANAKTUELLE PROJEKTEROCLIBMESSAGES.PH
font&=create(FONT,MS SANS SERIF,25,0,1,0,0)
Hier nichts ändern **************************************
declare p_x1&,p_x2&

PROC INITSUBCLASS

    p_x1&=~Getwindowlong(%Hwnd,~Gwl_wndproc)
    p_x2&=Procaddr(Windowproc,4)
    ~Setwindowlong(%Hwnd,~Gwl_wndproc, p_x2&)

ENDPROC

PROC SETSTANDARDMESSAGE

    ~Setwindowlong(%Hwnd,~Gwl_wndproc, p_x1&)

ENDPROC

PROC SETEXTENDMESSAGE

    ~Setwindowlong(%Hwnd,~Gwl_wndproc, p_x2&)

ENDPROC

*********************************************************
Hier können die eigenen Abfragen hin ********************

Proc Windowproc

    Parameters Wnd&, Msg&, Wparam&, Lparam&

    If Msg& = ~Wm_close

        ~Postquitmessage(0)Programm-Ende

    Endif

    IF MSG& = ~WM_VSCROLL

        SCROLL_PROC

    ENDIF

    Return ~Callwindowproc(p_x1&,Wnd&, Msg&, Wparam&, Lparam&)

Endproc

HIER DEINE AKTIONEN WENN SCROLLER BETÄTIGT WIRD

PROC SCROLL_PROC

    setwindowpos scrollteil&=0,(-getscrollpos(vscroll1&))-(width(%hwnd)-16),5000

ENDPROC

WINDOWSTYLE 63
WINDOWTITLE The Elder scrolls *lol*
WINDOW 22,20-250,310
SET(TRUECOLOR,1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Set(FASTMODE,1)
VSCROLL1& = CREATE(VScroll,%HWND,VScroll,(width(%hwnd)-15),0035,0014,(height(%hwnd)-35))
SetScrollRange vscroll1&,0,5000
TEXT1& = CREATE(TEXT,%HWND,Ich bin die Überschrift,0001,0001,0358,0020)
Untergrund&=Control(STATIC,,$54001106,1,36,(width(%hwnd)-16),(height(%hwnd)-35),%hwnd,0,%hinstance,$0)
Scrollteil&=Control(STATIC,,$54001100,0,0,(width(%hwnd)-16),5000,untergrund&,0,%hinstance,$0)

whilenot x% = 240

    inc x%
    createtext(scrollteil&,Ich bin Testtext Nr. +str$(x%),10,(20*x%),200,20)

endwhile

setfont text1&,font&
INITSUBCLASS				muss an diese Position
SETSTANDARDMESSAGE			muss an diese Position
SETFOCUS(%HWND)
SETEXTENDMESSAGE			muss an diese Position

WHILENOT ENDE%

    WAITINPUT
    SETSTANDARDMESSAGE			muss an diese Position

    If %KEY=2

        ENDE%= 1

    ELSEIF %KEY=4

    ENDIF

    SETEXTENDMESSAGE			muss an diese Position

ENDWHILE

deleteobject font&

short Statement:
You erstellst a Header because You supra normal aufs Mainwindow things positionierst - Buttons and Co.
then erstellst You a underground for To scrollenden area (here Static with Variable Untergrund&)
on this underground erstellst You over again one Static however in its Höhe tall chosen.
there can You then your items on it platzieren.
See now simply SCROLL_PROC on, because these kannste spare adjust, without supra in the Subclassteil what To change.

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andre
Hilprecht

Hello Rolf, the working and comes my Wish almost To 100% near. this is Yes integrally beautiful costly, only for a VScroll into Prog incorporate.
would have been I never hinbekommen.

thanks for first,
Greeting André

02/17/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Ah - my code supra (and its one and the same code only once xpse once net xpse) working with you not because You no X10 have - see now first the You XProfan 9 have.

02/18/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andre
Hilprecht

Hi IF, so simply are sometimes The items.
and very therefore ought to Yes eachone in the Footer stand having, with whom versions worked becomes. now see so did i
in Your Codefenstern supra XXProfan XPSE - should certainly one Info hereon his XProfan 10 and the XPSE with this code
To use. at that second Codefenster is unfortunately garnichts To see as Info on used versions.

is Perhaps time one general Info: Codefenster should of these allude slip published go, the erspart
further inquiries
and (but the power Yes almost eachone) in the Footer always used versions present.

Greeting André