Subclassing auch außerhalb von WaitInput

[Jac de Lad]

Hallo Roland.

Für XProfan 12 wünsche ich mir neben XPDLs auch, dass es eine Möglichkeit gibt eine Option einzuschalten (z.B. per Set("SubclassMode",1|0) ) in dem das Subclassing auch außerhalb von Waitinput abgearbeitet wird. Am besten wäre das, wenn die Subclassproc nur bei bestimmten, definierbaren Messages aufgerufen werden würde, was Rechenzeit sparen würde. Eine beispielhafte Anwendung ist ein Programm in dem die Größenänderung des Hauptfensters per Subclassing die Größe der Controls anpasst.

Jac

[Frabbing]

Am besten wäre das, wenn die Subclassproc nur bei bestimmten, definierbaren Messages aufgerufen werden würde, was Rechenzeit sparen würde.

Was spart da denn Rechenzeit? Die Messages kommen von Windows und es ist die Aufgabe deiner Subclassing-Routine, nur die benötigten Messages abzuarbeiten.

Das Prinzip, was du dir wünscht, hat Roland längst umgesetzt. Es nennt sich Usermessages...

Edit:

{$iq}

DECLARE ST&,TB&

SubClassproc
  IF SUBCLASSMESSAGE(%HWND,WM_SIZING) or SUBCLASSMESSAGE(%HWND,WM_SIZE)
    RESIZE
    SET("WinProc",0)
  ENDIF
endproc

proc RESIZE
  SETWINDOWPOS TB&=0,0-0,0
  SETWINDOWPOS ST&=0,0-0,0
  UpdateWindow(tb&)
  UpdateWindow(st&)
endproc

CLS

ST&=CREATE("Statuswindow",%HWND,"Text")
TB&=CREATE("Toolbar",%HWND,0,12,3,1000,1)

SETSTYLE %HWND, 1, GETSTYLE(%HWND, 1) | $02000000

SUBCLASS %HWND,1
WHILE 1
  WAITINPUT
ENDWHILE
END

[Jac de Lad]

Frank, das weiß und nutz ich doch. Aber wenn das Programm eine längere Operation ausführt und nicht ansprechbar ist (da kein Waitinput) dann reagiert es nicht wie gewünscht auf Größenänderungen und passt die Größe der Controls an.

[iF_]

Zitat von Jac de Lad

Aber wenn das Programm eine längere Operation ausführt und nicht ansprechbar ist (da kein Waitinput) dann reagiert es nicht wie gewünscht auf Größenänderungen und passt die Größe der Controls an.

Das ist aber bei jeder Windows-Anwendung der Fall - ausgenommen die Anwendung achtet speziell auf diesen Fall - was man mit XProfan jedoch ebenso programmieren kann.

Das "Problem" (wenn man es überhaupt so nennen will) liegt eher in der Natur der Sache...

[AHT]

Zitat von iF_

Das ist aber bei jeder Windows-Anwendung der Fall - ausgenommen die Anwendung achtet speziell auf diesen Fall - was man mit XProfan jedoch ebenso programmieren kann.

Das "Problem" (wenn man es überhaupt so nennen will) liegt eher in der Natur der Sache...

XProfan bringt im Prinzip alles mit, um eine Größenanpassung der Controls sogar während einer längeren Berechnung durchzuführen, und das sogar schon seit XProfan8. Das Problem verstehe ich insgesammt hier nicht.

[iF_]

Vielleicht kannst Du dem Jac ein Beispiel formulieren - meine Beispiele hierzu scheint er nicht so recht zu "mögen".

[Jac de Lad]

Beispiel kommt sobald ich Zeit habe...also eventuell heute abend.

Hallo Jac,

vlt. ist

declare Owp&
cls
Owp&=SetWindowLong(hWnd,GWL_WNDPROC, ProcAddr(WindowProc,4))

while 1

    WaitInput

EndWhile

nProc WindowProc

    Parameters Wnd&, Msg&, wParam&, lParam&
    Global Owp&

    if Msg& = WM_MOUSEMOVE

        var dc&=getdc(hWnd)
        var x&=loword(lParam&)-25
        var y&=hiword(lParam&)-25

        whileLoop 500

            setpixel(dc&,x&+rnd(50),y&+rnd(50),rnd($FFFFFF))

        wend

    endif

    Return CallWindowProc(Owp&,Wnd&, Msg&, WParam&, LParam&)

EndProc

was Du suchst.

[Jac de Lad]

Hallo Gast.

Das Problem ist, dass es mit einfachen Funktionen, wie eine Uhr oder dein Beispiel hervorragend klappt. Leider kriege ich es nicht hin komplexe Sachen ausführen zu lassen. Beispiel:
Mein Programm hat Anweisungen bekommen eine Datei zu komprimieren oder verschlüsseln oder was weiß ich. In der Zwischenzeit (also während es einen Algo von welcher Art auch immer ausführt) soll es darauf reagieren, wenn man die Fenstergröße ändert. Das kriege ich aber nicht hin (auch nicht per API SetTimerA).

Hallo Jac,

Du kannst danach unendlich komplexe Sachen erledigen lassen, musst nur sagen was passieren soll.