Forum | | | | | 
GDL | Hello Frank,
I have already some try with the Sharewarever. made and would like to the Lizenzgewinn The List view too in my Modellbahnproggi benefit.
and here have I one Reaktionsproblem with normalen Windowsbutton ex mittelgrossen Datenmengen in the list view. ca 100kb.
the means, if I in the list view a selection tätigte, react The others Fenstercontrols thereafter with of/ one einmaligen Verzögerung.apiece greater The Datenmenge in the list view so longer The Verzögerung.
I have nothing besonderes as an simple Hauptschleife a couple Controls and 4 Listboxes.the waitinput can I not omit, there in the späterem Hauptmodul others functions otherwise not weg.
Probier Please simply with you ne application from and load thereby your Flughäfendatei one.
These causes by me 17 To 20 sec. reaction time .inside the Listviews becomes immediate reacted.(others Datensatz,Linksklick,Rechtsklick)
Hello
Georg |
| | | | | | |
| |  | Hey Georg!  Büdde with little Source. 
I Have me here time a Textblock written whom I simply cool find: 
[tb]minimalbeispiel[/tb] |
| | | | | | |
| |
GDL | find so did i cool.only need I always Zusatzdateien around the trouble real present to.i'm hold one Einzelgänger in things proggen.
hope that this goes.otherwise I get it so slight not there.
CompileMarkSeparationdeclare 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
this go only 17k Files. in the Hauptmodul sinds then 4MB with 255 Split.
Verzögerungszeit here are ca 2 sec.
Hello
Georg |
| | | | | | |
| | 
Frank
Abbing | Hello Georg,
Have my demonstration four.prf time tested (contain Flughafendatei) and can no delays discern. How You know, uses The List view.dll only The originalen SysListview32- Controls. The complete management becomes means Windows übernommen, there funkt The List view-Dll not between.
I vermutet, You get The Problems with older computer, The probably too To little RAM own. windows becomes probably with its management data auslagern must and a old processor operates too properly slower. therefore I will on your trouble nothing Change can, you should it time with little more memory try.
can you because bestättigen, that my demonstration four.prf with you slow reacted? |
| | | | | | |
| |
GDL | Hello Frank,
I have in four.prf yet
button&=create(button,dialog&,T,650,230,20,20)
eingefügt and question whom in the Hauptschleife ex.
goes In any computer correct. will be now time with the Split hantieren. Vielleichts liegts on its amount. or I übersehe something Wichtiges and come simply not hereon.
Hello
Georg
now get too I nice aufgelockerte surfaces there. |
| | | | | | |
| | 
Michael
Wodrich | | get there each the 4 Listviews 255 Split? |
| | | | Programmieren, das spannendste Detektivspiel der Welt. | 03/02/07 ▲ |
| | |
| |
GDL | | | | | | | |
|
AnswerThemeninformationenthis Topic has 4 subscriber: |
(2.372)
Deutsch
English
Français
Español
Italia