XProfan

clockbar_mini.zip

291 kB

Version:

1.8a

Hochgeladen:

27.01.2014

clockbar2.zip

372 kB

Version:

2.0

Hochgeladen:

09.10.2014

clockbar3.zip

1.885 kB

Version:

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 ▲

- page 3 -

Georg
Teles

Alles bien sûr je suis presque fertig, qui Tastenkombi funktioniert muss seulement encore qui Possibilité pour qui Belegung einbauen

Shift UND/ODER Strg UND/ODER vieux UND/ODER Buchstaben- ou bien Ziffertaste

EDIT:

Oukey justement plan fertiggestellt
> Vergrößerung de 50% jusqu'à 100% dans 10%-Schritten
> Tastenkombi hinzugefügt
----> Clock ausblenden chez einmaligem Druck qui Tastenkombi ou bien beim gedrückt-tenir

sous Windows 7 et 8 encore pas getestet, pourrait mais marcher ...
... là Je l' Code encore pas gründlich(st) durchgesehen habe (982 Programmzeilen + 1256 Zeilen Bitmap-Masken pour qui Clockgrößen), baptême je es comme 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 chez einmaligem Druck qui Tastenkombi ou bien beim gedrückt-tenir

"Clock ausblenden chez einmaligem Druck" funktioniert encore pas richtig.
qui Clock wird zwar ausgeblendet, mais dannach aussi tout de suite wieder eingeblendet.
Eig. sollte pour cela Einblenden un Loslassen et erneutes Drücken qui Tastenkombination notig son.

je serait une Default-Tastenkombination einstellen, quelle Standartmässig beim ersten starten konfiguriert ist.

Aussi sollte beim Minimieren cela Programme ins Tray venons, avec cela qui Nutzer aussi pour dem Minimieren encore merkt cela cela Programme encore fonctionne.

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

Julian Schmidt (08.08.13)

Georg
Teles

"Clock ausblenden chez einmaligem Druck" funktioniert encore pas richtig.
qui Clock wird zwar ausgeblendet, mais dannach aussi tout de suite wieder eingeblendet.

versuch doch fois le ersten Tasten gedrückt trop tenir et qui dernier bouton, qui du chez dir definierst kurz anzutippen, cela Programme merkt cela déjà (hoffe)

.... chez Default überleg je mir une Kombi aus

Relatif à la "Programm fonctionne noch" geb je dir droite, mir ist Schonmal passiert dass je qui Clock 2 la fois am courir hatte simple deswegen, weil je qui beim ersten la fois ausgeblendet habe et pas plus voyons konnte

je füg' là un Tray hinzu, ne...aucune Problem.

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Georg T. (08.08.13)

versuch doch fois le ersten Tasten gedrückt trop tenir et qui dernier bouton, qui du chez dir definierst kurz anzutippen, cela Programme merkt cela déjà (hoffe)

non, pas zuverlässig.

Georg T. (08.08.13)

.... chez Default überleg je mir une Kombi aus

je find AltGr+Leertaste bien.
Nimmt dein HKEdit malheureusement net à.

Georg T. (08.08.13)

Relatif à la "Programm fonctionne noch" geb je dir droite, mir ist Schonmal passiert dass je qui Clock 2 la fois am courir hatte simple deswegen, weil je qui beim ersten la fois ausgeblendet habe et pas plus voyons konnte

je füg' là un Tray hinzu, ne...aucune Problem.

Vlt peux du cela erneute Starten simple blocken.
Etwa so.
Kompilieren Marque Séparation

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

> eh bien bien, ensuite änder' je cela la fois avec dem Drücken xd

chez qui Tastenkombi nimmt qui msctls_hotkey32 qui Leertaste pas à, peut sich cependant mettons, qui Code dans DEZ pour Leertaste ist 32 et dans HEX $20 ... je belese mich la fois, peut-être liegt es am Stil, sodass Leertaste blockiert wird, je teste la fois par...

1xStarten stand chez mir trop aller Anfang, comme je angefangen habe trop Programmieren, à erster Stelle findet on dans vielen meiner Programme mais pas ici xD maintenant ist es zweitrangig ^ ^ oui cela fait aussi sinn, baue je un...

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Georg
Teles

Nungut, là je avec XPSE pas vertraut suis sais je aucun bessere Solution ersteinmal xd...

> si on LEERtaste zb. avons veux, avec ALT+STRG comme Beispiel, muss on qui Steuertasten avec beliebiger bouton choisir, alors ALT+STRG+A zb ensuite sur LEER-Button drücken, A wird avec LEER ersetzt

> AltGR + LEERtaste standardmäßig gesetzt
> Ausblenden seulement beim gedrückthalten qui Kombi

by le way, AltGR = STRG+ALT

> Einmaliges Starten sur Findwindow("...
(dans diesem le cas: "Clockbar 1.5 Beta2 - Build 11.08.13")

Nebenbei:
> ABBRECHEN-Button gilt pas pour Clockstil, (+Unterstil), Trennzeichen et Clockgröße
> Starten sans Einstellungen sur den paramètre "-nosettings", qui Clock peut sich Déplacer et ausblenden

soweit sogut, Tray venez aussi bientôt avec hoffentlich besserer Hotkey-Solution , je versteh' pas, pourquoi il qui Leertaste et TAB pas annehmen veux mais sur SetHotkey mettons peut...

EDIT: presque oublier qc, den ganzen Code hab je mir durchgesehen, unnötige Prozeduren, Variablen et Funktionen gelöscht... hoffentlich alles debuggt, je schick den Code par XPSE, si là quoi auftritt

EDIT: sagt seulement doppeldefinition qui Variablen, ist mais pas grave là dedans den Prozeduren qui Variable deklariert et anschließend "disposed" wird
Kompilieren Marque Séparation

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)

exposition la fois du könntest Registerhotkey nutzen. [...]

et Abfragen et ensuite qui Tastenkombination sur cela Éditer anwenden.

Georg
Teles

Du wirst Je ne croyons mais cela Thema hab je bereits gesehen, qui Code sans XPSE scheint chez Je ne trop marcher aus welchem Grund De toute façon (XProfan 10.0) et XPSE habe je pas getestet, en supplément muss je alles dans XPSE paraphraser quoi pour mich momentan unmöglich trop son scheint xd

EDIT: cela EXE Beispiel funktioniert aussi pas bzw habe alle Tasten getestet, qui Code reagiert seulement sur qui DRUCK-bouton et gibt aus:
Tastaturcode: 44

EDIT: xD on suis je blöd, oui je suis aussi justement près de qui vestige, cela Beispiel zeigt oui aussi qui Druck-bouton ... no comment xd

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Ist im Prinzip entier easy. ^ ^
Kompilieren Marque Séparation

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 chez mir sous XProfan 8.

Georg
Teles

OK hab es maintenant avec IsKey gelöst...Beta3 - Build 31.08.13
Hotkey nimmt maintenant LEER et TAB à, TAB ist denke blöd weil 1. menu sous dem Fenstericon erscheint et 2. Fokus wechselt

Tray wäre überflüssig ou bien ? ansonsten, fehlt encore quoi

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

31.08.2013 ▲

Julian
Schmidt

comment blende je cela nochmal beim Starten un?
venez eh bien rien plus.

31.08.2013 ▲