Español
Foro

Crear hpic: Como lösche Yo el Grafik vom Schirm?

 

« Dieser Contribución wurde como Solución gekennzeichnet. »

- Página 1 -



Julian
Schmidt
Yo bin No sicher como Si es usted el genau media o. wo genau el problema liegt.
Ein Code con beiliegenden Gráficos sería como ya mehr Aufschluss geben.

Yo versuchs todavía veces.
Hilft dir evtl. el?
KompilierenMarcaSeparación
CLS
Declare bm&, pic&[]
pic&[1]=Create("hNewPic", width(%hwnd)-20, 110, RGB(255,255,255))
pic&[2]=Create("hNewPic", width(%hwnd)-20, 110, RGB(255,255,255))
pic&[3]=Create("hNewPic", width(%hwnd)-20, 110, RGB(255,255,255))
bm&=Create("Bitmap", %hwnd, pic&[1], 10, 10)

Whileloop 3

    StartPaint pic&[&loop]
    UsePen 0,0,0
    UseBrush 4,RGB(255,0,0)
    Rectangle 0,0 - (%BmpX/3)*&loop,110
    EndPaint
    Sendmessage(bm&,$172,0,pic&[&loop])
    Waitinput

EndWhile

end
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
07.01.2014  
 




E.T.
Lauffähiges Ejemplo ??
Aus el 3 Zeilen Gewusel probablemente keiner schlau
 
XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
07.01.2014  
 




Tommy
@ Julian: Besten Dank, genau así quería ich's hacer.... Hab Yo wohl a simplemente vorgestellt.
@ E.T.: Gracias fürs Ansehen. Anbei nochmals el Geschnipsel lauffähig rausgeschnitten:
El Bmp's son igual große Gráficos, el el Fortschrittbalken jeweils en una Drittel größer zeigen. ¿Por qué Yo el Gráficos no übereinander legen kann????
KompilierenMarcaSeparación
Declare eins%,zwei%,drei%,F%
cls
eins%=@Create("hSizedPic", -1, "eins.bmp",128, 20, 1)
zwei%=@Create("hSizedPic", -1, "zwei.bmp",128, 20, 1)
drei%=@Create("hSizedPic", -1, "drei.bmp",128, 20, 1)

while f%<>3

    f%=f%+1
    print f%

    if f%=1:@Create("Bitmap", %hWnd, eins%, 240, 110):DeleteObject eins%:endif

        if f%=2:@Create("Bitmap", %hWnd, zwei%, 240, 110):DeleteObject zwei%:endif

            if f%=3:@Create("Bitmap", %hWnd, drei%, 240, 110):DeleteObject drei%:endif

                SLEEP 1500

            
07.01.2014  
 




Thomas
Freier
Yo sería el Grafik sustituir
KompilierenMarcaSeparación
cls rgb(0,0,255)
MCls 100, 30 ,rgb(255,255,255)
var pic0&=Create("hPic",0,"&MEMBMP" )
MCls 100, 30 ,rgb(0,255,0)
var pic1&=Create("hPic",0,"&MEMBMP" )
MCls 100, 30 ,rgb(255,0,0)
var pic2&=Create("hPic",0,"&MEMBMP" )
MCls 100, 30 ,rgb(155,155,155)
var pic3&=Create("hPic",0,"&MEMBMP" )
var f%=0
var bmp&=Create("Bitmap", %hwnd, pic0&, 20, 20)
inc f%
case f%=1: Sendmessage(Bmp&,$0172,0,Pic1&)
waitinput
inc f%
case f%=2: Sendmessage(Bmp&,$0172,0,Pic2&)
waitinput
inc f%
case f%=3: Sendmessage(Bmp&,$0172,0,Pic3&)
waitinput
f%=0
case f%=0: Sendmessage(Bmp&,$0172,0,Pic0&)
waitinput
DeleteObject bmp&,
pic1&,pic2&,pic3&
 
Gruß Thomas
Windows XP SP2, XProfan X2
07.01.2014  
 




E.T.
Thomas Freier (07.01.14)

Yo sería el Grafik sustituir


Yo sería el Gráficos weglassen y 'nen Fortschrittsbalken nehmen
 
XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
07.01.2014  
 




Julian
Schmidt
E.T. (07.01.14)

Yo sería el Gráficos weglassen y 'nen Fortschrittsbalken nehmen


Wäre auch mein nächster Gedanke gewesen.

Passend dazu Progressbar.inc [...] 
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
07.01.2014  
 




Jörg
Sellmeyer
y yo sería media Code en entsprechende Code-Tags conjunto, Luego se él erstens mejor lesbar y zweitens no "versmileyiet".
Yo hab's veces para dich gemacht.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
08.01.2014  
 




Tommy
Besten Dank a todos! Diese Unterstützung en meiner ersten Anfrage hätte Yo no esperado.
Code-Tags abgeschaut, se así gemacht y el Möglichkeiten el Anzeige hinzukriegen "lade" Yo veces...
 
08.01.2014  
 




p.specht

Hi Landsmann! Viel Spass con X2!
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
13.02.2014  
 




Tommy
¡Hola auch!
Yo bin sí desafortunadamente en Profano todavía Principiante, aber el Lingua liegt me como altem prozeduralen Programmierer. Kann como auch todavía media Spaghetti-Code ausleben y muss no zwingend objektorientiert werkeln. Bin en gute Ratschläge siempre angewiesen y habe en efecto ya tolle Unterstützung en el Foro obtener.
Wünsche auch Usted weiterhin viel Spaß y danke para Su Wünsche!
 
15.02.2014  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

12.097 Views

Untitledvor 0 min.
RudiB.25.08.2022
Langer30.12.2020
Uwe Starke29.11.2018
Tommy11.05.2017
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie