Source / code snippets | | | | | 
Torsten
Rümker | Moin,
can someone betray, How I one Spinedit The 1.000 Trennpunkte cure can?
means 1000 instead of 1.000
MfG
Torsten |
| | | | Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 11/11/05 ▲ |
| | |
| |
Torsten
Rümker | I wanted to the Topic again warm up, I there still not weitergekommen be.
really nobody there the ne Idea has How I the hinbekomme?
MfG
Torsten Rümker |
| | | | Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 07/21/06 ▲ |
| | |
| | 
Rolf
Koch | only Possibility The me directly falls in:
$P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE CREATED MIT ROKOS OBJECT CREATOR 4.4c
DATUM 21.07.2006 circa 11:29 watch
VERWENDETE PROFANVERSION IST 10.0ß-NT s13 XPROFAN
CODE ERSTELLT UNTER UNBEKANNTER WINDOWSVERSION
!!! this code becomes of Roc always new created !!!
!!! first Edit, if any Objects created get !!!
!!! change tappt im dunkeln ggf. solid Paths in variable Paths !!!
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE SPINEDIT1&
WINDOWSTYLE 63
WINDOWTITLE New Window
WINDOW 22,20-640,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
here can ggf. your Menu there
SPINEDIT1& = CREATE(SPINEDIT,%HWND,0;-100;5000,0229,0241,0120,0020)
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If @EQU(%KEY,2)
LET ENDE%= 1
ELSEIF @EQU(%KEY,4)
ELSEIF GETFOCUS(SPINEDIT1&) SPINEDIT
settext spinedit1&,translate $(gettext$(spinedit1&),.,)
ENDIF
WEND
disadvantage here then, that the Focus always on whom beginning staid becomes. but there ought to indeed possible his, whom Cursor again differently To treat. |
| | | | | | |
| | 
Uwe
''Pascal''
Niemeier | Hello people!
The @Create-functions are (especially with komplexeren Controls) now time one Kompromiss.
who More Opportunities having wants, must well or ill something tüffteln...
window 200,100-300,150
$H Messages.ph
$H Commctrl.ph
declare Edit&,UpDown&,Style&
Edit&=create(edit,%hwnd,,100,10,80,24)
Style&=$50000000 | ~UDS_NOTHOUSANDS | ~UDS_SETBUDDYINT | ~UDS_ALIGNRIGHT
UpDown&=~CreateUpDownControl(Style&,0,0,0,0,%hwnd,555,0,Edit&,2000,0,1500)
--letze 3 Parameter: Max,mins,default
while 1
locate 0,0
print gettext$(Edit&)--Return String
print sendmessage(UpDown&,~UDM_GETPOS,0,0)--Return Integer
waitinput
endwhile
HTH
Pascal |
| | | | | | |
| | 
Michael
Dell | very, Have something gebastelt...
Original-Author: Thomas Hölzer
Bearbeited: Michael Dell
Proc CrSpinEdit
Parameters wHndl&,x&,y&,dx&,dy&,sed_max&,sed_min&,sed_start&,align&,art&
Def InitCommCntrl(0) !ComCtl32.Dll,InitCommonControls
Def CreateSpinED(12) !ComCtl32.Dll,CreateUpDownControl
Declare sed&,alignCT&
If (align&>3)
alignCT& = 8
align& = (align&-4)
EndIf
Casenote (art&=0): art& = 6000 none point settle
InitCommCntrl()
sed& = CreateSpinED($54800226+alignCT&+art&,0,0,0,0,wHndl&,$0FFFF,%hinstance,
Control(Edit,,$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),
sed_max&,sed_min&,sed_start&)
Return sed&
ENDPROC
**** example ****
Windowtitle Über System Menu terminate
Cls External(USER32.DLL,GetSysColor,15)
Normales Control
CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,1) left + UpDown right - point
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,1) Centered + UpDown right - point
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,1) right + UpDown right - point
Gedrehtes Control
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,6,0) right + UpDown left + point
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,5,0) Centered + UpDown left + point
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,4,0) left + UpDown left + point
While 1
WaitInput
EndWhile
End
|
| | | | Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 07/23/06 ▲ |
| | |
| | 
GDL | Hi,
stood too to the Trennpunktproblem.Solutions here are super.thanks.
Hello
Georg |
| | | | | | |
| |  | Uwe's Variante as possible XPSE
window 200,100-300,150
long Edit=create("Edit",%hwnd,"",100,10,80,24)
long updown=createupdowncontrol(ws_child | ws_visible | uds_nothousands | uds_setbuddyint | uds_alignright,0,0,0,0,hwnd,555,0,edit,2000,0,1500)
do {
locate 0,0
print gettext$(edit)
print sendmessage(updown,udm_getpos,0,0)
waitinput
}
|
| | | | | | |
| | | interestingly that this not functions:
cls
long Edit=create(spinedit,hwnd,4000;-100;5000,0229,0241,0120,0020)
long spin=findwindowex(hwnd,0,msctls_updown32,0)
setstyle spin,ws_child | ws_visible | uds_nothousands | uds_setbuddyint | uds_alignright
do {
locate 0,0
print gettext$(edit)
waitinput
}
|
| | | | | | |
| |
GDL | Hi,
have me with Michaels Code early gefreut.let itself with gettext$() not read.
Original-Author: Thomas Hölzer
Bearbeited: Michael Dell
declare m&
Proc CrSpinEdit
Parameters wHndl&,x&,y&,dx&,dy&,sed_max&,sed_min&,sed_start&,align&,art&
Def InitCommCntrl(0) !ComCtl32.Dll,InitCommonControls
Def CreateSpinED(12) !ComCtl32.Dll,CreateUpDownControl
Declare sed&,alignCT&
If (align&>3)
alignCT& = 8
align& = (align&-4)
EndIf
Casenote (art&=0): art& = 6000 none point settle
InitCommCntrl()
sed& = CreateSpinED($54800226+alignCT&+art&,0,0,0,0,wHndl&,$0FFFF,%hinstance,
Control(Edit,,$50000000+align&,x&,y&,dx&,dy&,wHndl&,0,%HInstance,$200),
sed_max&,sed_min&,sed_start&)
locate 15,10
print Erstellungsinhalt= +gettext$(sed&)
Return sed&
ENDPROC
**** example ****
Windowtitle Über System Menu terminate
Cls External(USER32.DLL,GetSysColor,15)
Normales Control
m&=CrSpinEdit(%HWnd,10,10,100,22,10010,9990,10000,0,1) left + UpDown right - point
CrSpinEdit(%HWnd,10,50,100,22,10010,9990,10000,1,1) Centered + UpDown right - point
CrSpinEdit(%HWnd,10,90,100,22,10010,9990,10000,2,1) right + UpDown right - point
Gedrehtes Control
CrSpinEdit(%HWnd,150,10,100,22,10010,9990,10000,6,0) right + UpDown left + point
CrSpinEdit(%HWnd,150,50,100,22,10010,9990,10000,5,0) Centered + UpDown left + point
CrSpinEdit(%HWnd,150,90,100,22,10010,9990,10000,4,0) left + UpDown left + point
While 1
WaitInput
locate 16,10
print Ausleseinhalt= +gettext$(m&)
EndWhile
End
Try now iFs suggestion from.
Hello
Georg |
| | | | | | |
| |
GDL | Hello iF,
were faster, can no Spinedit through gettext$() of these Codebeispielen read.
Hello
Georg |
| | | | | | |
| | 
Jörg
Sellmeyer | Hello Georg,
so functions it:
|
| | | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08/16/07 ▲ |
| | |
| |
GDL | It's all right, class.
Hello
Georg |
| | | | | | |
|
Zum QuelltextTopic-Options | 14.605 Views |
Themeninformationenthis Topic has 8 subscriber: |
(910)
Deutsch
English
Français
Español
Italia