| |
| |
|
Jörg
Sellmeyer | allô Frank,
Könntest Du peut-être une Funktion zur fortlaufenden Numerierung qui Spalten einbauen?
Etwa so:
KompilierenMarqueSéparation
Proc SetNumbers
Parameters LV&,Spalte&,hdl&,Text$
Declare nr$,Lines&,00$
Lines& = GetLines(LV&)
00$ = MkStr$("0",Len(Str$(Lines&)))
If %pcount = 1
WhileLoop 0,Lines& -1
Case IsKey(27):Break
nr$ = Format$(00$,&Loop)
SetItemText(LV&,Addr(nr$),Spalte&,&Loop)
Wend
ElseIf %pcount = 3
WhileLoop 0,Lines& -1
Case IsKey(27):Break
nr$ = Format$(00$,&Loop)
SetItemText(LV&,Addr(nr$),Spalte&,&Loop)
SetText hdl&,Text$ + nr$
bei hoher Geschwindigkeit erübrigt sich das mit dem Text evtl. aber so ist eine
Fortschrittsanzeige möglich
Wend
EndIf
ENDPROC
je hatte dernièrement cela plaisir quelques -zigtausend Zeilen trop numerieren.
dans Assembler dauert cela wahrscheinlich seulement Millisekunden.
avec Profan habe je pour 10 Minuten chez ca. 50000 abgebrochen.
Salut
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 02.03.2005 ▲ |
|
| |
|
|
Frank
Abbing | allô Jörg,
bien sûr, sollte pas allzu aufwendig son.
Allerdings werkle je justement à einer Ajouter-On-Dll pour qui Listview.dll. cela hat höchste Priorität! |
|
| |
| |
| |
|
|
 | Gib ihm doch simple nen xpia-beispiel 
Salve, iF |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
pourrait je naturellement faire. mais je halte so une Funktion pour qui Listview.dll pour très sinnvoll. tout autor werde je vous là aufnehmen.  |
|
| |
| |
| |
|
|
| Richtig - finde je aussi Sinnvoll!
So un Beispielchen wäre quand même très intéressant et bien chez Deinen ASM-Beispielen aufgehoben - ou bien sogar ici.
Es serait arrêt montrer comment on qui Listview.DLL (wohin es oui doch souvent um viele Einträge allez) avec XPIA zusammen nutzen peux.
Salve, iF |
|
| |
| |
| |
|
|
Frank
Abbing | Hi.
[quote-part:67a10e7051]Es serait arrêt montrer comment on qui Listview.DLL (wohin es oui doch souvent um viele Einträge allez) avec XPIA zusammen nutzen peux. [/quote-part:67a10e7051]
Ist doch seulement une Boucle, dans qui une Message toujours wieder aufgerufen wird. Weder intéressant, encore pour sonderlich lehrreich. et seulement entier wenig Assembler, pour plus Strukturen...  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | >Weder intéressant, encore pour sonderlich lehrreich.
Ooch... mach doch la fois quand même :roll: |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 03.03.2005 ▲ |
|
| |
|
|
| @Jörg: Du hältst Frank fest - je kitzle Ihn à de Füße jusqu'à ihm qui ASM-25-Zeiler ausm Gesicht fällt. 
Salve, iF  |
|
| |
| |
| |
|
|
CB | OhGottohGott
je habs mir justement versucht, bildlich vorzustellen, comment cela wohl air mag, si Frank lachend et kichernd Assembler flucht  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | cela wär doch la fois quoi!  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 04.03.2005 ▲ |
|
| |
|
|
Frank
Abbing | Hi,
comment, quoi? une Verschwörung?
je peux qui Funktion volontiers ici posten, si vous fertig ist. Hab mais seulement encore autre Sachen trop 1faire.  |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
qui Funktion ist fertig et heisst SetLineNumbers().
ici qui Code, je hoffe il est verständlich:
KompilierenMarqueSéparationinvoke SendMessage,[ebp+8],4100,0,0
mov ecx,eax ; ecx = Anzahl Zeilen
xor edi,edi ; edi = Zeile = 0
.if ecx!=0
mov esi,[ebp+8] ; esi = Handle
mov edx,[ebp+12] ; edx = Startzeilennummer
routea:
push ecx
push edx
push edi
push edi
push [ebp+16]
push OFFSET unwichtig5
push [ebp+8]
invoke dwtoa,edx,addr unwichtig5
call SetItemText
pop edi
pop edx
pop ecx
inc edx
inc edi
cmp ecx,edi
jne routea
xor eax,eax
.endif
|
|
| |
| |
| |
|
(1.046)
Deutsch
English
Français
Español
Italia