XProfan

Español

Hola Roland,

folgendes es no posible:

 {$cleq}
cls
mcls 100,100,$FF0000
startpaint %hWnd
line 0,0 - 100,100
startpaint -1
line 100,0 - 0,100
endpaint
mcopybmp 0,0 - 100,100>0,0;-1
endpaint
waitinput
end

StartPaint es no besonders helle,

esta wäre Abhilfe así simplemente.

Der Wunsch besteht auch ya muy largo: [...]

y trägt el Kennzeichnung
"unerledigt".

Diese einfache Incluir: [...]

zeigt como simplemente una solución umzusetzen wäre:

Kompilieren Marca Separación

longs startPaint.stack

proc startPaint2(long dc)

    caso sizeOf(startPaint.stack) : endPaint
    startPaint.stack[sizeOf(startPaint.stack)]=dc
    startpaint dc

ENDPROC

proc endPaint2

    if sizeOf(startPaint.stack)

        endpaint
        setSize startPaint.stack,sizeOf(startPaint.stack)-1
        caso sizeOf(startPaint.stack) : startpaint startPaint.stack[sizeOf(startPaint.stack)-1]

    endif

ENDPROC

Incluir con sin xpse (achtung, Fingergelenkebruchgefahr!!!)

Kompilieren Marca Separación

DECLARE STARTPAINT.STACK&[]

proc STARTPAINT2

    PARAMETERS DC&

    IF SIZEOF(STARTPAINT.STACK&[])

        ENDPAINT

    ENDIF

    STARTPAINT.STACK&[SIZEOF(STARTPAINT.STACK&[])]=DC&
    STARTPAINT DC&

ENDPROC

proc ENDPAINT2

    IF SIZEOF(STARTPAINT.STACK&[])

        ENDPAINT
        SETSIZE STARTPAINT.STACK&[],SIZEOF(STARTPAINT.STACK&[])-1

        IF SIZEOF(STARTPAINT.STACK&[])

            STARTPAINT STARTPAINT.STACK&[SIZEOF(STARTPAINT.STACK&[])-1]

        ENDIF

    ENDIF

ENDPROC

Das aktuelle StartPaint sin embargo verhindert viele Arbeitsweisen y Möglichkeiten,
vieles va sólo garnicht wenns no stackt.

¿Puede Usted el el FreeProfan no beibringen? Brauchst doch intern sólo una
einzige dynamische Liste o. una Array.

Lo gäbe no una vez Kompatibilitätsprobleme.

20130507-1756-27156.png	14 kB

Hochgeladen:	07.05.2013

Ladeanzahl:
		Descargar

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

07.05.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Und por qué machst Usted no simplemente así:

Kompilieren Marca Separación

cls
mcls 100,100,$FF0000
startpaint %hWnd
line 0,0 - 100,100
endpaint
startpaint -1
line 100,0 - 0,100
endpaint
startpaint %hWnd
mcopybmp 0,0 - 100,100>0,0;-1
endpaint
waitinput
end

Saludo
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

07.05.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Es eigentlich bastante simplemente erklärt.

Su jetziges Principio verbietet quasi, dass uno por ejemplo una Procedimiento
escribir kann, el una Grafik producido wiederum bajo Zurhilfename de StartPaint
oder bajo Zuhilfenahme de otro Procs, el auch StartPaint nutzen.

Schlicht dijo, como uno nichts verschachteln kann, kann el una Grafikprozedur
no en una otro aufbauen.

Kompilieren Marca Separación

cls
mcls 100,100
var bild&=create("HPIC"...
startpaint -1
zeichneStern()
endpaint
startpaint bild&
zeichnestern()
endpaint
end

proc zeichnestern

    var bild&=create("HPIC"...
    startpaint bild&
    zeichne()
    verschwimmeMitSpeicherbild()
    endpaint

ENDPROC

proc verschwimmeMitSpeicherbild

    startpaint -1
    getpixels...
    endpaint
    putpixels...

ENDPROC

Nach Deinem Principio kann y darf uno sólo Prozeduren escribir, el su
ausgehen necesario, dass el Programmierer no ya con StartPaint irgendwo
hin zeigt y verschachtelte Grafikbefehle voluntad komplett unleserlich.

Un Proc de uno Proc ausrufen es sí auch posible, auch si uno natürlich
auch alles así programa podría, dass una Proc niemals una otro Proc
aufruft.

XProfan X2

08.05.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Peter
Max
Müller

[OFFTOPIC]Überschrift vom Thema: StartPaint-Problema(aktik). Ist ahora el erste k falso? antik en lugar de aktik. Oder el zweite? aktiv en lugar de aktik. Aber como Yo que aquí en Jahre mitbekommen habe es el determinado gewollt.

[/OFFTOPIC]