Fenster neuzeichnen - wie krieg ichs mit?

[Martin_K]

Ich benutze ein Fenster als Druckvorschau, lade einen gescannten JPG-Blanko-Briefbogen als Hintergrund und zeichne dann meine Ausgaben mit Drawtext und Line-Befehlen darüber. Wird mein Vorschaufenster verdeckt oder vom Bildschirmschoner übermalt, ist es natürlich hinüber. Wie bekommt meine Anwendung mit, daß das Fenster nicht mehr ok ist und wie wirds am elegantesten wieder neugezeichnet?

[Frabbing]

Dafür gibt es die Message WM_PAINT. Das System schickt diese Message an dein Fenster, wenn er nötigt ist, es neu zu zeichnen.
In XProfan ist es so, dass das Hauptfenster selbstständig neu gezeichnet wird, was es sonst so bei anderen Programmsprachen nicht gibt. Für das Zeichnen deiner Dialogfenster bist du aber selber verantwortlich.
Eine Methode dazu ist die erwähnte Message WM_PAINT, die du in deiner Messageschleife abfragen kannst. Tritt die Message auf, zeichnest du neu. Dazu findest du in der Hilfe Beispiele.
Eine andere Methode ist ein Static-(Text)-Control mit einem Bild darin, siehe hPic. In das Bild kannst du mit Startpaint, dann z.B. Drawtext Texte und weitere Grafiken einbetten usw. Das Control hat den Vorteil, dass es sich automatisch neu zeichnet, wenn nötig. Diese Technik benutze ich im XProfEd für meine Druckervorschau, schau einfach mal in den Code.

[THFR]

Unter XProfan 11 mache ich es direkt mit Create("hPic",...). Allerdings auf Create("Window",%hwnd,...). Bisher keine Probleme mit einer Überdeckung. Ausschnitt:

PROC Boot_DIALOG
  Parameters b.nr$, b.nam$

  Windowstyle 1024
  b.Dia&= Create("Window",%hwnd,"",b.x%,b.y%,272,324)
  hB4& = @Create("BUTTON",  b.Dia&, "X", 247,282, 14, 14)

  If FileExists(old_file$ + "\\Lib\\DIA.png")
    bmp1&=Create("hPic",-1,old_file$+"\\Lib\\DIA.png")
    b.bmp&=Create("Bitmap", b.Dia&, bmp1&, 0, 0)
  EndIf
  If FileExists(old_file$+"\\Bootsplatz\\"+Boots_Platz$+"\\"+b.nam$+".jpg")
    bmp1&=Create("hSizedPic",-1,old_file$+"\\Bootsplatz\\"+Boots_Platz$+"\\"+b.nam$+".jpg",270 ,200 ,1)
    Create("Bitmap", b.bmp&, bmp1&, 0, 38)
  EndIf
  b.text&=Create("Text",b.dia&,("Nr.: "+b.nr$+" = "+b.nam$),10,282,220,18)
  SetFont b.text&,L_Font&
ENDPROC

[Martin_K]

ich hab das mal ausprobiert:

      Statistik& = @Create("Window", %hWnd, " Warenausgang", (%MaxX-1034), (%MaxY-768)/2, 1024, 768)
      bmp1&=@Create("hPic",-1,"background.jpg")
      bitmap&=@Create("Bitmap",Statistik&,bmp1&,0,0)
      StartPaint bitmap&
      Line 75,65- 659,65

- das geladene JPG wird wunderbar wieder neugezeichnet - nur wir krieg ichs hin, daß ich meine Zeichenfunktionen so durchführe, daß die zusammen mit dem Bild neugezeichnet werden, ohne daß ich mich drum kümmern muß? Ich könnte wahrscheinlich das JPG unsichtbar in den Speicher laden, die Zeichenfunktionen im Speicher durchführen, dann alles als TMP.JPG speichern und die dann auf den Bildschirm bringen. Aber es gibt doch bestimmt eine elegante Lösung...?

[Jac de Lad]

Probiers mal mit Subclassing.

[Bangkok]

Probiers mal ungefähr so, wahrscheinlich musst du "hsizedPic" anstatt "hpic" verwenden

var Statistik& = @Create("Window", %hWnd, " Warenausgang", (%MaxX-1034), (%MaxY-768)/2, 1024, 768)
MCls 1024, 768, 0
     var bmp1&=@Create("hPic",-1,"background.jpg")   
      StartPaint -1
      drawpic bmp1&,0,0;0
      Line 75,65- 659,65
      endpaint
      var tmp& = Create("hpic",0,"&MEMBMP",1024,768)
      var bitmap&=@Create("Bitmap",Statistik&,tmp&,0,0)
      waitinput

[Martin_K]

danke, das wars. So gehts!