XProfan

Kompilieren Marque Séparation

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

Siehe aussi: windowStyle

et [...]

Dennis
Waldhauser

Erstmal merci bien.
Relatif à la la fenêtre hat geklappt
Relatif à la Bild veux simple pas irgendwie
Kompilieren Marque Séparation

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 hab je deinen Code versucht. Fehlermeldung zeigt il mir eh bien nichtmehr à. Pour cette bleibt qui page sais et es wird seulement cela Logo angezeigt Y_Y

XProfan 10
WinXp SP3

Dieter
Zornow

zeigst du cela Bild aussi à ? avec Créer(hpic...... la hâte du oui seulement un Handle pour dein Bild après must du es avec DrawPic H, X,Y; N Montrer et am Ende wieder avec deleteobject handle& wieder anéantir.

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

tête --> Tisch

Jaaa jetzte sais je quoi J'ai oublié habe ^ ^

encore une Frage
Kompilieren Marque Séparation

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 je pour chaque einzelne Bild declar avons ?
qui banque de données wird plusieurs Tausende bilder beinhalten.
là wär je oui Jahre beschäftigt X_x

XProfan 10
WinXp SP3

Dieter
Zornow

je vais la fois en aus, dass qui Bilder eines pour dem anderen angezeigt unf après cela Hamdle wieder détruit wird. ensuite peux du cela Ganze dans un Procedure auslagern et brauchst seulement 1 Variable
qui du aufrufst et wieder zerstörst, pour diesem Muster
Kompilieren Marque Séparation

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

oui c'est ca, et selbst si il tausende Handles besoin sollte ensuite peux il array

s nutzen.