English
Forum

GETFOCUS(Text1%)

 

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  
 




Rolf
Koch
Hi one Text box is a Static and this can never whom Focus get.
 
02/17/07  
 




Nico
Madysa
is Text1% one Static? I mean, have you got it with Create("Text" created?
of my Wissens to can Static-Controls (such, How Texts, Bidler, etc.) quite none Focus receive, therefore is too the inquire the Focus futile.
 
Nico Madysa
02/17/07  
 




Andre
Hilprecht
the was The sought Solution. thanks you, because you have me on The Sprünge helped.
CompileMarkSeparation
next question would then:
now have I a beautiful VScroll-beam, as use I the now moreover in the Mainwindow?
CompileMarkSeparation
find moreover no example.

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  
 



Jaja Scroll bar are so one Topic.

there's Yes getscrollpos , if you but a finished ScrollArea having want then can You you The gleichnamige Unit loading.
 
02/17/07  
 




Andre
Hilprecht
finished ScrollArea sound well, I suspect but time, that I then same again thousand ask have, because I custom the to that understanding of Urschleim since.
same time ne stupid question: where load I The finished gleichnamige Unit?

means

VScroll1% = GetScrollPos(%hwnd)

gives me the value back, where the button of Scroll bar standing.
should Yes between 0 and 100 his, I schiebe means on the button, the worth would now adopted 11,
How move I now synchron moreover my Mainwindow, that I sure from the Size since now larger
make must as the screen yourself from the dissolution since?

Fals The Unit for a Beginner How me slight To händeln is, or. one itself there slight reinfinden can,
then would I me the at least time look at.

Greeting and thanks in the ahead of 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  
 




Michael
Wodrich
[...] 

there's too SetScrollPos and SetScrollRange.

Particulars in the Help. (chapter 20.9.)

Best wishes
Michael Wodrich

P.s.: ...and naturally whom Hilfetext with Create("VScroll",... not forget.
 
Programmieren, das spannendste Detektivspiel der Welt.
02/17/07  
 



The Unit is everything else as slight To deal - self experienced XProfan get it hardly there. nevertheless have I Examples of almost any Eventualitäten settled.
 
02/17/07  
 




Rolf
Koch
there sees one time again, that ROC still not so badly is.
here hold with Subclassmanager worked and the Include directly in whom code written.
is hold Subclass - there goes yet More
CompileMarkSeparation
 $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&
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
 $H C:PROFANAKTUELLE PROJEKTEROCLIBWINDOWS.PH ANPASSEN!!!!!!!!!
 $H C:PROFANAKTUELLE PROJEKTEROCLIBMESSAGES.PH ANPASSEN!!!!!!
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

        SETTEXT TEXT1&,"Aktuelle Position: "+STR$(GETSCROLLPOS(VSCROLL1&)) hier als Beispiel die Position in Textfeld!!!!!!!!!!!!!!
        SPIELEREI:
        setwindowpos %hwnd=22,20-(250+GETSCROLLPOS(VSCROLL1&)),(310+GETSCROLLPOS(VSCROLL1&))

    ENDIF

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

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",0187,0017,0014,0216)
TEXT1& = CREATE("TEXT",%HWND,"Aktuelle Position:",0017,0017,0158,0020)
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

 
02/17/07  
 



the whole goes well to hardship too without Subclassing over The API ScrollWindow, moreover must one but something calculate.
 
02/17/07  
 




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
 
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  
 




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  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

14.060 Views

Untitledvor 0 min.
Manfred Barei11/13/15
Uwe Lang01/01/12

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie