XProfan

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

- Página 1 -

Energizer

@Thomas Freier:
Gracias para deine schnelle Ayuda! Su erste Möglichkeit gefällt me muy bien, como voluntad Yo veces algo más rumprobieren ;)

@H.Brill:
Auch deine Variante es ähnlich el por Thomas, Yo denke veces como voluntad Yo qué zusammenschustern ;)

1. Finde el Variante por Thomas aufgrund el Función para "sperren" uno Spalte muy bien. Mit welchem Befehl bekomme Yo hier nun una Vorgabetext hinein?
Hätte me pensamiento como Vorgaben como "LK1" etc. reinzuschreiben ... para el no así con Wissen bedachten Personas ;)

Vielen Dank Personas, Ihr helft una Principiante como me wirklich muy! ;)

Ein Item con SetItemText(H,T,S,L) .
Como XProfan 11.n verwendet se, puede auch el Características a Gridboxen verwendet voluntad.

Thomas
Freier

Über el Características el Listview.dll beim Anlegen el Leerzeilen z.B.:
Kompilieren Marca Separación

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 Yo habe ahora una tabla con más Spalten y zeilen, como Yo todos wünsche ;) auch con vorschrift en el feldern.

ahora sería Yo sólo gerne una einzelne zeile y una einzelne spalte "schreibgeschützt" hacer

z.b. para spalte 6 y zeile 12

PS: außerdem sería Me gusta el tabelle größer hacer, así dass Yo todos felder gleichzeitig sehe, finde desafortunadamente sólo ne option en el fenster a vergrößern?

lg ;)

PS. Variante 2 va natürlich auch, si no speziellen EDITs verwendet voluntad.

Thomas
Freier

Dann scheidet el Variante 1 de. Nur encima Variante 3 es el posible.
Einfach el Bedingungen abfragen, z.B.:
Kompilieren Marca Separación

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

bien also tener ahora probiert, spalten/zeilen ya otra vez drin udn así aber como bekomme Yo ahora mehrer zeilen oder spalten "editierfähig" ?

tener ahora intenta en folgende zeile:
Kompilieren Marca Separación

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

hinter el 1 todavía 2, 3 etc a escribir (con kommas para el otro spalten) ha aber
por desgracia, no geklappt

como mach Yo el ahora? ;)

- Página 2 -

Thomas
Freier

El Abfrage encima
Kompilieren Marca Separación

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

oder
Kompilieren Marca Separación

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

oder
Kompilieren Marca Separación

SELECT &uwParam

    CASEOF 1, 2, 3 , 5,7

    <Programmcode>

    CASEOF 4, 6

    <Programmcode>
    ...
    OTHERWISE
    <Programmcode>

LECT

Minibeispiel Listview-/Gridboxgröße para Ventana
Kompilieren Marca Separación

Conjunto("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&=Crear("GridBox", %HWND, a$, 3, 10, 30, (Width(%HWND)-20), (Height(%HWND)-60))
SUBCLASS %HWND,1

WHILE 1

    WAITINPUT

ENDWHILE

FIN

Gruß Thomas
Windows XP SP2, XProfan X2

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

Energizer

Also para el Abfrage fand Yo deine erste Möglichkeit al besten, ha soweit auch geklappt doch como mach Yo el para Zeilen?

Und con el Listboxgröße komm Todavía no bastante klar ...

Nach CLS fängst du sí a con setclasslong

de el punkt war sí dein erstes programm bastante anders, como podría Yo entonces todos tabellen ändern y ahora es sí hinter cada spaltennamen zwei zahlen y el felder son nada editierbar?

sí sry Yo weiß es ne pesado geburt con me hier ;)

27.09.2013 ▲

Thomas
Freier

Das war sólo una Ejemplo con el internen Gridboxfunktion como el Gridbox uno Größenveränderung des Hauptfensters anpasst.
Um Beispiele para "Abiturrechner" anzupassen, müßten mehr Informationen vorliegen, z.B.: Soll lo una en el Größe unveränderbares oder veränderbares Ventana principal voluntad. Erforderliche Breite el Listbox , si no horizontal gescrollt voluntad se. Wieviele Zeilen son vorgesehen. Sombrero la ventana principal una Toolbar y/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 la ventana principal kann ruhig en su größe veränderbar ser, dass wäre me egal y manchmal wahrscheinlich auch muy passend

como breit el listbox ser se kann Yo eigentlich no sagen, como Yo el genaue breite weiß also wäre una adaptar a el fenster muy bien ... debería el no ir podría Yo natürlich auch el längste kombination de buchstaben, zahlen etc. el para fächer en frage kommen eingeben y dir ne pixelzahl más o menos nennen

zeilen son lo 15, spalten 6

si du con toolbar oben el leiste media wo datei speichern etc kommen se entonces sí ;)

Yo voluntad demnächst cada unterprogramme meines abirechners zusammenfügen y luego hier veces nen beispiel puesto, vllt könnt ihr euch entonces mejor hinein versetzen.

27.09.2013 ▲

H.Brill

Yo weiß ahora no, si ImportDLL ya en el Versión 11.2 Libre
verfügbar war. Wenn sí, puede ser el DLL auch sin Includedatei
(Listview_funktionen.inc) nutzen. Lo fehlen sólo sólo el pocos Procs,
el en el Incluir zusätzlich definiert son. Aber el puede ser sí
auch en seinen Quellcode kopieren.
Das sähe entonces así de :
Kompilieren Marca Separación

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 ▲