XProfan

clockbar_mini.zip

291 kB

Versión:

1.8a

Hochgeladen:

27.01.2014

clockbar2.zip

372 kB

Versión:

2.0

Hochgeladen:

09.10.2014

clockbar3.zip

1.885 kB

Versión:

3.3.0.0 - build 25.06.2019

Hochgeladen:

24.06.2018

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

29.03.2013 ▲

- Página 3 -

Georg
Teles

Alles klar Yo bin fast fertig, el Tastenkombi funktioniert muss sólo todavía el Möglichkeit para el Belegung einbauen

Shift UND/ODER Strg UND/ODER Alt UND/ODER Buchstaben- oder Ziffertaste

EDIT:

Oukey gerade eben fertiggestellt
> Vergrößerung de 50% a 100% en 10%-Schritten
> Tastenkombi hinzugefügt
----> Clock ausblenden en einmaligem Druck el Tastenkombi oder beim gedrückt-Halten

bajo Windows 7 y 8 todavía no getestet, dürfte aber trabajo ...
... como Yo, el Code todavía no gründlich(st) durchgesehen habe (982 Programmzeilen + 1256 Zeilen Mapa de bits-Masken para el Clockgrößen), taufe Yo como 1.5 Beta

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Georg T. (08.08.13)

> Tastenkombi hinzugefügt
----> Clock ausblenden en einmaligem Druck el Tastenkombi oder beim gedrückt-Halten

"Clock ausblenden en einmaligem Druck" funktioniert todavía no correcto.
El Clock se zwar ausgeblendet, aber dannach auch inmediatamente otra vez eingeblendet.
Eig. debería para el Einblenden una Liberación y erneutes Drücken el Tastenkombination notig ser.

Yo sería una Default-Tastenkombination einstellen, welche Standartmässig beim ersten starten konfiguriert es.

Außerdem debería beim Minimieren el Programa en el Tray kommen, así el Nutzer auch después de el Minimieren todavía merkt el el Programa todavía se ejecuta.

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Julian Schmidt (08.08.13)

Georg
Teles

"Clock ausblenden en einmaligem Druck" funktioniert todavía no correcto.
El Clock se zwar ausgeblendet, aber dannach auch inmediatamente otra vez eingeblendet.

versuch doch veces el ersten Tasten gedrückt a halten y el letzte Taste, el du en dir definierst kurz anzutippen, el Programa merkt el ya (hoffe)

.... en Default überleg Yo una Kombi de

Relacionado con la "Programm se ejecuta noch" geb Yo dir Recht, me es schonmal passiert dass Yo el Clock 2 veces al laufen hatte simplemente deswegen, porque Yo cuando el ersten Tiempo ausgeblendet habe y no mehr sehen podría

Yo füg' como una Tray hinzu, kein Problema.

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Georg T. (08.08.13)

versuch doch veces el ersten Tasten gedrückt a halten y el letzte Taste, el du en dir definierst kurz anzutippen, el Programa merkt el ya (hoffe)

Nein, no zuverlässig.

Georg T. (08.08.13)

.... en Default überleg Yo una Kombi de

Yo find AltGr+Leertaste bien.
Nimmt dein HKEdit desafortunadamente net a.

Georg T. (08.08.13)

Relacionado con la "Programm se ejecuta noch" geb Yo dir Recht, me es schonmal passiert dass Yo el Clock 2 veces al laufen hatte simplemente deswegen, porque Yo cuando el ersten Tiempo ausgeblendet habe y no mehr sehen podría

Yo füg' como una Tray hinzu, kein Problema.

Vlt kannst Si es usted el erneute Starten simplemente blocken.
Etwa así.
Kompilieren Marca Separación

Def CreateToolhelp32Snapshot(2) !"Kernel32", "CreateToolhelp32Snapshot"
Def Process32First(2) !"Kernel32", "Process32First"
Def Process32Next(2) !"Kernel32", "Process32Next"
Def CloseHandle(1) !"Kernel32", "CloseHandle"
Def GetCurrentProcessID(0) !"Kernel32", "GetCurrentProcessId"
cls
Case exists_Process("Clockbar.exe")>1 : AppExit()
print "Erste Instanz"
Waitinput

Proc AppExit

    end

EndProc

Proc exists_Process

    Parameters prozess$
    Declare Entry#,err&,handle&,cpid&,ergebnis&
    Struct PROCESSENTRY32=dwSize&, cntUsage&, th32ProcessID&, th32DefaultHeapID&, th32ModuleID&, Threads&, th32ParentProcessID&, pcPriClassBase&, dwFlags&, szExeFile$(260)
    Dim Entry#,PROCESSENTRY32
    Entry#.dwSize& = SizeOf(Entry#)
    cpid&=GetCurrentProcessID()
    handle& = CreateToolhelp32Snapshot(2,0)

    If handle&

        err& = Process32First(handle&, Entry#)

        If err&

            Repeat

                err& = Process32Next(handle&, Entry#)

                If err&

                    case Entry#.szExeFile$=prozess$ : inc ergebnis&

                EndIf

            Until err& = 0

            CloseHandle(handle&)

        EndIf

    EndIf

    Dispose Entry#
    Return ergebnis&

ENDPROC

Georg
Teles

> nun bien, entonces änder' Yo el veces con el Drücken xd

en Tastenkombi nimmt el msctls_hotkey32 el Leertaste no a, lässt se sin embargo conjunto, el Code en DEZ para Leertaste es 32 y HEX $20 ... Yo belese mich veces, tal vez liegt lo al Stil, sodass Leertaste blockiert se, Yo teste veces por...

1xStarten stand en me a aller Anfang, como Yo angefangen habe a Programmieren, a erster Punto findet uno en vielen meiner Programas pero no hier xD ahora es zweitrangig ^ ^ sí el macht auch sinn, baue Yo una...

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Georg
Teles

Nungut, como I, con XPSE no vertraut bin weiß Yo no bessere Solución ersteinmal xd...

> si uno LEERtaste zb. haben voluntad, con ALT+STRG como Ejemplo, muss uno el Steuertasten con beliebiger Taste wählen, also ALT+STRG+A zb entonces en LEER-Button drücken, A es con LEER ersetzt

> AltGR + LEERtaste standardmäßig gesetzt
> Ausblenden sólo beim gedrückthalten el Kombi

by the way, AltGR = STRG+ALT

> Einmaliges Starten encima Findwindow("...
(en diesem Fall: "Clockbar 1.5 Beta2 - Build 11.08.13")

Nebenbei:
> ABBRECHEN-Button gilt no para Clockstil, (+Unterstil), Trennzeichen y Clockgröße
> Starten sin Einstellungen encima el Parámetro "-nosettings", el Clock lässt se Desplazamiento y ausblenden

soweit sogut, Tray kommt auch bald con hoffentlich besserer Hotkey-Solución , Yo versteh' no, por qué él el Leertaste y TAB no annehmen voluntad aber encima SetHotkey conjunto lässt...

EDIT: fast vergessen, el ganzen Code tener Yo durchgesehen, unnötige Prozeduren, Variables y Características gelöscht... hoffentlich alles debuggt, Yo schick el código por XPSE, si como qué auftritt

EDIT: sagt sólo doppeldefinition el Variables, es pero no schlimm como innerhalb el Prozeduren el Variable deklariert y anschließend "disposed" se
Kompilieren Marca Separación

Proc cs

    Declare bm_#
    Dim bm_#,xxx
    ...
    Dispose bm_#

EndProc

Proc cl

    Declare bm_#
    Dim bm_#,xxx
    ...
    Dispose bm_#

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Georg T. (11.08.13)

Schau veces du könntest Registerhotkey nutzen. [...]

Und Abfragen y luego el Tastenkombination el Editar anwenden.

Georg
Teles

Usted wirst No glauben aber el Thema tener Yo ya gesehen, el Code sin XPSE scheint no yo en el a trabajo de welchem Grund De todos modos (XProfan 10.0) y XPSE Yo no getestet, dazu muss Yo alles en XPSE umschreiben qué para mich momentan unmöglich a ser scheint xd

EDIT: el EXE Ejemplo funktioniert auch no o habe todos Tasten getestet, el Code reagiert sólo en el DRUCK-Taste y son de:
Tastaturcode: 44

EDIT: xD uno bin Yo blöd, sí Yo bin auch gerade neben el Spur, el Ejemplo zeigt en efecto el Druck-Taste ... no comment xd

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Ist en el Principio bastante easy. ^ ^
Kompilieren Marca Separación

Def @HiByte(1) @&(1) \ $10000
Def @LoByte(1) @&(1) & $FF
Def @MakeWord(2)(@&(1) & $FF) | ((@&(2) & $FF) << 8)
CLS

whileloop 0,7,1

    external("user32.dll","RegisterHotKey",%hWnd,300+&loop,&loop,32)

Endwhile

usermessages 786'wm_hotkey

while 1

    waitinput

    if %uMessage=786

        print "Tastaturcode:";@LoByte(&ulParam);" ";@HiByte(&ulParam)

    endif

wend

Läuft en me bajo XProfan 8.

Georg
Teles

OK tener lo ahora con IsKey gelöst...Beta3 - Build 31.08.13
Hotkey nimmt ahora LEER y TAB a, TAB es denke blöd porque 1. Menü bajo el Fenstericon erscheint y 2. Fokus wechselt

Tray wäre überflüssig oder ? ansonsten, fehlt todavía qué

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

31.08.2013 ▲

Julian
Schmidt

Como blende Yo Das otra vez beim Starten una?
Kommt nun nichts mehr.

31.08.2013 ▲