XProfan

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

- Page 1 -

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? ;)

- Page 2 -

Thomas
Freier

The request over
Compile Mark Separation

IF (&uwParam=1) OR (&uwParam=2) OR (&uwParam=3)re>

or
Compile Mark Separation

IF (&uwParam>0) AND (&uwParam<4)re>

or
Compile Mark Separation

SELECT &uwParam

    CASEOF 1, 2, 3 , 5,7

    <Programmcode>

    CASEOF 4, 6

    <Programmcode>
    ...
    OTHERWISE
    <Programmcode>

LECT

Minibeispiel List view-/Gridboxgröße to that Window
Compile Mark Separation

Set("ErrorLevel", 2)
 $H windows.ph
 $H messages.ph
DECLARE LV&,a$

SubClassproc

    IF SUBCLASSMESSAGE(%HWND,~WM_SIZING) or SUBCLASSMESSAGE(%HWND,~WM_SIZE)

        SETWINDOWPOS LV&=10, 30 - (Width(%HWND)-20), (Height(%HWND)-60)
        SET("WinProc",0)

    ENDIF

endproc

CLS
~SetClassLong(%hwnd, ~GCL_STYLE, (~GetClassLong(%hwnd, ~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
a$ = "Links;0;180;Mitte;2;100;Rechts;1;80"
LV&=Create("GridBox", %HWND, a$, 3, 10, 30, (Width(%HWND)-20), (Height(%HWND)-60))
SUBCLASS %HWND,1

WHILE 1

    WAITINPUT

ENDWHILE

END

Gruß Thomas
Windows XP SP2, XProfan X2

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

Energizer

means for request found I your first Possibility best, has so far too worked still How mach I the for Lines?

and with the Listboxgröße komm I not yet integrally clear ...

After CLS catch You Yes on with setclasslong

ex the point was Yes your erstes Program quite different, there could I then any tables change and now standing Yes behind each spaltennamen two numbers and the boxes are none editierbar?

Yes sry I know is ne schwere birth with me here ;)

09/27/13 ▲

Thomas
Freier

the was only an example with the internen Gridboxfunktion How the GridBOX of/ one Größenveränderung the Mainwindow anpasst.
circa Examples to that "Abiturrechner" anzupassen, müßten More Information exist, z.B.: should it one in the Size unveränderbares or veränderbares Mainwindow go. Erforderliche wide the Listbox , unless horizontal gescrollt go should. Wieviele Lines are vorgesehen. If the Mainwindow a Completed: Second/or Statuszeile?

Gruß Thomas
Windows XP SP2, XProfan X2

09/27/13 ▲

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

Energizer

means the Mainwindow can quiet in its size veränderbar his, that would me alike and sometimes probably too very properly

How wide The listbox his should can I really not say, I The detailed wide white means would one accommodate to the window very well ... ought to not weg could I naturally too The longest combination of letters, numbers etc. The for fächer in question come enter and you ne pixelzahl or so name

zeilen are it 15, decompose 6

if You with toolbar supra The groin mean where File Save etc come should then Yes ;)

i'll soon each unterprogramme of my abirechners join and then here time NEN example post, vllt can your you then rather into displace.

09/27/13 ▲

H.Brill

i know now not, whether ImportDLL already in the Version 11.2 Free
available was. if so, can The DLL too without Includedatei
(Listview_funktionen.inc) benefit. it are missing hold only The couple Procs,
The in the Include additional definiert are. but The can Yes
too in its Source copy.
the sähe then so from :
Compile Mark Separation

Declare hd%, ende%, lvdll&, Grid&, edits$
Declare datensatz#
Declare sp1$, sp2$, sp3$, sp4$, Name$, Ort$, Strasse$, Telefon$
sp1$ = "Name"
sp2$ = "Wohnort"
sp3$ = "Strasse"
sp4$ = "Telefon"
Dim datensatz#, 20
lvdll& = Importdll("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
IColumn(Grid&, addr(sp1$), 220, 0)
IColumn(Grid&, addr(sp2$), 150, 0)
IColumn(Grid&, addr(sp3$), 150, 0)
IColumn(Grid&, addr(sp4$), 120, 0)
' zwei Einträge ins Listview
Name$    = "Maier"
Ort$     = "Hamburg"
Strasse$ = "Hauptstr"
Telefon$ = "4711"
Long datensatz#, 0  =  Addr(Name$)
Long datensatz#, 4  =  Addr(Ort$)
Long datensatz#, 8  =  Addr(Strasse$)
Long datensatz#, 12 =  Addr(Telefon$)
SItem(Grid&, datensatz#, 4)
Name$    = "Müller"
Ort$     = "Köln"
Strasse$ = "Rheinstr."
Telefon$ = "4712"
Long datensatz#, 0  =  Addr(Name$)
Long datensatz#, 4  =  Addr(Ort$)
Long datensatz#, 8  =  Addr(Strasse$)
Long datensatz#, 12 =  Addr(Telefon$)
SItem(Grid&, datensatz#, 4)
' 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

Dispose datensatz#
FreeDll lvdll&
/../function-references/XProfan/end/'>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/28/13 ▲