| |
|
|
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. |
|
|
| |
|
|
|
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. |
|
|
| |
|
|
|
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. |
|
|
| |
|
|
|
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. |
|
|
| |
|
|
|
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
|
|
|
| |
|
|
|
| the whole goes well to hardship too without Subclassing over The API ScrollWindow, moreover must one but something calculate. |
|
|
| |
|
|
|
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!!! |
|
|
| |
|
|