XProfan

clockbar_mini.zip

291 kB

Version:

1.8a

Hochgeladen:

01/27/14

clockbar2.zip

372 kB

Version:

2.0

Hochgeladen:

10/09/14

clockbar3.zip

1.885 kB

Version:

3.3.0.0 - build 25.06.2019

Hochgeladen:

06/24/18

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

03/29/13 ▲

- Page 3 -

Georg
Teles

everything clear i'm almost ready, The Tastenkombi functions must only yet The Possibility for booking install

Invoice values UND/ODER Strg UND/ODER old UND/ODER letters- or Ziffertaste

EDIT:

Oukey straight even completed
> enhancement of 50% To 100% in 10%-stepped
> Tastenkombi added
----> Clock Hide with einmaligem pressure the Tastenkombi or at pressed-hold

under windows 7 and 8 not yet tested, might but functions ...
... I whom code not yet thoroughly(st) looked through have (982 Program lines + 1256 Lines Bitmap-Masken for Clockgrößen), christening I it as 1.5 Beta

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Georg T. (08.08.13)

> Tastenkombi added
----> Clock Hide with einmaligem pressure the Tastenkombi or at pressed-hold

"Clock Hide with einmaligem Druck" functions not yet correctly..
The Clock becomes of course ausgeblendet, but dannach too immediate again eingeblendet.
Eig. ought to for the overlay one release and erneutes pressing the Tastenkombination notig his.

i'd a Default-Tastenkombination take on, which Standartmässig at first started configures is.

Also ought to at minimize the program in that Tray come, so the User too to the minimize yet observes the the program yet runs.

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

Julian Schmidt (08.08.13)

Georg
Teles

"Clock Hide with einmaligem Druck" functions not yet correctly..
The Clock becomes of course ausgeblendet, but dannach too immediate again eingeblendet.

attempt still times the first Keys pressed To hold and the latest Button, The You with you definierst short anzutippen, the program observes the already (hope)

.... with Default überleg I me station wagon from

Related to the "Programm runs noch" geb I you right, i'm Schonmal happens I The Clock 2 time on the walk having simply therefore, because I The at first time ausgeblendet have and not any more see could

I füg' there one Tray hinzu, no trouble.

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Georg T. (08.08.13)

attempt still times the first Keys pressed To hold and the latest Button, The You with you definierst short anzutippen, the program observes the already (hope)

No, not reliably.

Georg T. (08.08.13)

.... with Default überleg I me station wagon from

I find AltGr+Leertaste well.
takes your HKEdit unfortunately net on.

Georg T. (08.08.13)

Related to the "Programm runs noch" geb I you right, i'm Schonmal happens I The Clock 2 time on the walk having simply therefore, because I The at first time ausgeblendet have and not any more see could

I füg' there one Tray hinzu, no trouble.

Perhaps can you the renewed started simply blocken.
about so.
Compile Mark Separation

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

> now well, then änder' I the time with the pressing xd

with the Tastenkombi takes The msctls_hotkey32 The Leertaste not on, can itself however settle, the code in DEZ for Leertaste is 32 and HEX $20 ... I belese me time, Perhaps lying it on the Style, so Leertaste blockiert becomes, I teste time through...

1xStarten backed me To all beginning, as i started have To program, on first place finds one in many of my programs but not here xD now is it secondary ^^ Yes the power too sense, building I one...

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Georg
Teles

Nungut, I with XPSE not intimate be white I no better Solution ersteinmal xd...

> if one LEERtaste zb. having wants, with ALT+STRG as example, must one The Steuertasten with beliebiger Button dial, means ALT+STRG+A zb then on EMPTY-Button pressing, A is with EMPTY supplant

> AltGR + LEERtaste standardmäßig staid
> Invisible only at gedrückthalten the station wagon

by the way, AltGR = STRG+ALT

> Einmaliges started over Findwindow("...
(in this drop: "Clockbar 1.5 Beta2 - Build 11.08.13")

on the side:
> ABBRECHEN-Button counts not for Clockstil, (+Unterstil), Separator and Clockgröße
> started without Settings over the Parameter "-nosettings", The Clock can itself move and Hide

so far sogut, Tray comes too soon with hopefully better Hotkey-Solution , I versteh' not, Why it The Leertaste and TAB not suppose wants but over SetHotkey settle can...

EDIT: almost forget, whom whole code Have I me looked through, unnecessary Procedures, Variables and functions deleted... hopefully everything debuggt, I schick whom code through XPSE, whether there what appears

EDIT: says only doppeldefinition the variables, is not bad there within whom Procedures The Variable declared and subsequently "disposed" becomes
Compile Mark Separation

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)

look time You could Registerhotkey benefit. [...]

and inquire and then The Tastenkombination the Edit utilize.

Georg
Teles

you become I do not believe but the Topic Have I already seen, the code without XPSE shining not at me To functions from welchem reason too always (XProfan 10.0) and XPSE have I do not tested, moreover must I everything in XPSE paraphrase take off me momentarily unmöglich To his shining xd

EDIT: the EXE example functions neither or have any Keys tested, the code reacted only on The DRUCK-Button and spending:
Tastaturcode: 44

EDIT: xD one be I stupid, Yes i'm too straight next to the track, the example shows indeed The pressure-Button ... no comment xd

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

is in the principle integrally easy. ^^
Compile Mark Separation

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

Runs by me under XProfan 8.

Georg
Teles

OK Have it now with IsKey resolved...Beta3 - Build 31.08.13
Hotkey takes now EMPTY and TAB on, TAB is think stupid because 1. Menu under the Fenstericon appear and 2. Fokus changes

Tray would superfluously or ? otherwise, missing yet what

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

08/31/13 ▲

Julian
Schmidt

How blende I the again at started one?
comes now nothing more.

08/31/13 ▲