Hauptfenster neu zeichnen

[Jürgen Baier]

Hallo!

Komme im Moment nicht weiter...
Habe eine Subproc laufen, die den Hauptbildschirm bei bedarf neu zeichnen soll:

SubClassProc
If SubClassMessage(%hwnd,~WM_PAINT)
 ~InvalidateRect(%hWnd,0,0)
 ~UpdateWindow(%hWnd)
EndIf
EndProc
'
SubClass %hWnd,1 ' SubClassing des Hauptfensters einschalten

Das Hauptfenster (1280x800) hat eine Listview, 2 Multiedits, Groupboxen usw.
Unter Windows 7 wird das Programmfenster ohne Flackern aktualisiert, unter XP flackert dieser solange, wie die Message(s) anliegen. Beispiel: ist das Fenster maximiert und gehe auf die ausgeblendete Taskleiste, dann flackert das Fenster so lange, wie die Taskleiste sichtbar ist oder ein anderes Programmfenster z.B. über den Hauptfenster aktiv und hin- herbewegt wird.

Kann mir jemand einen Tipp geben? Nach der letzten aufgetretenen Message könnte ich den Bildschirm neu zeichnen lassen, komme aber bei der Umsetzung nicht weiter.

Gruß Jürgen

[AHT]

Warum musst du überhaupt neu zeichnen und wann?
Vielleicht gibt es eine viel einfachere und bessere Möglichkeit, das zu regeln.

[Jürgen Baier]

Muss neu zeichnen, da ich per Shellexec externe Links und Programme aufrufe. Sobald diese aktiv sind, werden Details im Hauptfenster zerstört bzw. nicht aktualisiert (man sieht z.B. ein Teil des gestarteten Programms im Hauptfenster)

Habe schon unterschiedliches ausprobiert

[AHT]

Welche Details werden zerstört?

[AHT]

Vielleicht kannst du einen Sreenshot machen.
Zeige mal, wie es normal aussieht und was dann passiert, wenn du ein Programm startest.
Welchen Code verwendest du zum Starten des fremden Programms genau?

[Jürgen Baier]

Beispiel einer Internetseite, die ich aufgerufen und anschließend minimiert hatte.

Normalerweise ist drumherum alles grau.

Komischerweis gehts bei einem Minimalbeispiel:

Window 0,0-640,480
WindowTitle "Testprogramm"
Locate 0,0
Print "Dies ist ein Test..."
ShellExec("http://www.juergenbaier.info/","",0)
WaitInput

[Bangkok]

Normalerweise kümmert sich ja Profan um das Neuzeichnen des Hauptfensters. Wenn du aber z.B. winexecwait verwendest wird erst nach dem Beenden der externen Anwendung neu gezeichnet, da das Programm ja stehen bleibt. Das ließe sich umgehen, indem du das Hauptfenster versteckst solange die externe Anwendung läuft, da es ja dann nicht gebraucht wird.

[AHT]

Ich habe mal deinen Code bei mir unter XProfan9 auf drei Betriebsystemen getestet - da wird aktualisiert.

[Andreas Miethe]

Hallo Jürgen,

Invalidaterect und Updatewindow lösen ein WM_PAINT aus.
Du bist also in Deiner eigenen Schleife gefangen.

Hier mal ein Beispiel wie Du auf WM_PAINT reagieren kannst.

$H Windows.ph
$H Messages.ph

STRUCT RECT = Left&,Top&,Right&,Bottom&&
STRUCT PAINTSTRUCT = hdc&,fErase&,rcPaint.RECT!,fRestore&,fIncUpdate&,rgbReserved#(32)

Declare Ende&
CLS ~GetSysColor(~Color_BTNFACE)

Var Button& = @Create("Button", %hwnd ,"ok",0,0,80,24)
SubClass %hWnd,1 ' SubClassing des Hauptfensters einschalten
WindowTitle "WM_PAINT"
ShellExec("http://www.juergenbaier.info/","",0)
WhileNot Ende&
  Waitinput
EndWhile
End

SubClassProc
  If SubClassMessage(%hwnd,~WM_PAINT)
    Var ps# = New(PAINTSTRUCT)
    ~BeginPaint(%hwnd,ps#)
    ~BitBlt(%hdc,0,0,width(%hwnd),Height(%hwnd),%hdc2,0,0,~SRCCOPY)
    ~BitBlt(%hdc2,0,0,width(%hwnd),Height(%hwnd),%hdc,0,0,~SRCCOPY)
    ~EndPaint(%hwnd,ps#)
    Dispose ps#
    Set("WinProc", 0)
  EndIf
EndProc

[Jürgen Baier]

@Dieter: mit Fenster minimieren hatte ich es am Anfang auch gemacht gehabt - wollte die Sache dann aber nicht den Anwender überlassen, dass er das Fenster wieder maximieren sollte.

@AHT: vielen Dank. Werde versuchen, den Quelltext so weit runterzuschränken - komme dann vielleicht drauf.

Was mich ein wenig ärgert ist, dass ich das Programm unter Win7 entwickelte (welches auch geht) und für XP jetzt korrigieren muss - ist halt jetzt immer ein hin und her.

[Jürgen Baier]

@Andreas: Danke, werde ich mal austesten (meine letzte Antwort war zeitgleich mit deinem Posting gewesen - hatte ich nicht gelesen)

[Frabbing]

XProfan kennt übrigens auch einen Befehl zum Neuzeichnen: RePaint

Wenn du z.B. per API auf %hdc zeichnest/textest, empfiehlt es sich, gleichfalls auch auf %hdc2 zu zeichnen. Dann ist ein Neuzeichnen auf jeden Fall nicht mehr nötig.

[Jürgen Baier]

Komme leider immer noch nicht weiter
Habe den Quelltext von Andreas mal ausprobiert - es hakt, sobald ich ein anderes Fenster davor habe und dieses hin und her bewege.



Hatte vor einiger Zeit mal die Sache u.a. mit GetMessage und Repaint probiert gehabt, da lief es unter XP, aber nicht unter Win 7 (dort wurden Teile wieder nicht neu gezeichnet).

Kann mir einer noch einen Tipp geben - besten Dank!

Gruß Jürgen

[AHT]

Erstelle mal eine EXE und lade die zum Testen hoch. Das von dir beschriebene Verhalten kenne ich so nicht.

[Jürgen Baier]

Habe mal nen kurzen Testcode unter ROC erstellt:

$P+
SET("ERRORLEVEL",0)
'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR 4.6
' DATUM  06.01.2011    um  13:50 Uhr
' VERWENDETE PROFANVERSION IST 12.0-NT XPROFAN
' CODE ERSTELLT UNTER WINDOWS XP
' !!! Dieser Code wird von Roc immer neu erzeugt        !!! 
' !!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
' !!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!

DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE GROUPBOX1&
DECLARE TABCTRL1&
DECLARE MULTIEDIT1&
DECLARE MULTIEDIT2&

WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-640,500
SET("TRUECOLOR",1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1

' Hier kann ggf. Ihr Menü hin

GROUPBOX1& = CREATE("GROUPBOX",%HWND,"GROUPBOX",0013,0013,0200,0200)
TABCTRL1& = CREATE("TABCTRL",%HWND,"Reiter1",0013,0224,0197,0227)
MULTIEDIT1& = CREATE("MULTIEDIT",%HWND,"MULTIEDIT",0222,0023,0258,0187)
MULTIEDIT2& = CREATE("MULTIEDIT",%HWND,"MULTIEDIT",0222,0223,0258,0225)
SETFOCUS(%HWND)REPAINT
WHILENOT ENDE%
WAITINPUT
   If %KEY=2
     ENDE%= 1
   ELSEIF %KEY=4
   ELSEIF TABCHANGED(TABCTRL1&) 'TABCTRL

   ELSEIF GETFOCUS(MULTIEDIT1&) 'MULTIEDIT

   ELSEIF GETFOCUS(MULTIEDIT2&) 'MULTIEDIT

   ENDIF
ENDWHILE

Neuzeichnen geht soweit - wenn ich aber ein anderes Programmfenster davor (schnell) verschiebe, dann kommt das Neuzeichnen des Hauptfensters nicht mehr hinterher. Denke mal, dass die Geschwindigkeit des Rechners auch ein Grund dafür ist?!