| |
| |
|
Julian
Schmidt | Hi,
I have straight a couple difficulty with a SpinEdits in a List view.
If I the SpinEdits in the list view create and again entferne remaining one part the SpinEdits receive (see Screenshot).
white someone Why the lying could?
Also would like I gladly know How I one DropDownMenu one DateEdits open can. and How one determined whether it opened is.
CompileMarkSeparation
LG
Julian57 |
|
| |
| |
| |
|
|
 | | SpinEdits on the List view (over listviev.dll ?) over the Item create and to Datenübergabe ans Item destroy. |
|
| |
| |
| |
|
|
Julian
Schmidt | very the do I, and a part the Spin-Edits remaining receive. update of Listviews nützt there unfortunately too nothing.
Yes I use List view.dll. (stood in cover.) |
|
| |
| |
| |
|
|
 | Julian57 (22.01.12)
If I the SpinEdits in the list view create and again entferne remaining one part the SpinEdits receive.
Source?! |
|
| |
| |
| |
|
|
Thomas
Freier | sorry, whom cover I had not any more in the look. here the code. Perhaps helps it.
CompileMarkSeparation...
Case (x&=1) AND (LV_Handle&=listview_I& ) : Inventar_Aend' Inventar ändern nach doppel-linksklick......
Proc Inventar_Aend
case Inv_Check% = 1 : Return
case (LV_Column&=1) OR (LV_Column&=3) OR (LV_Column&=7) : Inventar_Edit 0
case (LV_Column&=5) OR (LV_Column&=6) : Inventar_Edit 3
case (LV_Column&=2) : Inventar_Edit 1
case (LV_Column&=4) : Inventar_Edit 2
SetFocus(listview_I&)
EndProc
Proc Inventar_Edit
Parameters x%
Declare Element&,D_Element&
DEF nurzahlen(2) !"NEdit.dll","InitMessages"
ndll&=usedll(old_file$+"\\Lib\\NEdit.dll")
If x%=3
Element&= Create("DateEdit",Listview_I&,LV_Text$,LV_Xoffset&,LV_Yoffset&,(LV_Width&+20),LV_Height&)
Else
Element&=control("Edit",LV_Text$,$548100C0 | LV_Orient&,LV_Xoffset&,LV_Yoffset&,LV_Width&,LV_Height&,LV_Handle&,100,%hinstance,0)
SetWindowPos(Element&,-1,0,0,0,0,$13)
Setfocus(Element&)
SendString(Element&,"+({END})")'Text Markieren und Cursor ans Ende
case x%=1: SetEditNumeric(Element&)'nur Ziffereingaben erlauben
case x%=2: nurzahlen(element&,7)'nur Ziffereingaben und Nachkommastellen erlauben
EndIf
SetFont Element&,LV_Font&
While 1
WaitInput
if @TabChanged(T&)
TAB_WECHSEL GetActiveTab(T&)
break
endif
case iskey(27):BREAK'Abbruch ESC
If MenuItem(8123)'Abbruch Alt+E
LV_Text$ = ""
SetItemText(LV_HAndle&,addr(LV_Text$),LV_Column&,LV_Row&)
BREAK
EndIf
CursorPos'Falls Mausklick außerhalb vom Element > abbrechen
If @lt(mouseposx(0),LV_Xoffset&) OR @lt(mouseposy(0),LV_YOffset&) \
OR @gt(mouseposx(0),@add(LV_Xoffset&,LV_Width&)) OR @gt(mouseposy(0),@add(LV_Yoffset&,LV_Height&))
LV_Text$ = @GetText$(Element&)
SetItemText(LV_HAndle&,addr(LV_Text$),LV_Column&,LV_Row&)
BREAK
endif
If iskey(13)'Speichern Enter gedrückt
LV_Text$ = @GetText$(Element&)
SetItemText(LV_HAndle&,addr(LV_Text$),LV_Column&,LV_Row&)
BREAK
endif
wend
clear y&,x&
DestroyWindow(Element&)
FreeDLL ndll&
EndProcn class=s1>'.............................................................
PS. 23.01. now DateEdit |
 |
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 01/22/12 ▲ |
|
| |
|
|
Julian
Schmidt | hmmm.....I find not whom Difference between your View source and the my, Why it with you functions and not at me.
here time my View source.
I have it time compiled and appended. Perhaps. helps it.
Nachtrag: attachment and View source removes |
|
| |
| |
| |
|
|
Thomas
Freier | is the example Eigene_Eingaben.prf in the list view-pkg because OK?
operates W7 differently as How XP? |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 01/22/12 ▲ |
|
| |
|
|
Thomas
Freier | by me XP runs The Organizer.exe well. After EDIT-end is the List view tidy.
Teste time Refresh of List view, -bracket, etc., To it lane is. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 01/22/12 ▲ |
|
| |
|
|
Julian
Schmidt | the Refreshen of Listviews helps nothing. have I meant I supra too Schonmal erwähnt.
by me comes the Error sowohl with Win7 Home as well as on WinXP per. On others Plattformen have I not tested.
Yes Eigene_Eingaben.prf operates perfect!
functions the SpinEdits really with you, in the Organizer.exe? It's all right only around the List view "Klausuren", The slot "Nr."! |
|
| |
| |
| |
|
|
Thomas
Freier | |
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 01/22/12 ▲ |
|
| |
|
|
Julian
Schmidt | |
| |
| |
| |
|
|
Thomas
Freier | the closes itself Yes self, if The Datenübernahme results or Abbruchbedingung erfüllt is. then destroy You Yes the ELEMENT&
CompileMarkSeparationElement&= Create("DateEdit",Listview_I&,LV_Text$,LV_Xoffset&,LV_Yoffset&,(LV_Width&+20),LV_Height&)> |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 01/22/12 ▲ |
|
| |
|
(908)
Deutsch
English
Français
Español
Italia
