English
Forum

Create hpic: How lösche I The graphic of screen?

 

« this Posting watts as Solution marked. »

- Page 1 -



Julian
Schmidt
i'm I do not sure How You the very mean or. where very the trouble lying.
One code with beiliegenden Graphics would there already More Aufschluss give.

I versuchs nevertheless time.
helps you evtl. the?
CompileMarkSeparation
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 [...] 
01/07/14  
 




E.T.
Lauffähiges example ??
from whom 3 Lines Gewusel becomes well none 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...
01/07/14  
 




Tommy
@ Julian: best Thanks, very so wished ich's make.... Have I me well To simply pictured.
@ E.T.: thanks for standing. enclosed over again the Geschnipsel run rausgeschnitten:
The Bmp's are same large Graphics, The whom Fortschrittbalken each for a Drittel larger show. Why I The Graphics not übereinander lay can????
CompileMarkSeparation
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

            
01/07/14  
 




Thomas
Freier
i'd The graphic supplant
CompileMarkSeparation
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
01/07/14  
 




E.T.
Thomas suitor (07.01.14)

i'd The graphic supplant


i'd The Graphics omit and 'nen Fortschrittsbalken take
 
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...
01/07/14  
 




Julian
Schmidt
E.T. (07.01.14)

i'd The Graphics omit and 'nen Fortschrittsbalken take


would be my next thought been.

properly moreover wallpaper.pcu of.inc [...] 
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
01/07/14  
 




Jörg
Sellmeyer
what about me would my code in suitable code-Tags settle, then becomes it in the first rather readable and secondly not "versmileyiet".
I hab's times for you made.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
01/08/14  
 




Tommy
best Thanks all! These Support with of my first inquire had I do not expects.
code-Tags abgeschaut, becomes so made and the Opportunities The display hinzukriegen "lade" I me time...
 
01/08/14  
 




p.specht

Hi countryman! plenty joke with X2!
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
02/13/14  
 




Tommy
Hello too!
i'm Yes unfortunately in Profan yet Beginner, but the Language lying me as old prozeduralen Programmer. can there too yet my spaghettis-code ausleben and must not coercive object-oriented werkeln. be on good suggestions always dependent and I indeed already crazy Support in the Forum receive.
Opportunities too you furthermore plenty Fun and thanks for your Opportunities!
 
02/15/14  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

12.213 Views

Untitledvor 0 min.
RudiB.08/25/22
Langer12/30/20
Uwe Starke11/29/18
Tommy05/11/17
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie