| |
|
|
| Hallo Frank,
wie wäre es denn noch mit einer Funktion die es ermöglicht ein GIF, JPG, BMP, WMF bild einfach so auf dem Bildschirm anzeigen zu lassen! wie es der von profan bekannte loadbmp befehl tut?
ich habe mir dazu eine prozedur geschrieben:
proc loadpic parameters file$, posx%, posy%, copymode% declare ExternHDC&, x&, y& ExternHDC&=LoadExtImage(Addr(file$)) x&=GetBmpWidth(ExternHDC&) y&=GetBmpHeight(ExternHDC&) CopyExtBmp(%hdc,posx%,posy%,x&,y&,ExternHDC&,0,0,0) FreeExtBmp(ExternHDC&) endproc
weißt nicht ob das auch besser ginge!
Sascha |
|
|
| |
|
|
|
| Hallo Sascha,
ist doch schon arg kurz, deine Prozedur. Ehrlich gesagt halte ich es nicht für sinnvoll, noch eine Extra Funktion hierfür einzubauen.
Allerdings solltest du noch folgende Zeile einbauen (direkt unter dem anderen CopyExtBmp()):
CopyExtBmp(%hdc2,posx%,posy%,x&,y&,ExternHDC&,0,0,0)
Damit wird das Bild auch in Profans Bildschirmkopie kopiert. Wenn jetzt das Hauptfenster mal verdeckt wurde, restauriert Profan dein Hintergrundsbild auch wieder automatisch.
Gruß, Frank |
|
|
| |
|
|
|
| ja das ist schon recht kurz aber die von mir geschrieben proc ist langsamer als z.b. der loadbmp befehler von profan! kann das sein?
danke die zeile werde ich noch einbauen! |
|
|
| |
|
|
|
| Hallo,
keine Ahnung, teste es doch aus.
StartWatch() ... Print ReadWatch() Anzahl Millisekunden die ... gedauert hat
Gruß, Frank |
|
|
| |
|
|
|
| naja ok du hast recht das sind nur minimal wenige millisekunden mehr! außerdem sind das ja gif und jpg files! die kann profan sowieso nicht lesen!
ist ok frank ich verwende meine proc! |
|
|
| |
|
|