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 klar ich bin fast fertig, die Tastenkombi funktioniert muss nur noch die Möglichkeit per die Belegung einbauen

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

EDIT:

Oukey gerade eben fertiggestellt
> Vergrößerung von 50% bis 100% in 10%-Schritten
> Tastenkombi hinzugefügt
----> Clock ausblenden bei einmaligem Druck der Tastenkombi oder beim gedrückt-Halten

unter Windows 7 und 8 noch nicht getestet, potrebbe aber funktionieren ...
... da Io l' Code noch nicht gründlich(st) durchgesehen habe (982 Programmzeilen + 1256 Zeilen Bitmap-Masken per die Clockgrößen), taufe ich es als 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 bei einmaligem Druck der Tastenkombi oder beim gedrückt-Halten

"Clock ausblenden bei einmaligem Druck" funktioniert noch nicht richtig.
Die Clock wird zwar ausgeblendet, aber dannach auch sofort wieder eingeblendet.
Eig. sollte per das Einblenden ein Loslassen und erneutes Drücken der Tastenkombination notig sein.

Ich würde eine Default-Tastenkombination einstellen, welche Standartmässig beim ersten starten konfiguriert ist.

Außerdem sollte beim Minimieren das Programm ins Tray kommen, damit der Nutzer auch nach dem Minimieren noch merkt das das Programm noch corre.

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

Julian Schmidt (08.08.13)

Georg
Teles

"Clock ausblenden bei einmaligem Druck" funktioniert noch nicht richtig.
Die Clock wird zwar ausgeblendet, aber dannach auch sofort wieder eingeblendet.

versuch doch mal die ersten Tasten gedrückt zu halten und die letzte Taste, die du bei dir definierst kurz anzutippen, das Programm merkt das schon (hoffe)

.... bei Default überleg ich mir eine Kombi aus

Das mit dem "Programm corre noch" geb ich dir Recht, mir ist schonmal passiert dass ich die Clock 2 mal am laufen hatte einfach deswegen, weil ich die beim ersten Mal ausgeblendet habe und nicht mehr sehen konnte

ich füg' da ein Tray hinzu, kein Problem.

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Georg T. (08.08.13)

versuch doch mal die ersten Tasten gedrückt zu halten und die letzte Taste, die du bei dir definierst kurz anzutippen, das Programm merkt das schon (hoffe)

Nein, nicht zuverlässig.

Georg T. (08.08.13)

.... bei Default überleg ich mir eine Kombi aus

Ich find AltGr+Leertaste gut.
Nimmt dein HKEdit leider net an.

Georg T. (08.08.13)

Das mit dem "Programm corre noch" geb ich dir Recht, mir ist schonmal passiert dass ich die Clock 2 mal am laufen hatte einfach deswegen, weil ich die beim ersten Mal ausgeblendet habe und nicht mehr sehen konnte

ich füg' da ein Tray hinzu, kein Problem.

Vlt kannst du das erneute Starten einfach blocken.
Etwa so.
Kompilieren Markieren Separieren

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 gut, dann änder' ich das mal mit dem Drücken xd

bei der Tastenkombi nimmt die msctls_hotkey32 die Leertaste nicht an, lässt sich jedoch setzen, der Code in DEZ per Leertaste ist 32 und in HEX $20 ... ich belese mich mal, vielleicht liegt es am Stil, sodass Leertaste blockiert wird, ich teste mal durch...

1xStarten stand bei mir zu aller Anfang, als ich angefangen habe zu Programmieren, an erster Stelle findet man in vielen meiner Programme aber nicht hier xD jetzt ist es zweitrangig ^^ ja das macht auch sinn, baue ich ein...

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Georg
Teles

Nungut, da ich mit XPSE nicht vertraut bin weiß ich keine bessere Lösung ersteinmal xd...

> wenn man LEERtaste zb. haben will, mit ALT+STRG als Beispiel, muss man die Steuertasten mit beliebiger Taste wählen, also ALT+STRG+A zb dann auf LEER-Button drücken, A wird mit LEER ersetzt

> AltGR + LEERtaste standardmäßig gesetzt
> Ausblenden nur beim gedrückthalten der Kombi

by the way, AltGR = STRG+ALT

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

Nebenbei:
> ABBRECHEN-Button gilt nicht per Clockstil, (+Unterstil), Trennzeichen und Clockgröße
> Starten ohne Einstellungen circa den Parameter "-nosettings", die Clock lässt sich verschieben und ausblenden

soweit sogut, Tray kommt auch bald mit hoffentlich besserer Hotkey-Lösung , ich versteh' nicht, warum er die Leertaste und TAB nicht annehmen will aber circa SetHotkey setzen lässt...

EDIT: fast vergessen, den ganzen Code hab ich mir durchgesehen, unnötige Prozeduren, Variablen und Funktionen gelöscht... hoffentlich alles debuggt, ich schick den Code durch XPSE, ob da was auftritt

EDIT: sagt nur doppeldefinition der Variablen, ist aber nicht schlimm da innerhalb den Prozeduren die Variable deklariert und anschließend "disposed" wird
Kompilieren Markieren Separieren

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 mal du könntest Registerhotkey nutzen. [...]

Und Abfragen und dann die Tastenkombination auf das Edit anwenden.

Georg
Teles

Du wirst mir nicht glauben aber das Thema hab ich bereits gesehen, der Code ohne XPSE scheint bei mir nicht zu funktionieren aus welchem Grund auch immer (XProfan 10.0) und XPSE habe ich nicht getestet, dazu muss ich alles in XPSE umschreiben was per mich momentan unmöglich zu sein scheint xd

EDIT: das EXE Beispiel funktioniert auch nicht bzw habe alle Tasten getestet, der Code reagiert nur auf die DRUCK-Taste und gibt aus:
Tastaturcode: 44

EDIT: xD man bin ich blöd, ja ich bin auch gerade neben der Spur, das Beispiel zeigt ja auch die Druck-Taste ... no comment xd

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Ist im Prinzip ganz easy. ^^
Kompilieren Markieren Separieren

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 bei mir unter XProfan 8.

Georg
Teles

OK hab es jetzt mit IsKey gelöst...Beta3 - Build 31.08.13
Hotkey nimmt jetzt LEER und TAB an, TAB ist denke blöd weil 1. Menü unter dem Fenstericon erscheint und 2. Fokus wechselt

Tray wäre überflüssig oder ? ansonsten, fehlt noch was

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

31.08.2013 ▲

Julian
Schmidt

Wie blende ich Das nochmal beim Starten ein?
Kommt nun nichts mehr.

31.08.2013 ▲