| |
| |
|
Julian
Schmidt | Salut,
j'ai justement un paire Schwierigkeiten avec une SpinEdit dans une Listview.
si je cela SpinEdit im Listview erstelle et wieder entferne bleibt un partie des SpinEdits conservé (siehe Screenshot).
sais quelqu'un woran cela liegen pourrait?
Aussi voudrais je volontiers savons comment je un DropDownMenu eines DateEdits ouvrir peux. et comment on ermittelt si es ouvert ist.
KompilierenMarqueSéparation
LG
Julian57 |
|
| |
| |
| |
|
|
 | | SpinEdit sur dem Listview (sur listviev.dll ?) sur dem Item erstellen et pour Datenübergabe à l' Item anéantir. |
|
| |
| |
| |
|
|
Julian
Schmidt | oui c'est ca cela tue je, et un partie des Spin-Edits bleibt conservé. Aktualisieren des Listviews nützt là malheureusement aussi rien.
oui je benutze Listview.dll. (Stand aussi im Titel.) |
|
| |
| |
| |
|
|
 | Julian57 (22.01.12)
si je cela SpinEdit im Listview erstelle et wieder entferne bleibt un partie des SpinEdits conservé.
Quellcode?! |
|
| |
| |
| |
|
|
Thomas
Freier | sorry, den Titel J'ai eu pas plus im perspective. ici qui Code. peut-être hilft il.
KompilierenMarqueSéparation...
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. maintenant DateEdit |
 |
| |
| |
| |
|
|
Julian
Schmidt | hmmm.....je trouve pas den Unterschied entre deinen Voir le texte source et den Meinen, pourquoi es chez dir funktioniert et chez Je ne.
ici la fois mon Voir le texte source.
j'ai es la fois kompiliert et angehängt. Vlt. hilft es.
Nachtrag: Anhang et Voir le texte source entfernt |
|
| |
| |
| |
|
|
Thomas
Freier | Ist cela Beispiel Eigene_Eingaben.prf im Listview-paquet car OK?
Arbeitet W7 anders comme comment XP? |
|
| |
| |
| |
|
|
Thomas
Freier | chez mir sous XP fonctionne qui Organizer.exe bien. Pour EDIT-Ende ist cela Listview net.
Teste la fois Refresh vom Listview, -Träger, usw., jusqu'à es weg ist. |
|
| |
| |
| |
|
|
Julian
Schmidt | cela Refreshen des Listviews hilft rien. Habe je meinte je dessus aussi Schonmal erwähnt.
chez mir venez qui faute sowohl chez Win7 Home comme aussi sur WinXP Pro. sur anderen Plates-formes habe je es pas getestet.
oui Eigene_Eingaben.prf arbeitet parfait!
Funktioniert cela SpinEdit wirklich chez dir, dans qui Organizer.exe? und dir seulement um cela Listview "Klausuren", qui Spalte "Nr."! |
|
| |
| |
| |
|
|
Thomas
Freier | |
| |
| |
| |
|
|
Julian
Schmidt | |
| |
| |
| |
|
|
Thomas
Freier | cela schließt sich oui selbst, si le Datenübernahme erfolgt ou bien Abbruchbedingung erfüllt ist. ensuite zerstörst du oui cela ELEMENT&
KompilierenMarqueSéparationElement&= Create("DateEdit",Listview_I&,LV_Text$,LV_Xoffset&,LV_Yoffset&,(LV_Width&+20),LV_Height&)> |
|
| |
| |
| |
|
(457)
Deutsch
English
Français
Español
Italia
