| |
| |
|
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!!! |
|
| |
| |
| |
|
(277)
Deutsch
English
Français
Español
Italia