XProfan

Kompilieren Markieren Separieren

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

Siehe auch: windowStyle

und [...]

Dennis
Waldhauser

Erstmal vielen dank.
Das mit dem Fenster hat geklappt
Das mit dem Bild will einfach nicht irgendwie
Kompilieren Markieren Separieren

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 ich deinen Code versucht. Fehlermeldung zeigt er mir nun nichtmehr an. Dafür bleibt die Seite weiß und es wird nur das Logo angezeigt Y_Y

XProfan 10
WinXp SP3

Dieter
Zornow

zeigst du das Bild auch an ? Mit Create(hpic...... hast du ja erst ein Handle für dein Bild danach must du es mit DrawPic H, X,Y; N anzeigen und am Ende wieder mit deleteobject handle& wieder 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ß ich was ich vergessen habe ^^

Noch eine Frage
Kompilieren Markieren Separieren

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,1

Muss ich für jedes einzelne Bild declar haben ?
Die Datenbank wird mehrere Tausende bilder beinhalten.
Da wär ich ja Jahre beschäftigt X_x

XProfan 10
WinXp SP3

Dieter
Zornow

ich gehe mal davon aus, dass die Bilder eines nach dem anderen angezeigt unf danach das Hamdle wieder zerstört wird. Dann kannst du das Ganze in eine Procedure auslagern und brauchst nur 1 Variable
die du aufrufst und wieder zerstörst, nach diesem Muster
Kompilieren Markieren Separieren

Proc Bildanzeige

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

endproc

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

Genau, und selbst wenn er tausende Handles benötigen sollte dann kann er array

s nutzen.