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:-)

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

Frank A.

Zitat

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:

Code

{$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

Alles anzeigen

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;702780

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...

AxT

Zitat von iF_;702818

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.

Unregistriert

Hallo Jac,

vlt. ist

Code

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

Alles anzeigen

was Du suchst.

Jac de Lad

[LEFT]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).
[/LEFT]

Unregistriert

Hallo Jac,

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

Jetzt mitmachen!