XProfan

Kompilieren Marca Separación

var h&=Create(hPic,-1,dragonflower1.jpg)

Siehe auch: windowStyle

y [...]

Dennis
Waldhauser

Erstmal vielen dank.
Relacionado con la Ventana ha geklappt
Relacionado con la Bild voluntad simplemente no irgendwie
Kompilieren Marca Separación

declare ende%
 $I Regeln.inc
Windowstyle 10
window 0,0-1024,819
Windowtitle Magic Datenbank 0.1 Alpha
loadbmp dragonflower.bmp,0,0,0
loadbmp logo.bmp,450,350,1
PopUp Programm
Appendmenu 201,Edition
Appendmenu 202,Magic-Minispiel
Appendmenu 110,Ende
Separator
Appendmenu 203,Suche
PopUp Regeln
Appendmenu 205,Spielregeln
Popup Über
Appendmenu 206,Magic-The Gathering
Appendmenu 207,Magic DB
let ende%=0

while ende%=0

    waitinput

    if @menuitem(205)

        Spielregeln

    endif

    if @menuitem(110)

        let ende%=1

    endif

endwhile

end

Anstatt loadbmp dragonflower.bmp,0,0,0 tener Yo deinen Code intenta. Fehlermeldung zeigt él me nun nichtmehr a. Dafür restos la página weiß y lo se sólo el Logo adecuado Y_Y

XProfan 10
WinXp SP3

Dieter
Zornow

zeigst Si es usted el Bild auch a ? Mit Crear(hpic...... hast du sí sólo una Handle para dein Bild danach must du lo con DrawPic H, X,Y; N Mostrar y al Ende otra vez con deleteobject handle& otra vez zerstören.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Dennis
Waldhauser

Kopf --> Tisch

Jaaa jetzte weiß Yo Yo vergessen habe ^ ^

Noch una Cuestión
Kompilieren Marca Separación

declare ende% , bild1&
 $I Regeln.inc
Windowstyle 10
window 0,0-1024,819
Windowtitle Magic Datenbank 0.1 Alpha
bild1& = @Create(HPic, -1, dragonflower1.jpg)
DrawPic bild1&, 0, 0; 0
DeleteObject bild1&
loadbmp logo.bmp,450,350,

Muss Yo para cada einzelne Bild declar haben ?
El Datenbank se mehrere Tausende bilder beinhalten.
Como wär Yo sí Jahre beschäftigt X_x

XProfan 10
WinXp SP3

Dieter
Zornow

Yo gehe veces su de, dass el Bilder uno después de el otro adecuado unf danach el Hamdle destruido se. Dann kannst Si es usted el Ganze en un Procedure auslagern y necesidad sólo 1 Variable
el du aufrufst y otra vez zerstörst, después de diesem Muster
Kompilieren Marca Separación

Proc Bildanzeige

    parameters bild$
    case bild1&:DeleteObject bild1&
    bild1& = @Create(HPic, -1, bild$)
    DrawPic bild1&, 0, 0; 0

end

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Exactamente, y incluso si él tausende Handles benötigen debería entonces kann él array

s nutzen.