XProfan

Kompilieren Marque Séparation

- page 1 -

@Georg
alors chez mir klappt es

Declare bild&,pfad$
pfad$=GETDIR$(@)
bild&=Create(hPic,-1,pfad$+\test.bmp) Dein Bild einsetzen
CLS RGB(255,255,0)
DrawSizedPic bild&, 50,50-150,150;0
WAITINPUT
USEBRUSH 1,RGB(255,255,0)
USEPEN 0,1,RGB(255,255,0)
RECTANGLE 50,50-200,200
WAITINPUT

Peter
Max
Müller

et ici avec Statik:
Kompilieren Marque Séparation

 $H WINDOWS.PH
DEF LoadImage(6)         ! USER32,LoadImageA
Declare bild&,pfad$,image$,bmpstat&
Pfad$=GETDIR$(@)
Image$=Create(hPic,-1,pfad$+\test.bmp)Dein Bild einsetzen
CLS RGB(255,255,0)
BmpStat& = Control(STATIC,,$5400130E,50,50,150,150,%hwnd,0,%hinstance,$0)
Bild& = ~LoadImage(0,Addr(Image$),~IMAGE_BITMAP,150,150,~LR_LOADFROMFILE)
SendMessage(BmpStat&,~STM_SETIMAGE,~IMAGE_BITMAP,BILD&)
WAITINPUT
ShowWindow(BmpStat&,0)
WAITINPUT
ShowWindow(BmpStat&,1)
WAITINPUT

XProfan X3, X4ß, Win 10.1

@Peter
là je PROFANE-Purist suis, sommes chez mir naturellement qui Opportunités de XProfan vorrangig. Daher stellt sich mir qui Frage, pourquoi pour qui devoir, un Bildchen trop effacer, juste qui Windows.ph trop bemühen. déjà qui Zeilenzahl ist chez meinem Code kleiner et wahrscheinlich dadurch aussi resourcenschonender ou bien

Jörg
Sellmeyer

Horst Horn

allô Horst,
par qui Windows.ph augmenté sich pas qui Zeilenzahl Deines Programmes! qui Compiler sieht dans qui *.ph-Dossier pour Begriffen, qui im Quellcode avec einer Tilde (~) eingeleitet volonté et ersetzt cet par den entsprechenden Wert aus qui *.ph-Dossier. c'est simple un ausgesprochen komfortables Profanfeature.
Salut
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

@Lieber Jörg
mon Code besteht aus 11 Zeilen et deux Variablen -

qui Code de Peter beinhaltet 15 Zeilen et 4 Variablen -

Im Grunde aussi unwichtig. quoi je avec meiner Erbsenzählerei dire veux, ist folgendes:
on muss doch pas toujours avec Kanonen sur Spatzen schiessen ! -

c'est simple un ausgesprochen komfortables Profanfeature.

Womit Du sans Zweifel droite la hâte. mais muss es toujours angewandt volonté - c'est ici qui Frage ?

Ne XProfan.PH augmenté IMHO qui Zeilenanzahl pas - pouvoir mais cela Kompilieren paralysé - cela Einlesen dauert ewig... tambour XPSE - aucun PHs - blitzschnelle Umsetzung qui Apis.

- page 2 -

Hab je cela Thema verfehlt?!

si sich cela Bild patu pas vom la fenêtre entfernen peut (hwnd?) peux Du aussi la fois essayer direct sur dem hdc2 trop malen. XProfan utilise den wohl beim hwnd pour Wiederherstellen.

Peter
Max
Müller

Muss la fois essayer es sur un Static trop poser et cet trop anéantir.

c'est pourquoi qui de mir gepostete Code.
cela viele Wege pour Rom mener (et viele Lösungsansätze zur Problemlösung) pourrait allgemein bekannt son.

Tschüssikovski

XProfan X3, X4ß, Win 10.1

Dieter
Zornow

allô Peter,

pourquoi benutzt du Loadimage, cela peux oui seulement Bmp magasin mach es doch simple so
Kompilieren Marque Séparation

Declare bild&,bmpstat&
 $H Windows.ph
CLS RGB(255,255,0)
bild&=Create(hPic,-1,dein bild)Dein Bild einsetzen
BmpStat& = Control(STATIC,,$5400130E,50,50,150,150,%hwnd,0,%hinstance,$0)
SendMessage(BmpStat&,~STM_SETIMAGE,~IMAGE_BITMAP,BILD&)
WAITINPUT
ShowWindow(BmpStat&,0)
WAITINPUT
ShowWindow(BmpStat&,1)
WAITINPUT

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Peter
Max
Müller

Nabend,
cela GETDIR Gedöns habe je aus dem Vorposting simple übernommen.
Benutze je eigentlich aussi nie.mais quoi solls.sommes arrêt seulement Beispiele.

et LoadImage habe je seulement pris weil qui Codeschnipsel so dans meiner PRF-Sammelkiste était.

sans cela maintenant plus ausgetestet trop avons vois je mais cela chez qui LoadImage Solution qui Bildgröße avec angegeben volonté peux.

Machts bien.

XProfan X3, X4ß, Win 10.1

Georg
Hovenbitzer

allô zusammen,

vielen Dank pour qui vielen Tips

trois Lösungen marcher:
- un CLS (chez mir zwar pas, là je déjà quelque chose gezeichnet habe et ca ensuite weg ist)
- avec RECTANGLE
- et dem Static

la fois voyons quoi je prendre werde.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

Frank
Abbing

tu peux den HDC et avec cela aussi qui Bitmap lösen avec qui API SelectObject. Übergib simple une zéro, et den Rückgabewert zerstörst du avec DeleteObject. c'est qui regulär vorgesehene Weg.

13.04.2007 ▲