Bildausschnitt copieren

[profanfan]

var hWin& = @Create("text", %hWnd, "", 10, 10, 150,150)
var hWin1& = @Create("text", %hWnd, "", 200, 10, 350,420)

Ich habe diesen beiden Fenster.
Nun möchte ich von hwin& eine Bildausschnitt nach hwin1& copieren mit einer bestimmten Transparentfarbe.

Wie geht dieses copieren von einem Handle ins andere?

mfg

[Jac de Lad]

Mittels DrawPic:

StartPaint Zielhandle&
DrawPic ...
EndPaint

Gib mal in deiner Signatur deine XProfan-Version an.

[Frabbing]

Als API käme auch BitBlt() in Frage, oder MaskBlt().

[profanfan]

XProfan 11.1 habe ich.


das wollte ich vermeiden:
Als API käme auch BitBlt() in Frage, oder MaskBlt().


möchte es irgendwie mit dem Profan-Befehl machen.

[profanfan]

Wie bekomme ich das Auto(hwin&) in hwin1& mit DrawPic ?

Declare xpos&, ypos&

Window 20,20-800,600

var hWin& = @Create("auto", %hWnd, "", 0, 0, 150,150)
var hWin1& = @Create("eisbaer", %hWnd, "", 200, 10, 350,420)

  xpos&=100
  ypos&=100
  
  
  startpaint hWin1&
    loadbmp "eisbaer.bmp",10,10,0
  endpaint

  startpaint hWin&
    loadbmp "auto.bmp",10,10,0
  endpaint

  startpaint ....
    .....
  endpaint
  
Waitinput 

End

[Rolf Koch]

Sorry, aber hier hast Du aber irgendwas falsch verstanden:

var hWin& = @Create("auto", %hWnd, "", 0, 0, 150,150)
var hWin1& = @Create("eisbaer", %hWnd, "", 200, 10, 350,420)

Dort wo Du "Auto" oder "EISBÄR" schreibst, muss ein Bezeichner hin wie:
Edit, Text, Multiedit, Button .... u.s.w.
Aber was soll das für ein Ojbekt sein, welches Auto lautet? Woher soll das denn Windows wissen, was Du damit meinst ?
Nebenbei noch das @ vor Create ist veraltet und lass es einfach weg, denn wie ich sehe nutzt Du var und somit einer neuere Version.


Und jetzt kommt das lustigste.
@Roland, warum wird das nicht angemeckert? Bei mir wird zwar nix erstellt, aber im Interpreter sagt mir XProfan nix *lol*

[profanfan]

"Auto" und "Eisbaer" gehört nach hinten, vorher muss natürlich "Text" rein.

Hatte mich verschrieben.

Aber wie bekomme ich mit drawpic das Auto nach Eisbaer.?

[Jac de Lad]

Nein, nicht "text" sondern "hPic". Lies die Hilfe!

[profanfan]

Ein andere Test:

$H Windows.ph

declare bild1$

Window 20,20-800,600

var hWin& = Create("hpic", %hWnd, "Test0", 10, 10, 128,128)
var hWin1& = Create("hpic", %hWnd, "Test1", 250, 20, 500,500)
var hWin2& = Create("hpic", %hWnd, "Test2", 30, 150, 200,200)


var bild_h& = Create("hPic", -1,"auto.bmp")

startpaint hwin2&
  drawpic bild_h&,0,0,0
endpaint

waitkey
end

Damit kommt die Meldung : Bitmap nicht ladbar in "Test0", hpic ist drin.
Wenn ich "Text" reinsetze geht es....hmmm.


Noch etwas anderes:
Wenn ich das Bild an Pos 0,0 reinsetze mit drawpic, sitzt es auch an Pos 0,0 im Fenster "Test2".
Gebe ich als Pos 300,300 ein zb müsste das Bild ja im Fenster "Test2" nicht zu sehen sein, es wird aber sichtbar im grossen Windows-Fenster 800x600.

Die 0,0 Pos geht , aber darüberhinaus nicht. Auch wenn ich das Fenster "Test2" auf 200,200 schiebe ist das Bild an Pos 0,0 in der neuen Verschiebung, also richtig. Die linke Pos funktioniert.

[Andreas Miethe]

Beispiel :

$H Windows.ph
$H Messages.ph

Window 20,20-800,600

var hWin& = @Create("Window", %hWnd, "auto", 0, 0, 150,150)
var hWin1& = @Create("Window", %hWnd, "eisbaer", 200, 10, 350,420)

'Bitmap-Anzeige-Corntrols 
Var Bitmap& = Create("Bitmap", hWin1&, Create("hPic",-1,"eisbaer.bmp"), 10,10)'die Bitmaps müssen vorhanden sein
Var Bitmap1& = Create("Bitmap", hWin&, Create("hPic",-1,"auto.bmp"), 10,10)
 
'Die Handles ( Zugriffsnummern ) der Bitmaps ermitteln
Var Bitmap1Pic& = SendMessage(Bitmap1&,~STM_GETIMAGE,~IMAGE_BITMAP,0)
Var BitmapPic& = SendMessage(Bitmap&,~STM_GETIMAGE,~IMAGE_BITMAP,0)

Waitinput

'Umleiten auf Bitmap-Pic
StartPaint BitmapPic&
   'Pic1 auf Pic transparent kopieren
   DrawPic Bitmap1pic&,0,0;-1 
EndPaint
'Update vom Anzeige-Control
SendMessage(Bitmap&,~STM_SETIMAGE,~IMAGE_BITMAP,BitmapPic&)

Waitinput 

End

[profanfan]

Danke, sieht sehr gut aus.
jetzt erscheinen auch 2 verschiedene unabhängige Fenster. konnte ich auch noch nicht.


mfg