XProfan

Italia

Hallo Roland,

folgendes ist nicht possibile:

 {$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 ist nicht besonders helle,

dabei wäre Abhilfe so einfach.

Der Wunsch besteht auch schon sehr lange: [...]

und trägt die Kennzeichnung
"unerledigt".

Diese einfache Include: [...]

zeigt wie einfach eine Lösung umzusetzen wäre:

Kompilieren Markieren Separieren

longs startPaint.stack

proc startPaint2(long dc)

    case 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
        case sizeOf(startPaint.stack) : startpaint startPaint.stack[sizeOf(startPaint.stack)-1]

    endif

endproc

Include mit ohne xpse (achtung, Fingergelenkebruchgefahr!!!)

Kompilieren Markieren Separieren

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 jedoch verhindert viele Arbeitsweisen und Möglichkeiten,
vieles geht erst garnicht wenns nicht stackt.

Kannst Du das dem FreeProfan nicht beibringen? Brauchst doch intern nur eine
einzige dynamische Liste bzw. ein Array.

Es gäbe nicht 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 Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Und warum machst Du es nicht einfach so:

Kompilieren Markieren Separieren

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

Saluto
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 Citazione Zeilenweise Citazione

Das ist eigentlich recht einfach erklärt.

Dein jetziges Prinzip verbietet quasi, dass man beispielsweise eine Prozedur
schreiben kann, die eine Grafik erzeugt wiederum unter Zurhilfename von StartPaint
oder unter Zuhilfenahme von anderen Procs, die auch StartPaint nutzen.

Schlicht gesagt, da man nichts verschachteln kann, kann die eine Grafikprozedur
nicht auf eine andere aufbauen.

Kompilieren Markieren Separieren

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 Prinzip kann und darf man nur Prozeduren schreiben, die davon
ausgehen müssen, dass der Programmierer nicht bereits mit StartPaint irgendwo
hin zeigt und verschachtelte Grafikbefehle werden komplett unleserlich.

Eine Proc aus einer Proc ausrufen ist ja auch possibile, auch wenn man naturalmente
auch alles so programmieren potuto, dass eine Proc niemals eine andere Proc
aufruft.

XProfan X2

08.05.2013 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Peter
Max
Müller

[OFFTOPIC]Überschrift vom Thema: StartPaint-Problem(aktik). Ist jetzt das erste k falsch? antik statt aktik. Oder das zweite? aktiv statt aktik. Aber so wie ich das hier circa die Jahre mitbekommen habe ist das bestimmt gewollt.

[/OFFTOPIC]