XProfan

Hey Georg!

Büdde con kleinem Source.

Yo me hier veces a la Textblock geschrieben el Yo simplemente toll finde:

[tb]minimalbeispiel[/tb]

GDL

Finde Yo auch toll.Nur brauche Yo siempre Zusatzdateien en el problema real darstellen a puede.Yo bin sólo una Einzelgänger en Sachen proggen.
Hoffe el dies va.Ansonsten bekomme Yo así ligeramente no hin.
Kompilieren Marca Separación

declare astart$,ende%,lvdll&,image#,string#,bereich#,hdll&,font1&,font&,name$,num%
declare anzahl&,x&,listview&,listview1&,listview2&,listview3&,bemerkung$,decoder$
declare ausgang$,rahmen1&,rahmen2&,text&[100],bt&
Def GetSysColor(1) !USER32, GetSysColor
usermessages 16
SetTrueColor 1
astart$=$ProgDir
case left$(astart$,14)=C:ProgrammeX:astart$=C:\Steuerung\
case left$(astart$,14)=C:PROGRAMMEX:astart$=C:\Steuerung\
chdir astart$
mkdir daten
chdir astart$+daten
window 0,0-%maxx,%maxy
cls getsyscolor (15)
Dim bereich#,320
 $I Listview_Funktionen.inc
lvdll&=usedll(Listview.dll)
 $I SKCONTROL.INC
let hdll& = UseDll(SKControl.dll)        Farb DLL laden
SKCtrl_InitDll()
dim string#,255
dim image#,255
font1&=@Create(Font,Courier,17,0,1,0,0)
font&=@Create(Font,Courier,8,0,1,0,0)
=================================================================

proc vorbereiten

    chdir astart$+daten\

    ifnot findfirst$(komponenten.str)=komponenten.str

        assign #1,komponenten.str
        rewrite #1
        print #1,feld1;C;2;0
        print #1,feld2;C;20;0
        print #1,feld3;C;4;0
        print #1,decoder;C;4;0
        print #1,ausgang;C;1;0
        close #1
        dbcreate komponenten.str > b.dbf
        dbcreate komponenten.str > k.dbf
        dbcreate komponenten.str > w.dbf
        dbcreate komponenten.str > m.dbf
        dbcreate komponenten.str > s.dbf
        name$=w.dbf
        clearlist wbox&
        erzeugen
        name$=s.dbf
        clearlist sbox&
        erzeugen
        name$=m.dbf
        clearlist mbox&
        erzeugen
        name$=b.dbf
        clearlist bbox&
        erzeugen

    else

        name$=w.dbf
        einlesen
        name$=s.dbf
        einlesen
        name$=m.dbf
        einlesen
        name$=b.dbf
        einlesen

    endif

endproc

==============================================================================

proc erzeugen

    num%=1
    anzahl&=dbopen(#1,name$)
    dbuse(#1)

    whilenot num% > 999

        dbappendblank()
        dbput(feld1,xx)
        dbput(feld2,....................)
        dbput(decoder,0000)
        dbput(ausgang,0)
        dbputrec(0)
        inc num%

    wend

    dbclose(#1)

endproc

===============================================

proc bildschirm

    x&=MixRGBs(GetSysColor(15),RGB(193,65,3))
    listview&=CreateListView(%hwnd,%hinstance,0,x&,-1,$31)
    ShowListview(listview&,10,150,440,200)
    setfont listview&,font&
    InsertColumn listview&,lfd.Nr.,80,0
    InsertColumn listview&,Bezeichnung,180,0
    InsertColumn listview&,Decoder,80,0
    InsertColumn listview&,Ausgang,80,0
    x&=MixRGBs(GetSysColor(15),RGB(193,65,93))
    listview1&=CreateListView(%hwnd,%hinstance,0,x&,-1,$31)
    ShowListview(listview1&,470,150,440,200)
    setfont listview1&,font&
    InsertColumn listview1&,lfd.Nr.,80,0
    InsertColumn listview1&,Bezeichnung,180,0
    InsertColumn listview1&,Decoder,80,0
    InsertColumn listview1&,Ausgang,80,0
    x&=MixRGBs(GetSysColor(15),RGB(0,202,0))
    listview2&=CreateListView(%hwnd,%hinstance,0,x&,-1,$31)
    ShowListview(listview2&,10,450,440,200)
    setfont listview2&,font&
    InsertColumn listview2&,lfd.Nr.,80,0
    InsertColumn listview2&,Bezeichnung,180,0
    InsertColumn listview2&,Decoder,80,0
    InsertColumn listview2&,Ausgang,80,0
    x&=MixRGBs(GetSysColor(15),RGB(0,0,224))
    listview3&=CreateListView(%hwnd,%hinstance,0,x&,-1,$31)
    ShowListview(listview3&,470,450,440,200)
    setfont listview3&,font&
    InsertColumn listview3&,lfd.Nr.,80,0
    InsertColumn listview3&,Bezeichnung,180,0
    InsertColumn listview3&,Decoder,80,0
    InsertColumn listview3&,Ausgang,80,0
    declare bemerkungedit&,decoderedit&,adresseedit&
    bt&=create(button,%hwnd,w,10,100,50,20)

endproc

========================================================

proc einlesen

    num%=1
    anzahl&=dbopen(#1,name$)
    dbuse(#1)

    whilenot num% > anzahl&

        dbgo(num%)
        bemerkung$=dbget$(feld2)
        decoder$=dbget$(decoder)
        ausgang$=dbget$(ausgang)
        case left$(name$,1)=w:SetItem listview&,right$(00+str$(num%),3),bemerkung$,decoder$,ausgang$
        case left$(name$,1)=s:SetItem listview1&,right$(00+str$(num%),3),bemerkung$,decoder$,ausgang$
        case left$(name$,1)=m:SetItem listview2&,right$(00+str$(num%),3),bemerkung$,decoder$,ausgang$
        case left$(name$,1)=b:SetItem listview3&,right$(00+str$(num%),3),bemerkung$,decoder$,ausgang$
        inc num%

    wend

    dbclose(#1)

endproc

==================================================================

proc aufraeumen

    dispose string#
    dispose image#
    dispose bereich#
    deleteobject font&
    deleteobject font1&
    SKCtrl_DeInitDll()        Farb DLL löschen
    FreeDll hdll&
    FreeDll lvdll&

endproc

==========================================================================
bildschirm
vorbereiten

whilenot ende%

    waitinput

    if %umessage = 16

        ende%=1
        aufraeumen

    elseif clicked(bt&)

        beep

    endif

wend

Dies voluntad sólo 17k Archivos. Im Hauptmodul sinds entonces 4MB con 255 Spalten.
Verzögerungszeit hier son ca 2 sec.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

Frank
Abbing

¡Hola Georg,

Hab mein Demo Vier.prf veces getestet (beinhaltet Flughafendatei) y kann no Verzögerungen erkennen. Como du weisst, nutzt el Listview.dll sólo el originalen SysListview32- Controls. El komplette Verwaltung se also de Windows übernommen, como funkt el Listview-Dll no dazwischen.
Yo vermutet, du bekommst el Problemas con älteren Computer, el wahrscheinlich auch a wenig RAM besitzen. Windows se wahrscheinlich en su Verwaltung Daten auslagern necesario y una alter Prozessor arbeitet auch entsprechend langsamer. Daher voluntad Yo a deinem Problema nichts ändern puede, du solltest lo veces con algo mehr Speicher probieren.
¿Puede du porque bestättigen, dass mein Demo Vier.prf en dir langsam reagiert?

GDL

¡Hola Franco,

Yo en vier.prf todavía
button&=create(button,dialog&,T,650,230,20,20)
eingefügt y frage el en el Hauptschleife de.

Geht en cada Rechner einwandfrei. Werde ahora veces con el Spalten hantieren. Vielleichts liegts a deren Anzahl. Oder Yo übersehe algo Wichtiges y komme simplemente no darauf.

Servus
Georg

Jetzt bekomme auch Yo schöne aufgelockerte Oberflächen hin.

Windows7 Xprofan 8,9,10 [...]

[...]