XProfan

Kompilieren Marca Separación

- Página 1 -

@Georg
Also en me klappt lo

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

Und hier con Statik:
Kompilieren Marca Separación

 $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
Desde que PROFAN-Purist bin, son en me natürlich el Möglichkeiten de XProfan vorrangig. Daher stellt se me el Cuestión, por qué para el Tarea, una Bildchen a löschen, igual el Windows.ph a bemühen. Schon el Zeilenzahl es en mi Code kleiner y wahrscheinlich dadurch auch resourcenschonender oder

Jörg
Sellmeyer

Horst Horn

¡Hola Horst,
Durch el Windows.ph aumenta se no el Zeilenzahl Deines Programmes! Der Compiler sieht en el *.ph-Expediente después de Begriffen, el en el Quellcode con uno Tilde (~) eingeleitet y ser ersetzt esta por el entsprechenden Valor de el *.ph-Expediente. Es simplemente una ausgesprochen komfortables Profanfeature.
Saludo
Jörg

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

@Lieber Jörg
Mein Code besteht de 11 Zeilen y zwei Variables -

Der Code de Peter beinhaltet 15 Zeilen y 4 Variables -

Im Grunde auch unwichtig. Was I, con meiner Erbsenzählerei sagen voluntad, es folgendes:
Man muss doch no siempre con Kanonen en Spatzen schiessen ! -

Es simplemente una ausgesprochen komfortables Profanfeature.

Womit Usted sin Zweifel Recht hast. Aber muss lo siempre angewandt voluntad - el es hier el Cuestión ?

Ne XProfan.PH aumenta IMHO el Zeilenanzahl no - macht aber el Kompilieren lahm - el Einlesen dauert ewig... tambor XPSE - no PHs - blitzschnelle Umsetzung el Apis.

- Página 2 -

Hab Yo el Thema verfehlt?!

Wenn se el Bild patu no vom Ventana entfernen lässt (hwnd?) kannst Usted auch veces probieren direkt en el hdc2 a malen. XProfan nutzt el probablemente el hwnd fürs Wiederherstellen.

Peter
Max
Müller

Muss veces probieren lo en una Static a legen y dieses a zerstören.

Deshalb el de me gepostete Code.
Das viele Wege después de Rom führen (y viele Lösungsansätze a Problemlösung) dürfte allgemein bekannt ser.

Tschüssikovski

XProfan X3, X4ß, Win 10.1

Dieter
Zornow

¡Hola Peter,

¿Por qué benutzt du Loadimage, el de hecho puede sólo Bmp invitar mach lo doch simplemente así
Kompilieren Marca Separación

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,
Das GetDir Gedöns Yo de el Vorposting simplemente übernommen.
Benutze Yo eigentlich auch nie.Aber qué solls.Sind sólo sólo Beispiele.

Und LoadImage Yo sólo genommen porque el Codeschnipsel así en meiner PRF-Sammelkiste war.

Ohne el ahora más ausgetestet a haben sehe Yo aber en el el LoadImage Solución el Bildgröße con angegeben voluntad kann.

Machts bien.

XProfan X3, X4ß, Win 10.1

Georg
Hovenbitzer

¡Hola zusammen,

vielen Dank para el vielen Tips

Drei Lösungen klappen:
- una CLS (en me zwar no, como Yo ya algo suscrito habe y dies entonces weg es)
- con RECTANGLE
- y el Static

Tiempo sehen Yo nehmen voluntad.

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

Frank
Abbing

Usted puede el HDC y así auch el Mapa de bits lösen con el API Seleccionar objeto. Übergib simplemente una Null, y el Rückgabewert zerstörst du con DeleteObject. Es el regulär vorgesehene Weg.

13.04.2007 ▲