XProfan

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

- Page 1 -

Energizer

@Thomas Freier:
Danke per deine schnelle Aiuto! Deine erste Möglichkeit gefällt mir sehr gut, da werde ich mal etwas weiter rumprobieren ;)

@H.Brill:
Auch deine Variante ist ähnlich der von Thomas, ich denke mal da werde ich mir was zusammenschustern ;)

1. Finde die Variante von Thomas aufgrund der Funktion zum "sperren" einer Spalte sehr gut. Mit welchem Befehl bekomme ich hier nun einen Vorgabetext hinein?
Hätte mir gedacht da Vorgaben wie "LK1" etc. reinzuschreiben ... per die nicht so mit Wissen bedachten Leute ;)

Vielen Dank Leute, Ihr helft einem Anfänger wie mir wirklich sehr! ;)

Ein Item mit SetItemText(H,T,S,L) .
Da XProfan 11.n verwendet wird, können auch die Funktionen zu den Gridboxen verwendet werden.

Thomas
Freier

Über die Funktionen der Listview.dll beim Anlegen der Leerzeilen z.B.:
Kompilieren Markieren Separieren

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 also Ich habe jetzt eine Tabelle mit mehreren Spalten und zeilen, so wie ich mir das ganze wünsche ;) auch mit vorschrift in den feldern.

jetzt würde ich nur gerne eine einzelne zeile und eine einzelne spalte "schreibgeschützt" machen

z.b. per spalte 6 und zeile 12

PS: außerdem würde ich gerne die tabelle größer machen, so dass ich alle felder gleichzeitig sehe, finde leider nur ne option um das fenster zu vergrößern?

lg ;)

PS. Variante 2 geht naturalmente auch, wenn keine speziellen EDITs verwendet werden.

Thomas
Freier

Dann scheidet die Variante 1 aus. Nur circa Variante 3 ist das possibile.
Einfach die Bedingungen abfragen, z.B.:
Kompilieren Markieren Separieren

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

gut also hab jetzt probiert, spalten/zeilen schon wieder drin udn so aber wie bekomme ich jetzt mehrer zeilen oder spalten "editierfähig" ?

hab jetzt versucht in folgende zeile:
Kompilieren Markieren Separieren

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

hinter die 1 noch 2, 3 etc zu schreiben (mit kommas per die anderen spalten) hat aber
leider nicht geklappt

wie mach ich das jetzt? ;)

- Page 2 -

Thomas
Freier

Die Abfrage circa
Kompilieren Markieren Separieren

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

oder
Kompilieren Markieren Separieren

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

oder
Kompilieren Markieren Separieren

SELECT &uwParam

    CASEOF 1, 2, 3 , 5,7

    <Programmcode>

    CASEOF 4, 6

    <Programmcode>
    ...
    OTHERWISE
    <Programmcode>

LECT

Minibeispiel Listview-/Gridboxgröße zum Fenster
Kompilieren Markieren Separieren

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

Also per die Abfrage fand ich deine erste Möglichkeit am besten, hat soweit auch geklappt doch wie mach ich das per Zeilen?

Und mit der Listboxgröße komm ich noch nicht ganz klar ...

Nach CLS fängst du ja an mit setclasslong

ab dem punkt war ja dein erstes programm ganz anders, da konnte ich dann alle tabellen ändern und jetzt steht ja hinter jedem spaltennamen zwei zahlen und die felder sind gar nicht editierbar?

ja sry ich weiß ist ne schwere geburt mit mir hier ;)

27.09.2013 ▲

Thomas
Freier

Das war nur ein Beispiel mit der internen Gridboxfunktion wie sich die Gridbox einer Größenveränderung des Hauptfensters anpasst.
Um Beispiele zum "Abiturrechner" anzupassen, müßten mehr Informationen vorliegen, z.B.: Soll es ein in der Dimensione unveränderbares oder veränderbares Hauptfenster werden. Erforderliche Breite der Listbox , wenn nicht horizontal gescrollt werden soll. Wieviele Zeilen sind vorgesehen. Hat das Hauptfenster eine Toolbar und/oder Statuszeile?

Gruß Thomas
Windows XP SP2, XProfan X2

27.09.2013 ▲

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

Energizer

Also das Hauptfenster kann ruhig in seiner größe veränderbar sein, dass wäre mir egal und manchmal wahrscheinlich auch sehr passend

wie breit die listbox sein soll kann ich eigentlich nicht sagen, da ich die genaue breite weiß also wäre ein anpassen an das fenster sehr gut ... sollte das nicht gehen potuto ich naturalmente auch die längste kombination von buchstaben, zahlen etc. die per fächer in frage kommen eingeben und dir ne pixelzahl oder so nennen

zeilen sind es 15, spalten 6

wenn du mit toolbar oben die leiste meinst wo datei speichern etc kommen soll dann ja ;)

ich werde demnächst die einzelnen unterprogramme meines abirechners zusammenfügen und dann hier mal nen beispiel posten, vllt può ihr euch dann besser hinein versetzen.

27.09.2013 ▲

H.Brill

Ich weiß jetzt nicht, ob ImportDLL schon in der Version 11.2 Free
disponibile war. Wenn ja, kann man die DLL auch ohne Includedatei
(Listview_funktionen.inc) nutzen. Es fehlen halt nur die paar Procs,
die in der Include zusätzlich definiert sind. Aber die kann man ja
auch in seinen Quellcode kopieren.
Das sähe dann so aus :
Kompilieren Markieren Separieren

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.

28.09.2013 ▲