XProfan

Compile Mark Separation

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

Related: windowStyle

and [...]

Dennis
Waldhauser

Erstmal thank you very much.
Related to the Window has worked
Related to the Image wants simply not somehow
Compile Mark Separation

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

instead of loadbmp dragonflower.bmp,0,0,0 Have I your code attempts. Error Message shows it me now nichtmehr on. For this remaining The Page white and it'll only the Logo displayed Y_Y

XProfan 10
WinXp SP3

Dieter
Zornow

show You the image too on ? with Create(hpic...... have you got Yes first a handle for your Image thereafter must You it with DrawPic H, X,Y; n Show and end again deleteobject handle& again destroy.

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

head --> table

Jaaa jetzte white I I forget have ^^

another question
Compile Mark Separation

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,

Do I for each single Image declar having ?
The data base becomes several thousands of Images imply.
there would I Yes years engage X_x

XProfan 10
WinXp SP3

Dieter
Zornow

I go time of it from, that The Images one to the others displayed unf thereafter the Hamdle again destroy becomes. then can you the Whole in a Procedure auslagern and need only 1 Variable
The You aufrufst and again destroy, to this pattern
Compile Mark Separation

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

very, and even if it thousands of Handles need ought to then can it array

s benefit.