XProfan

Français

allô Roland,

folgendes ist pas possible:

 {$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

Début de peinture ist pas besonders helle,

dabei wäre Abhilfe so simple.

qui Wunsch besteht aussi déjà très longtemps: [...]

et trägt qui Kennzeichnung
"unerledigt".

cet simple Include: [...]

zeigt comment simple une Solution umzusetzen wäre:

Kompilieren Marque Séparation

longs startPaint.stack

proc startPaint2(long dc)

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

endproc

proc endPaint2

    si sizeOf(startPaint.stack)

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

    endif

endproc

Include avec sans xpse (attention, Fingergelenkebruchgefahr!!!)

Kompilieren Marque Séparation

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

cela aktuelle Début de peinture cependant verhindert viele Arbeitsweisen et Opportunités,
vieles allez seulement garnicht wenns pas stackt.

peux Du cela dem FreeProfan pas beibringen? Brauchst doch interne seulement une
einzige dynamische liste bzw. un Array.

Es gäbe pas einmal Kompatibilitätsprobleme.

20130507-1756-27156.png	14 kB

Hochgeladen:	07.05.2013

Downloadcounter:
		Download

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

07.05.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

et pourquoi fais Du es pas simple so:

Kompilieren Marque Séparation

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

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

c'est eigentlich droite simple erklärt.

Dein jetziges Prinzip verbietet quasi, dass on beispielsweise une Procédure
écrivons peux, qui une Grafik erzeugt wiederum sous Zurhilfename de Début de peinture
ou bien sous Zuhilfenahme de anderen Procs, qui aussi Début de peinture nutzen.

Schlicht dit, là on rien verschachteln peux, peux qui une Grafikprozedur
pas sur une autre aufbauen.

Kompilieren Marque Séparation

cls
mcls 100,100
var bild&=create(«PCSI»...
startpaint -1
zeichneStern()
endpaint
startpaint bild&
zeichnestern()
endpaint
end

proc zeichnestern

    var bild&=create(«PCSI»...
    startpaint bild&
    zeichne()
    verschwimmeMitSpeicherbild()
    endpaint

endproc

proc verschwimmeMitSpeicherbild

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

endproc

Pour Deinem Prinzip peux et darf on seulement Prozeduren écrivons, qui en
sortir doit, dass qui Programmierer pas bereits avec Début de peinture irgendwo
hin zeigt et imbriquées Grafikbefehle volonté komplett unleserlich.

une Proc aus einer Proc ausrufen ist oui aussi possible, aussi si on naturellement
aussi alles so programmieren pourrait, dass une Proc niemals une autre Proc
aufruft.

XProfan X2

08.05.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Peter
Max
Müller

[OFFTOPIC]Überschrift vom Thema: Début de peinture-Problem(aktik). Ist maintenant cela erste k faux? antique statt aktik. ou bien cela zweite? aktiv statt aktik. mais so comment je que voici sur qui Jahre mitbekommen habe ist cela bestimmt gewollt.

[/OFFTOPIC]