| |
| |
|
Rolf
Leinung | ¡Hola,
Yo una Problema con el lighten uno Bildes...
KompilierenMarcaSeparación
proc hellmacher
declare hdc1&,array1&,array2&
hdc1&=CreateExtBmp(%hdc,800,600)
CopyExtBmp(hdc1&,0,0,800,600,%Hdc,0,0,0)
array1&=InitExtFX(hdc1&)
WhileLoop 140
lighten(%HDC,0,0,array1&,2)
EndWhile
endproc
proc dunkelmacher
declare hdc1&,array1&,array2&
hdc1&=CreateExtBmp(%hdc,800,600)
CopyExtBmp(hdc1&,0,0,800,600,%Hdc,0,0,0)
array1&=InitExtFX(hdc1&)
WhileLoop 140
darken(%HDC,0,0,array1&,2)
EndWhile
endProc
LoadBmp bild.bmp,0,0,0
dunkelmacher
sleep 3000
hellmacher
Relacionado con la dunklen hacer klappt bien.
Nun möchte Yo el Gleiche Bild otra vez aufhellen. Mit lighten klappt el por desgracia, no
como Yo el gemacht habe. Kann me como alguien Ratschlag geben?
Freundliche Grüße,
Rolf |
|
| |
| |
| |
|
|
Frank
Abbing | Hab grad getestet, se ejecuta doch perfekt. Lädt dein Prog el Dll tal vez no?
Und Por favor, sólo lauffähige Codes testen! [web]https://XProfan.com/hilfe/textb/minimalbeispiel/[/web] |
|
| |
| |
| |
|
|
Rolf
Leinung | El Dll se geladen. Sonst sería lo sí no abdunkeln.
Das abdunkeln funktioniert en efecto. Aber el aufhellen no. Der Bildschirm se zwar aufgehellt, a él weiß es, aber el Bild no es eingefadet.
Freundliche Grüße,
Rolf |
|
| |
| |
| |
|
|
Rolf
Leinung | okay, hier otra vez como ganzer qc.
KompilierenMarcaSeparacióndeclare neu&
$I prospeed_Funktionen.inc
neu&=usedll(dll/ProSpeed.dll)
@Set(TrueColor, 1)
Window 0,0-800,600
proc hellmacher
declare hdc1&,array1&,array2&
hdc1&=CreateExtBmp(%hdc,800,600)
CopyExtBmp(hdc1&,0,0,800,600,%Hdc,0,0,0)
array1&=InitExtFX(hdc1&)
WhileLoop 140
lighten(%HDC,0,0,array1&,2)
EndWhile
endproc
proc dunkelmacher
declare hdc1&,array1&,array2&
hdc1&=CreateExtBmp(%hdc,800,600)
CopyExtBmp(hdc1&,0,0,800,600,%Hdc,0,0,0)
array1&=InitExtFX(hdc1&)
WhileLoop 140
darken(%HDC,0,0,array1&,2)
EndWhile
endProc
loadbmp grafik/bild.bmp, 0, 0;0
dunkelmacher
sleep 3000
hellmacher
sleep 3000
end
|
|
| |
| |
| |
|
|
Frank
Abbing | El Función macht en deinem Code, qué ellos se. Usted verdunkelst el Bildschirn a uno schwarzen Fläche y machst ihn entonces otra vez heller a él blanco es. Während dieser Tiempo voluntad deine Bilddaten natürlich kontinuierlich geändert, sodass el Ausgangsbild längst perdido es. Lighten() macht el Bild siempre heller, y en uno schwarzen Ausgangsfläche se lo somit blanco!
Wenn du el dunkle Fläche otra vez a una Bild aufhellen willst, musst du AlphaTrans() oder SemiTrans() uso. In el Anleitung findest du Beispiele dazu.
Und Por favor, Sourcecode aquí en Codetags conjunto! So, sólo sin Leerzeichen:
[ code] Hier es Quellcode [ /code]
KompilierenMarcaSeparaciónfxhandle1&=LoadExtBmp(0,%hdc) Handle 1: leere Bitmap erzeugen
name$=Bild.bmp
fxhandle2&=LoadExtBmp(addr(name$),%hdc) Handle 2: Bild laden, z.B. 640x480 groß
CopyExtBmp(fxhandle1&,0,0,640,480,%HDC,0,0,0) Inhalt des Profanfensters nach Handle 1
bytearray1&=InitExtFX(fxhandle1&) Byte-Array zu Handle 1 erzeugen
bytearray2&=InitExtFX(fxhandle2&) Byte-Array zu Handle 2 erzeugen
WhileLoop 100
SemiTrans(%HDC,0,0,bytearray2&,bytearray1&,&loop) Das Bild wird in 100 Schritten in die
Wend Hintergrundgrafik eingeblendet
FreeExtFX(bytearray1&) Byte-Array 1 wieder freigeben
FreeExtFX(bytearray2&) Byte-Array 2 wieder freigeben
FreeExtBmp(fxhandle1&) Handle 1 wieder freigeben
FreeExtBmp(fxhandle2&) Handle 2 wieder eben
|
|
| |
| |
| |
|
|
Rolf
Leinung | Gracias para el rasche Antwort.
kann lo ser el se como irgendwo todavía una Fehler befindet?
KompilierenMarcaSeparacióndeclare fxhandle1&, name$,bytearray1&, fxhandle2&,bytearray2&, neu&
$I incprospeed_Funktionen.inc
neu&=usedll(dll/ProSpeed.dll)
@Set(TrueColor, 1)
Window 0,0-800,600
fxhandle1&=LoadExtBmp(0,%hdc)Handle 1: leere Bitmap erzeugen
name$=bild.bmp
fxhandle2&=LoadExtBmp(addr(name$),%hdc)Handle 2: Bild laden, z.B. 640x480 groß
CopyExtBmp(fxhandle1&,0,0,640,480,%HDC,0,0,0)Inhalt des Profanfensters nach Handle 1
bytearray1&=InitExtFX(fxhandle1&)Byte-Array zu Handle 1 erzeugen
bytearray2&=InitExtFX(fxhandle2&)Byte-Array zu Handle 2 erzeugen
WhileLoop 100
SemiTrans(%HDC,0,0,bytearray2&,bytearray1&,&loop)Das Bild wird in 100 Schritten in die
EndWhile Hintergrundgrafik eingeblendet
FreeExtFX(bytearray1&)Byte-Array 1 wieder freigeben
FreeExtFX(bytearray2&)Byte-Array 2 wieder freigeben
FreeExtBmp(fxhandle1&)Handle 1 wieder freigeben
FreeExtBmp(fxhandle2&)Handle 2 wieder | 21.02.2008 ▲ | |
|
| |
|
|
Rolf
Leinung | Su Fehler steckt en dieser Línea:
fxhandle1&=LoadExtBmp(0,%hdc)Handle 1: vacío Mapa de bits erzeugen
> Un vacío Mapa de bits erzeugst du aber con CreateExtBmp().
¡Hola Franco,
Mein Fehler es en Deiner Prospeed-Anleitung genau así a SemiTrans 
Tal vez en una Actualización veces adaptar, eh como todavía mehr drüber stolpern, el ähnlich wenig Idea haben Yo 
Freundliche Grüße,
Rolf |
|
| |
| |
| |
|
|
 | @Rolf: Lo wäre más que höflich si Su Postings überarbeitest y el Code-Tag como de Franco ya erklärt korrekt anwendest. Wenn lo todos schaffen Será mejor que te va con usted auch klappen.
Mfg, Chuck Norris. (Achte media RoundHouseKick welcher Usted pulverisiert por el mieseste en el Erde existierende Kanalisation jagen kann en el Usted verteilt Su übriges Dasein fristen würdest!  ) |
|
| |
| |
| |
|
|
Frank
Abbing |
Mein Fehler es en Deiner Prospeed-Anleitung genau así a SemiTrans
Tal vez en una Actualización veces adaptar, eh como todavía mehr drüber stolpern, el ähnlich wenig Idea haben Yo
Ah ahora sí.
Yo war fälschlicherweise de LoadExtImage() ausgegangen... LoadExtBmp() darf como ersten Parámetro una Null beinhalten. In el Fall entspricht el Grösse el neuen Mapa de bits el el maximalen Größe des aktuellen Bildschirms (%maxx, %maxy). El Größe el otro Mapa de bits aber beträgt una otro y por lo tanto kracht lo.
Yo voluntad mi Ayuda dahingehen ändern, danke! Bin sí sowieso con Versión 3.0 el ProSpeed beschäftigt. |
|
| |
| |
| |
|
(1.113)
Deutsch
English
Français
Español
Italia