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

Julian
Schmidt

il findet malheureusement cela Handle pas, quoique Clockbar fonctionnement wird.

Hab den gesuchten Fenstertitel aussi la fois sur "Clock" verkürzt. aucun Treffer.

je denke il erzeugt aus irgendwelchen Trouvé ne...aucune la fenêtre.

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

05.09.2013 ▲

Georg
Teles

Seltsam, là peux je malheureusement pas aider je schreib dir la fois den Verlauf jusqu'à zum Erzeugen de Fensters:
Kompilieren Marque Séparation

...

If FindWindow("Clockbar 1.5 Beta3 - Build 31.08.13")

    End

EndIf

...

IfNot FileExists($progdir+"BmpRgn1.dll")

    Messagebox("Die Bibliothek \qBmpRgn1.dll\q existiert nicht!\nClockbar wurde beendet!","Fehler",16)
    END

EndIf

...
WindowStyle $d9+16+240+1024'<-- Problem könnte vielleicht hier liegen ?
WindowTitle "Clockbar 1.5 Beta3 - Build 31.08.13"
Window 0,0-0,0
Cls ~Getsyscolor(15)
winico& = Create("hIcon",Par$(0),0)
SendMessage(%hwnd,$80,1,winico&)
SET("TRUECOLOR", 1)
Set("Decimals",1)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
Programm$ = Par$(0)
AutoRun_Name$="Clockbar"
rini()'INI wird eingelesen
...

If spl$ = "1"'Wenn Splash in INI = 1 dann

    wdi_(1)'Fensterposition aus INI seltzen und mit WorkArea() berichtigen (wenn Werte ausserhalb der Auflösung sind) oder auf 0,0
    splash()

Else

    wdi_(1)'     -"-
    draw()' Zahlen im vorraus zeichnen

EndIf

...

Sonst weiss je pas plus, ah attends, mon voisin hat Windows 8 je teste cela la fois chez ihm si il aujourd'hui trop Haus' ist...

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

06.09.2013 ▲

Julian
Schmidt

hmmm...am Erzeugen des la fenêtre scheint es pas trop liegen.

peux es chez mir im Interpreter-Modus et également aussi avec dem Compiler effectuer. et per FindWindow également trouver.

Soll je dir vlt qui Possibilité donner avec Teamviewer la fois trop regarder, wohin es hakt?

06.09.2013 ▲

Georg
Teles

moment, oui bien sûr, Teamspeak peut-être en supplément ^ ^ ?
quand passt es dir, aujourd'hui encore, demain ^ ^ ?

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

06.09.2013 ▲

Julian
Schmidt

aujourd'hui jusqu'à 15:30 allez. Hab mais justement malheureusement ne...aucune Headset zur main.

pouvons mais per TS ou bien aussi Skype chatten.

Schreib mich per PM à, si es losgehen soll.

Ansonsten klappt aujourd'hui soir ab 21 montre ou bien demain.

07.09.2013 ▲

Georg
Teles

OK, nu sollte alles aller, habe cela einmalige Starten maintenant pour deinem Beispiel Julian gelöst, ici extrem kurz Fassung.... exist_proces( substr$( par$(0), -1, "\\") )
Update ist dessus, si encore faute sommes, werde je vous beheben et einiges paraphraser et ensuite seulement aucun Beta posten

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Salut,
Super cela du eh bien aktualisiert la hâte.

si on qui bouton zum Ausblenden longtemps gedrückt hält, wird im Hintergrund toujours wieder qui Fokus neugesetzt. ca devrait du beheben.

Salut.

Georg
Teles

Hi,
Hmm, en supplément wird es nötig son, qui betreffende Tastenkombination global pour qui Zeit des Drückens trop désactiver, et pour dem Loslassen wieder freizugeben ... habe la fois avec dem Concentrer et Get / SetActiveWindow() gespielt, chez Tastenkombi wird il sur %HWnd gesetzt et beim loslassen sur cela dernier bekannte la fenêtre übertragen, scheint pas trop marcher ...
je such' la fois pour einer Solution

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Pourquoi mets du überhaupt den Fokus?

Georg T. (12.09.13)

Hi,
Hmm, en supplément wird es nötig son, qui betreffende Tastenkombination global pour qui Zeit des Drückens trop désactiver, et pour dem Loslassen wieder freizugeben ...

Zeig la fois comment du qui Tastenkombination abfragst?
Vlt peux je aider.

Kompilieren Marque Séparation

Georg
Teles

non non du verstehst faux, avec Concentrer arbeite je chez dem Program pas, nie gemacht avec "Focus umeiten" versucht, à Aktionen qui Tastenkombi chez Programmen ou bien aktuellen Windows trop ignorer, dH. si di ebestimmte Tastenkombi gedrückt (gehalten) wir, mets il kurz sur %WHnd den Concentrer, ansonsten wieder sur cela vorherige Programme / la fenêtre ...

qui Kombi wird oui global abgefragt, d.H. si un la fenêtre offen ist dans dem on arbeitet, et qui Tastenkombi benutzt, gilt cet également pour cela aktuelle la fenêtre / Programme ...

là qui Hauptschleife timerabhängig ist (à cause de den Les chiffres etc)
ici qui Tastenkombi qui je benutzt habe im kurzen Code:

DEF GetAsyncKeyState(1) ! "user32.dll","GetAsyncKeyState"
CLS
Settimer 200

Tandis que 1

    Waitinput

    Si GetAsyncKeyState(Val($12)) and GetAsyncKeyState(Val($11)) and GetAsyncKeyState(32)'STRG+ALT+LEER

        showwindow(%HWnd,0)

    D'autre

        showwindow(%HWnd,1)

    EndIf

    Si GetAsyncKeyState(27)

        Pause

    EndIf

Endwhile

killtimer

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Kompilieren Marque Séparation

Julian
Schmidt

Am leichtesten avec einer Variable.

So wird cela ständig wiederholte Einblenden bzw. Ausblenden verhindert.

Var Stat&=1
DEF GetAsyncKeyState(1) ! "user32.dll","GetAsyncKeyState"
CLS
Settimer 200

Tandis que 1

    Waitinput

    Si Stat&<>GetAsyncKeyState(Val($12)) and GetAsyncKeyState(Val($11)) and GetAsyncKeyState(32)'STRG+ALT+LEER

        imprimer Stat&
        showwindow(%HWnd,Stat&)
        Stat&=Not(Stat&)

    EndIf

Endwhile

killtimer

Georg
Teles

Achso, du beziehst cela sur qui Clock, je dachte, es stört, weil du im Programme Kombi drückst et toi qui Aktionen im Programme stören ^ ^ sry je hatte toi faux verstanden ...
sous XP blikt es plan pas, je hab es malheureusement chez anderen BS-en pas getestet, speziell cela EInblenden xD eh maaan, je merk justement comment mal je suis, normalement teste je Alles, ici hab je une Kleinigkeit übersehen, attends je lade cela juste hoch ... cela kürzt sogar mon "tastenkombiabfrage" um une la ligne ...

là gibt es mais un Problem, si aucun STRG, ALT ou bien SHIFT bouton benutzt wird, seulement une einzige normale bouton, ensuite blinkt qui Clock, versuch la fois im Code zb seulement qui Leertaste drin trop laisser

EDIT:
Update ist dessus, mais si seulement une "normale Taste" défini wird, weiss je pas quoi chez dir ensuite passiert, chez mir sous XP jedenfalls funktioniert es, probier cela la fois s'il te plaît

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4