XProfan

English

Hello Roland,

the following isn't 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

StartPaint isn't particularly helle,

thereby would remedy so simply.

The wish exists already very long: [...]

and carry The Kennzeichnung
"unerledigt".

These simple Include: [...]

shows How simply a Solution umzusetzen would:

Compile Mark Separation

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 with without xpse (deference, Fingergelenkebruchgefahr!!!)

Compile Mark Separation

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

the actually StartPaint however prevented many workings and Opportunities,
much goes first not at all ifs not stackt.

can You, the the FreeProfan not procure? need still intern only a
only dynamic list or. one aray.

it were not even Kompatibilitätsprobleme.

20130507-1756-27156.png	14 kB

Hochgeladen:	05/07/13

Downloadcounter:
		Download

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

05/07/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

and Why make You not simply so:

Compile Mark Separation

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

Greeting
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

05/07/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

this is really right simply declared.

your jetziges principle forbid quasi, that one in example a procedure
write can, a graphic created against under Zurhilfename of StartPaint
or under Zuhilfenahme of others Procs, also StartPaint benefit.

crept said, there one nothing nest can, can a Grafikprozedur
not another set up.

Compile Mark Separation

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&
    draw()
    verschwimmeMitSpeicherbild()
    endpaint

endproc

proc verschwimmeMitSpeicherbild

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

endproc

After Your principle can and may one only Procedures write, The of it
go out must, that the Programmer not already with StartPaint somewhere
there shows and nested Grafikbefehle go complete unleserlich.

an Proc a Proc page is indeed possible, even if one naturally
too everything so program could, that a Proc never another Proc
aufruft.

XProfan X2

05/08/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Peter
Max
Müller

[OFFTOPIC]Headline of Topic: StartPaint-trouble(aktik). is now the first k wrong? antique instead of aktik. or the second? active instead of aktik. but so How I that here over The years come along have is the certainly pseudo.

[/OFFTOPIC]