XProfan

- Página 2 -

Sato
Pinto

¡Hola Rolf

El Hauptschleife

Mientras que %scankey <> 27 Ende con ESC
getmessage
" " "
" " "
" " "
Endwhile

Gruss y Gracias para Su INC

Sat6

Sato Pinto
WIN XP Home
XPROFAN 11

Sato Pinto

¿Puede Usted me Por favor, una pequeña Ejemplo ... sin la PCU ...

Müsste hier auch ya rumlungern, aber sollst Usted bekommen... (si yo porque a Casa bin...) *g*

PS: Gewöhne Usted Por favor, a, Fuente en el Foro con [ code ] a umrahmen, sonst trabajo cierto Dinge no y el Textos weden schwierig-a-falso dargestellt. (z.B. ca. Smilies & co...) Alternativ nutze simplemente [...]

- entonces braucht uno sólo el URL puesto.

Rolf
Koch

Hab grad getestet. In el Hauptschleife es aufjedenfall como vermutet Settimer, %wmtimer y Endtimer schuld.
VIelleicht el Uhrzeit irgendwie anders lösen y dafür Hilo Nummer 4 para el Bucle nutzen. Si el entonces klappt, kucken wir veces más. Weil Yo kann sólo en Verdacht a Deinem Code remendar

@Rolf: %wmtimer se de el thread-unit no gebrochen oder irritiert como el thread-unit setTimer no por ID pero por Funktionsadresse anspricht.

Rolf
Koch

Aber IF, si yo en el Code wmtimer rausnehme entonces passiert el Fehler sólo nich mehr. Yo kuck veces más.

Ok, el liegt entonces daran, el él

a) encima %wmtimer algo auslöst

y

b) "zeitgleich" el Hilo.Do "reinkloppt".

Er se startPainten - y luego kommt el thread.Do y voluntad auch "startPainten"...

%wmtimer es hier sólo una Alias pero no el Schuldige.

Rolf
Koch

Stimmt IF.
Yo habs zumindest ahora encima una más Schalter para dauerlauf y dies muy oft überredet:
@Sato:
Ändere en el laufschrift.inc en dieses:
Kompilieren Marca Separación

PROC SCROLLTEXT

    Parameters schrift%,bold%,backg&,Farbe%,string$,akt%

    if akt% = 0

        dec ydr%

    endif

    if inpaint%=0

        StartPaint backg&
        inpaint%=1
        TextColor farbe%,getpixel(1,1)
        UseFont "MS Sans Serif",schrift%,0,bold%,0,0
        DrawText xdr%,ydr% + (schrift%*akt%),string$+space$(500)
        ENDPAINT
        inpaint%=0
        case ydr% < (zeilenanzahl% * -schrift%) : ydr% = gesydr%

    endif

ENDPROC

Und füge global una Declarar inpaint% hinzu.
Alles otro veces así dejar como es. Hoffe, dass al Problema así umgehen kann.

Exactamente Rolf, y el es el Grund por qué Yo ya ewig el StartPaint-Stack de Roland wünsche...

[...]

Hehe tener ya al 18.01.2007 genau dieses Problema Nuevo... como se uno algo como auch encontrar?! Der Comunidad fehlt todavía irgend una Función...

Apéndice: Su Método es no sicher, aber sicherer! Wenn Su Proc grad startPaint aufgemacht ha podría el thread.do reinhüpfen y startPaint abierto querer.

Lo hilft wirklich sólo si todas las páginas (also deine inc y ser code) kein StartPaint uso y sólo hiernach [...]

trabajo.

Yo bin grad al Aktualisieren de el furchtbaren Source des startPaint-Stack-Paketes.

Der Witz es, auch así ists no sicher, sólo sicherer! Selbst si Roland ahora una startPaint-Stack instalado hätte, entonces wäre el auch sólo sicherer y solange no sicher, a auch el procAddr-Problema resuelto es.

Oje! (porque una call en una Función welche StartPaint nutzt sería entonces immernoch el Fehler erzeugen, oder si intern gestackt, en falschen pics dibujar)