XProfan

Proc test

    Declarar h1&, h2&
    h1& = bild("Text",32,32,RGB(0,0,255),RGB(255,0,0))
    h2& = bild("Txt2",48,48,RGB(0,255,0),RGB(0,0,255))
    Volver Str$(h1&)+"_"+Str$(h2&)

ENDPROC

Proc bild

    Parámetros texto$, x&, y&, color&, bg&
    MCLS x&, y&
    StartPaint -1
    CLS bg&
    Color del texto color&,-1
    DrawText 1,1,texto$;-1
    EndPaint
    Volver Crear("HPIC",0,"& MEMBMP")

ENDPROC

CLS
Declarar test$, pic1&, pic2&
test$ = test()
pic1& = Val(Substr$(test$,1,"_"))
pic2& = Val(Substr$(test$,2,"_"))
DrawPic pic1&,0,0;0
DrawPic pic2&,0,32;0
WaitInput
DeleteObject pic1&
DeleteObject pic2&