XProfan

While 1

    WaitInput
    Case %key=2:Break

Endwhile

Oder:

Def GetSysColor(1) !"USER32","GetSysColor"
Def LoadIcon(2) !"USER32","LoadIconA"
Cls GetSysColor(15)
SendMessage(%hwnd,$80,1,LoadIcon(0,32517))

Da fällt euch doch auch bestimmt was ein?

20.10.2006 ▲

- Seite 2 -

In einer compilierten EXE werden Messages erst nach 20 Zeilen Quelltext verarbeitet. Die REMs sollen für korrekte Abarbeitung von Messages sorgen (könnte sonst vorkommen, das Fensterinhalte fehlen).

Rems werden vom XPSE wegoptimiert - die haben in einer Exe auch nix zu suchen.

whileloop 10:wend

...sollte Selbiges erledigen.

Auch ne Möglichkeit.

Frank
Abbing

[quote:40d2640f8a]Das beste behalte ich aber trotzdem lieber für mich [/quote:40d2640f8a]
Ich suche doch keine Wundercodes. Nur Routinen oder Procs, die ihr in jedem Programm nutzt, und die mittels SnippetAdmin auf Knopfdruck bereit stehen werden. Initialisierungskram und sowas. Keine augäpfelbehütbaren Geheimnisse...

War ja nur Spaß

Frank
Abbing

Beta ist gerade raus.

Jac
de
Lad

proc CenterWindow

    Parameters x%,y%
    Window (%MaxX-x%)/2,((%MaxY-y%)/2)-(x%),y%

endproc

subproc create.centerwindow

    Parameters hwnd&,text$,x%,y%
    Return Create("window",hwnd&,text$,(%MaxX-x%)/2,(%MaxY-y%)/2,x%,y%)

endproc

subproc create.centerdialog

    Parameters hwnd&,text$,x%,y%
    Return Create("dialog",hwnd&,text$,(%MaxX-x%)/2,(%MaxY-y%)/2,x%,y%)

endproc

Hilft mir oft weiter, kannste auch einzeln einbauen...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

05.01.2007 ▲

Frank
Abbing

Naja, der SnippetAdmin ist längst auf meiner Seite online. Kannst jetzt ja selber einfügen, was du möchtest.

05.01.2007 ▲

Jac
de
Lad

Ja, ich weiß, ich dachte nur, dass ich das der Öffentlichkeit nicht vorenthalten kann!

Vielleicht kannste ja regelmäßige Updates auf deiner Seite anbieten oder eine Updatefunktion per Internet direkt im SnippetAdmin, hm, das wär praktisch!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

05.01.2007 ▲