XProfan

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

- page 1 -

Energizer

@Thomas Freier:
merci pour deine schnelle Aider! Votre erste Possibilité comme mir très bien, là werde je la fois quelque chose plus rumprobieren ;)

@H.Brill:
aussi deine variante ist ähnlich qui de Thomas, je denke la fois là werde je mir quoi zusammenschustern ;)

1. Finde qui variante de Thomas aufgrund qui Funktion zum "sperren" einer Spalte très bien. avec welchem Befehl bekomme je ici eh bien une Vorgabetext hinein?
Hätte mir gedacht là Vorgaben comment "LK1" etc. reinzuschreiben ... pour qui pas so avec savons bedachten gens ;)

Vielen Dank gens, son helft einem Débutant comment mir wirklich très! ;)

un Item avec SetItemText(H,T,S,L) .
là XProfan 11.n verwendet wird, peut aussi qui Funktionen le Gridboxen verwendet volonté.

Thomas
Freier

Über qui Funktionen qui Listview.dll beim Anlegen qui Leerzeilen z.B.:
Kompilieren Marque Séparation

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 alors j'ai maintenant une Tabelle avec mehreren Spalten et zeilen, so comment je mir cela ganze wünsche ;) aussi avec vorschrift dans den feldern.

maintenant serait je seulement volontiers une einzelne la ligne et une einzelne spalte "schreibgeschützt" faire

z.b. pour spalte 6 et la ligne 12

PS: aussi serait je volontiers qui tabelle größer faire, so dass je alle felder gleichzeitig vois, finde malheureusement seulement ne option um cela la fenêtre trop agrandir?

lg ;)

PS. variante 2 allez naturellement aussi, si aucun speziellen EDITs verwendet volonté.

Thomas
Freier

ensuite scheidet qui variante 1 aus. seulement sur variante 3 ist cela possible.
simple qui Bedingungen abfragen, z.B.:
Kompilieren Marque Séparation

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 alors hab maintenant probiert, spalten/zeilen encore drin udn so mais comment bekomme je maintenant mehrer zeilen ou bien spalten "editierfähig" ?

hab maintenant versucht dans folgende la ligne:
Kompilieren Marque Séparation

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

derrière qui 1 encore 2, 3 etc trop écrivons (avec kommas pour qui anderen spalten) hat mais
malheureusement pas geklappt

comment mach je cela maintenant? ;)

- page 2 -

Thomas
Freier

qui Abfrage sur
Kompilieren Marque Séparation

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

ou bien
Kompilieren Marque Séparation

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

ou bien
Kompilieren Marque Séparation

SELECT &uwParam

    CASEOF 1, 2, 3 , 5,7

    <Programmcode>

    CASEOF 4, 6

    <Programmcode>
    ...
    OTHERWISE
    <Programmcode>

LECT

Minibeispiel Listview-/Gridboxgröße zum la fenêtre
Kompilieren Marque Séparation

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&=Créer("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

alors pour qui Abfrage fand je deine erste Possibilité am besten, hat soweit aussi geklappt doch comment mach je cela pour Zeilen?

et avec qui Listboxgröße komm je encore pas entier bien sûr ...

Pour CLS fängst du oui à avec setclasslong

ab dem punkt était oui dein erstes programm entier anders, là konnte je ensuite alle tabellen changement et maintenant steht oui derrière chaque spaltennamen deux payons et qui felder sommes gar pas editierbar?

oui sry je sais ist ne lourd naissance avec mir ici ;)

27.09.2013 ▲

Thomas
Freier

cela était seulement un Beispiel avec qui internen Gridboxfunktion comment sich qui Gridbox einer Größenveränderung des Hauptfensters anpasst.
Um Beispiele zum "Abiturrechner" anzupassen, müßten plus Informationen vorliegen, z.B.: Soll es un dans qui Taille unveränderbares ou bien veränderbares Hauptfenster volonté. Erforderliche Breite qui Listbox , si pas horizontal gescrollt volonté soll. Wieviele Zeilen sommes vorgesehen. Hat cela Hauptfenster une Toolbar et/ou bien 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

alors cela Hauptfenster peux calme dans seiner taille veränderbar son, dass wäre mir égal et quelquefois wahrscheinlich aussi très convenable

comment breit qui listbox son soll peux je eigentlich pas dire, là je qui genaue breite sais alors wäre un anpassen à cela la fenêtre très bien ... sollte cela pas aller pourrait je naturellement aussi qui längste kombination de buchstaben, payons etc. qui pour fächer dans frage venons eingeben et dir ne pixelzahl ou bien so appeler

zeilen sommes es 15, spalten 6

si du avec toolbar dessus qui leiste meinst wohin fichier Sauver etc venons soll ensuite oui ;)

je werde bientôt chaque unterprogramme meines abirechners zusammenfügen et ensuite ici la fois nen beispiel posten, vllt peut son euch ensuite besser hinein versetzen.

27.09.2013 ▲

H.Brill

je sais maintenant pas, si ImportDLL déjà dans qui Version 11.2 Free
disponible était. si oui, peux on qui DLL aussi sans Includedatei
(Listview_funktionen.inc) nutzen. Es manquer arrêt seulement qui paire Procs,
qui dans qui Include zusätzlich défini sommes. mais qui peux on oui
aussi dans seinen Quellcode kopieren.
cela sähe ensuite so aus :
Kompilieren Marque Séparation

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/'>Fin

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 ▲