XProfan

Julian
Schmidt

Energizer (25.08.13)

now be I on the Überlegen, How to the with the input best regulate ought to.
on the dearest would me Yes really a scheduler (similar Excel) into the users simply yourself values eingebn can. Since I for directly nothing found have, wished I the whole a detour make, because the users in vordefinierten CheckBoxen its Fächer selecting and these then on The scheduler transfer go.

Nimm for still simply Choiceboxen/Auswahllisten. and building your scheduler z.B. like here on [...]

.
for the Beschriftung can you z.B. CreateText use.

alternatively could you too The List view.dll[...]

use. These scheduler would then the Optik and the Feeling of Excel hither come.

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

08/25/13 ▲

XProfan 11
Win7 Professional, AMD FX(tm)-8350 Eight-Core Processor, 16341,63 MB

Energizer

so first thanks for your Info.
does me sorrow, I now first answer having something around the ears ;)
Have now already both mutants probiert and something so rumgespielt.
however is the thing with the List view.dll for me überzeugender, already alone because that Program Yes not only for me is, separate too for a couple schoolboy ;)

How wars I the now with the scheduler so there, i'll from the Help unfortunately not schlau

^^

So I having me virtual, that my boxes Yes really any by hand eintragbar his should, except The latest slot in the solely accounts becomes. moreover I had me in the List view.dll Help The function EditManual angeschaut. however is the everything for me absolutes new territory, could me the Perhaps someone explain ?

lg Energizer

09/25/13 ▲

Thomas
Freier

at that employment list view.dll there three Opportunities The Items To edit.
with EnableEdits(listview&,1+4) . After Aktivierung can any Items over The Pfeiltasten angesteuert and edited go.
with SelectColumnEdits(listview&,addr(Text$)) can Split impossible go.
Compile Mark Separation

Declare lvdll&,text$,x&,y&,z&,listview&
Def GetSysColor(1) !"USER32","GetSysColor"
var Font& = @CREATE("FONT","NEW TIMES ROMAN",14,0,0,0,0)
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
SetTrueColor 1
Window 400,400
Cls GetSysColor(15)
listview&=CreateListView(%hwnd,%hinstance,0,GetSysColor(24),-1,$31)
'Spalten erstellen
text$="A,B,C"
SetColumnsFromMem(listview&,addr(text$),0)
SetFont listview&,Font&
SetDialogFont Font&
'Leerzeilen erstellen

Whileloop 5

    SetItem listview&,"","",""

EndWhile

'Spaltenbreite
SetColumnWidth(listview&,0,100)
SetColumnWidth(listview&,1,100)
SetColumnWidth(listview&,2,100)
ShowListView(listview&,10,48,354,270)
InitMessages(%hwnd)
EnableEdits(listview&,1+4)'Item editierbar nach Doppellinksklick
UserMessages 16

While 1

    waitinput
    Case %UMessage = 16 : BREAK

Wend

messagebox("wird beendet","Programm",32)
setfocus(%hwnd)
DestroyWindow(%hwnd)
CloseMessages(%hwnd)
freedll lvdll&
End

with EditManual(listview&,&uwParam, &ulParam,0) becomes only gewähltem Item one Edit-area prepares.
Compile Mark Separation

Declare lvdll&,Text$,x&,y&,z&,listview&
Def GetSysColor(1) !"USER32","GetSysColor"
var Font& = @CREATE("FONT","NEW TIMES ROMAN",14,0,0,0,0)
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
SetTrueColor 1
Window 400,400
Cls GetSysColor(15)
listview&=CreateListView(%hwnd,%hinstance,0,GetSysColor(24),-1,$31)
text$="A,B,C"
SetColumnsFromMem(listview&,addr(text $),0)
SetFont listview&,Font&
SetDialogFont Font&

Whileloop 5

    SetItem listview&,"","",""

EndWhile

SetColumnWidth(listview&,0,100)
SetColumnWidth(listview&,1,100)
SetColumnWidth(listview&,2,100)
ShowListView(listview&,10,48,354,270)
InitMessages(%hwnd)
usermessages $1407, 16

While 1

    waitinput
    Case %UMessage = 16 : BREAK
    'to Doppellinksklick Item,

    If %umessage=$1407

        If Getfocus(Listview&)

            IF &uwParam=1'here only 2.slot(index =1) edit

                EditManual(listview&,&uwParam, &ulParam,0)'Spaltenindex, Zeilenindex (nullbasierend)

            Endif

        EndIf

    EndIf

Wend

messagebox("wird beendet","Programm",32)
CloseMessages(%hwnd)
freedll lvdll&
End

then yet The Possibility everything self into hand take circa z.B. too one Edit with particular properties(z.B.:only numbers), a Selection, one "DateEdit", etc., at Item To platzieren, and ggf. by TAB The Items To change.
Compile Mark Separation

Declare area#,lvdll&,Text$,x&,y&,z&,listview&
Def GetSysColor(1) !"USER32","GetSysColor"
Dim area#,256
var Font& = @CREATE("FONT","NEW TIMES ROMAN",14,0,0,0,0)
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
SetTrueColor 1
Window 400,400
Cls GetSysColor(15)
listview&=CreateListView(%hwnd,%hinstance,0,GetSysColor(24),-1,$31)
text$="A,B,C"
SetColumnsFromMem(listview&,addr(text $),0)
SetFont listview&,Font&
SetDialogFont Font&

Whileloop 5

    SetItem listview&,"","",""

EndWhile

SetColumnWidth(listview&,0,100)
SetColumnWidth(listview&,1,100)
SetColumnWidth(listview&,2,100)
ShowListView(listview&,10,48,354,270)
InitMessages(%hwnd)
usermessages $1407
WAY from 7001, 13, 0'Return
WAY from 7002, 9, 0'TAB left
WAY from 7003, 9, 2'TAB right
WAY from 7009, 27, 0

While 1

    waitinput
    Case %key=2:BREAK
    case %umessage=$1407: EDIT &uwParam, &ulParam'Spaltenindex ,'Zeilenindex (nullbasierend)

Wend

CloseMessages(%hwnd)
freedll lvdll&
End

Proc Edit

    Parameters slot%,row%
    Declare Ede_del2&
    CONTENT
    @Create("Tooltip", %hWnd ,Ede_del2& ,"Esc=Abbruch, worth with Enter take.")
    Setfocus(Ede_del2&)

    While 1

        WaitInput
        case iskey(27):BREAK'discontinue ESC

        If MenuItem(7001) OR (%MouseKey=2)'Save: Enter or rights Mouse button pressed

            SetText Listview&,row%,slot%,trim$(GetText$(Ede_del2&))
            BREAK

        ElseIf MenuItem(7002)'TAB to

            SetText Listview&,row%,slot%,trim$(GetText$(Ede_del2&))
            case slot%<GetColumns(Listview&)-1: inc slot%
            CONTENT

        ElseIf MenuItem(7003)'TAB back

            SetText Listview&,row%,slot%,trim$(GetText$(Ede_del2&))
            case slot%>0 : dec slot%
            CONTENT

        EndIf

        Ifnot getfocus(Ede_del2&)' Edit lose whom Focus, input verwefen

            BREAK

        EndIf

    wend

    DestroyWindow(Ede_del2&)
    setfocus(%hwnd)

ENDPROC

Proc Content

    DestroyWindow(Ede_del2&)
    Clear area#
    Text$=trim$(GetText$(Listview&,row%,slot%))'old Content
    GetOwnControlParas(area#,Listview&,slot%,row%)
    var opx&=Long(area#,12)'X Offset
    var opy&=Long(area#,16)'Y Offset
    var opb&=Long(area#,20)'wide
    var oph&=Long(area#,24)'Höhe
    Ede_del2&= @Create("Edit", Listview& ,Text$,opx&,opy&,opb&,oph&)
    SetFont Ede_del2&,Font&
    Setfocus(Ede_del2&)
    SendString(Ede_del2&,"+({END})")'Text Mark and Cursor ans end

Endproc

Gruß Thomas
Windows XP SP2, XProfan X2

09/25/13 ▲

H.Brill

here time one small Example of me.
there can you you Yes what raussuchen:
Compile Mark Separation

 $I Listview_Funktionen.inc
Declare hd%, ende%, lvdll&, Grid&, edits$
lvdll&=usedll("Listview.dll")
edits$ = "1111"' alle Spalten editierbar
hd% = @Create("Window",%HWnd,"Editieren mit rechter Maustaste",10,10,800, 300)
ende% = @Create("Button", hd%, "Ende", 20, 10, 120, 20)
Grid&=CreateListview(hd%,%hinstance,0,$ffffff,-1,$31)
' Spalten definieren
InsertColumn(Grid&, "Name", 220, 0)
InsertColumn(Grid&, "Wohnort", 150, 0)
InsertColumn(Grid&, "Straße", 150, 0)
InsertColumn(Grid&, "Telefon", 120, 0)
' zwei Einträge ins Listview
SetItem Grid&, "Maier", "Hamburg", "Hauptstr.", "4711"
SetItem Grid&, "Müller", "Köln", "Feldstr.", "4711"
' Listview anzeigen u. Optionen (EnableEdits) setzen
ShowListview(Grid&, 10, 40, 600, 200)
InitMessages(hd%)' nötig wegen EnableEdits
EnableEdits(Grid&, 1+8)
SelectColumnEdits(Grid&, Addr(edits$))

WhileNot @Clicked(ende%)

    WaitInput

EndWhile

FreeDll lvdll&
End

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

09/25/13 ▲

XProfan 11
Win7 Professional, AMD FX(tm)-8350 Eight-Core Processor, 16341,63 MB

Energizer

with the row:

$I Listview_Funktionen.inc

bring it by me always whom discontinue. where I get because these File?

Thomas
Freier

The is in the ListviewDll.zipper . according to the How one operates, must, as they in another Ordner abgespeichert, whom Path to your anpasst go, if to the not Programmeditor take on can. the Sicherste is, tappt im dunkeln with the List view.dll in the Arbeitsordener abzuspeichern.

Gruß Thomas
Windows XP SP2, XProfan X2

XProfan 11
Win7 Professional, AMD FX(tm)-8350 Eight-Core Processor, 16341,63 MB

Energizer

@Thomas suitor:
thanks for your speedy Help! your first Possibility gefällt me very well, there I will time something moreover rumprobieren ;)

@H.Brill:
too your Variant similar the Thomas, i think time there I will me what zusammenschustern ;)

1. Find the Variante Thomas because of the function to that "sperren" of/ one slot very well. with welchem commands I get here now a Vorgabetext into?
would have been me virtual there Vorgaben How "LK1" etc. reinzuschreiben ... for not so with know deliberated people ;)

Vielen Thanks people, your help one Beginner How me really very! ;)

One Item with SetItemText(H,T,s,L) .
there XProfan 11.n is used, can also The functions to the Gridboxen uses go.

Thomas
Freier

About The functions list view.dll at lay out the Leerzeilen z.B.:
Compile Mark Separation

Whileloop 5

    SetItem listview&,"","LK1",""

EndWhil

Gruß Thomas
Windows XP SP2, XProfan X2

XProfan 11
Win7 Professional, AMD FX(tm)-8350 Eight-Core Processor, 16341,63 MB

Energizer

ok means I have now a scheduler with several Split and zeilen, so How I me the whole wish ;) too with regulation into feldern.

now would I only gladly a single row and a single slot "schreibgeschützt" make

z.b. for slot 6 and row 12

PS: moreover would I gladly The scheduler larger make, so I any boxes at the same time see, find unfortunately only ne option around the window To enhance?

lg ;)

PS. Variante 2 goes naturally too, if no special EDITs uses go.

Thomas
Freier

then scheidet The Variante 1 from. only over Variante 3 is the possible.
simply The terms inquire, z.B.:
Compile Mark Separation

If %umessage=$1407

    IfNot (&uwParam=5) AND (&ulParam=11)'Doppellinksklick: edit Item

        EDIT &uwParam, &ulParam'Spaltenindex ,'Zeilenindex (nullbasierend)

    Endif

/a>

Gruß Thomas
Windows XP SP2, XProfan X2

XProfan 11
Win7 Professional, AMD FX(tm)-8350 Eight-Core Processor, 16341,63 MB

Energizer

well means Have now probiert, decompose/zeilen again drin udn so but How I get now mehrer zeilen or decompose "editierfähig" ?

Have now attempts in following row:
Compile Mark Separation

IF &uwParam=1'hier nur 2.Spalte(Index =1) editierenre>

behind The 1 yet 2, 3 etc To write (with kommas for others decompose) has but
unfortunately not worked

How mach I the now? ;)