| |
|
|
Julian Schmidt | ¡Hola, Yo gerade unos pocos Schwierigkeiten con una SpinEdit en una Listview. Wenn Yo el SpinEdit en el Listview erstelle y otra vez entferne restos una Teil des SpinEdits obtener (siehe Screenshot).
Weiß alguien woran el mentira podría?
Außerdem möchte Me gusta Wissen Yo una DropDownMenu uno DateEdits abierto kann. Und cómo ermittelt si geöffnet es. KompilierenMarcaSeparación LG
Julian57 |
|
|
| |
|
|
|
| SpinEdit en el Listview (encima listviev.dll ?) encima el Item redactar y después de Datenübergabe ans Item zerstören. |
|
|
| |
|
|
|
Julian Schmidt | Exactamente el tue Yo, y una Teil des Spin-Edits restos obtener. Aktualisieren des Listviews nützt como desafortunadamente auch nichts. Sí Yo benutze Listview.dll. (Stand auch en el Titel.) |
|
|
| |
|
|
|
| Julian57 (22.01.12)
Wenn Yo el SpinEdit en el Listview erstelle y otra vez entferne restos una Teil des SpinEdits obtener.
Quellcode?! |
|
|
| |
|
|
|
Thomas Freier | sorry, el Titel Tuve no mehr en el Blick. Hier el Code. Tal vez hilft él. KompilierenMarcaSeparación...
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&
EndProc n class=s1>'.............................................................
PS. 23.01. ahora DateEdit |
|
|
| |
|
|
|
Julian Schmidt | hmmm.....Yo finde no el Diferencia zwischen deinen Ver código fuente y el Meinen, por qué lo en dir funktioniert y no yo en el.
Hier veces mein Ver código fuente.
Yo habe lo veces kompiliert y angehängt. Vlt. hilft lo.
Apéndice: Anhang y Ver código fuente lejos |
|
|
| |
|
|
|
Thomas Freier | Ist el Ejemplo Eigene_Eingaben.prf en el Listview-Paket porque OK? Arbeitet W7 anders como como XP? |
|
|
| |
|
|
|
Thomas Freier | En me bajo XP se ejecuta el Organizer.exe bien. Nach EDIT-Ende es el Listview sauber. Teste veces Refresh vom Listview, -Träger, usw., a lo weg es. |
|
|
| |
|
|
|
Julian Schmidt | Das Refreshen des Listviews hilft nichts. Posesiones Yo meinte Yo oben auch schonmal erwähnt. En me kommt el Fehler sowohl en Win7 Home como auch en WinXP Pro. Auf otro Plattformen Yo no getestet.
Sí Eigene_Eingaben.prf arbeitet perfekt!
Funktioniert el SpinEdit wirklich en dir, en el Organizer.exe? Lo va sólo en el Listview "Klausuren", el Spalte "Nr."! |
|
|
| |
|
|
|
Thomas Freier | |
|
| |
|
|
|
Julian Schmidt | |
|
| |
|
|
|
Thomas Freier | Das schließt se sí incluso, si la Datenübernahme es oder Abbruchbedingung erfüllt es. Dann zerstörst du sí el ELEMENT& KompilierenMarcaSeparaciónElement&= Create("DateEdit",Listview_I&,LV_Text$,LV_Xoffset&,LV_Yoffset&,(LV_Width&+20),LV_Height&) > |
|
|
| |
|
|