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 ▲

- Seite 2 -

Georg
Teles

Hm hmmmmmm, also mit skalierung bin ich zu b*** unerfahren mein ich, glaube ich, habe nicht mal einen Ansatz xDD aber die Ecken abrunden das wusste ich schon

...

ich müsste ja die Maske auf ein Fenster vergrößert malen, wie soll ich dann herausfinden wie groß das da ist um es abzuspeichern ? und überhuapt wird das ja stören wenn man gerade "Live" beim Vergrößern der Clock ist und nach jedem Pixel, das man weiter zieht muss man ja mit der Maus neu ansetzten weil die ja loslassen würde, wenn ich jedes mal neuzechnen will, eben mit dem Fenster malen, vergrößern etc (und irgendwo wird ein Fenster blinken wo ich das draufzeichne xD) das ist mir glaube zu hoch, da muss ich schon xprofan viel mehr studieren ... ich lass das mal ohne skalierung ok ich hoffe es gibt keine Haue

das mit WorkArea gibts auch ein Problem, ich habe ja bereits die Usermessages $201,$205 und wenn ich 513 dazunehme geht das nicht, gibt es von der Message 513 eine angabe mit $ zufüllig ?
(mit $513 hab ich schon probiert, negativ

)

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

14.04.2013 ▲

Julian
Schmidt

Georg T. (14.04.13)

ich müsste ja die Maske auf ein Fenster vergrößert malen, wie soll ich dann herausfinden wie groß das da ist um es abzuspeichern ? und überhuapt wird das ja stören wenn man gerade "Live" beim Vergrößern der Clock ist und nach jedem Pixel, das man weiter zieht muss man ja mit der Maus neu ansetzten weil die ja loslassen würde, wenn ich jedes mal neuzechnen will, eben mit dem Fenster malen, vergrößern etc (und irgendwo wird ein Fenster blinken wo ich das draufzeichne xD) das ist mir glaube zu hoch, da muss ich schon xprofan viel mehr studieren ... ich lass das mal ohne skalierung ok ich hoffe es gibt keine Haue

Du kannst auch einfach ne Choicebox oder eine Trackbar wählen wo ein Vergrößerungsfaktor ausgewählt werden kann und beim Change-Ereignis nur Neuzeichnen.

Georg T. (14.04.13)

das mit WorkArea gibts auch ein Problem, ich habe ja bereits die Usermessages $201,$205 und wenn ich 513 dazunehme geht das nicht, gibt es von der Message 513 eine angabe mit $ zufüllig ?
(mit $513 hab ich schon probiert, negativ

)

Das vorgestellte $ vor den Usermessages bedeutet das es sich um eine Zahl aus dem 16-Systen ergo Hexadezimalsystem handelt. Im Prinzip ist es egal ob die Messagenummer als Hexadezimalzahl oder Dezimalzahl angegeben wird.
Siehe auch.
Kompilieren Markieren Separieren

cls
print hex$(513)
print $201
waitinput

Die Zahl 513 Basis 10 wäre 201 Basis 16. Da die Message $201 schon in der Liste eingetragen ist, wird der Fehler wahrscheinlich woanders liegen.

Was ist damit?

Julian Schmidt (03.04.13)

Wäre praktisch wenn man das Tool per Tastendruck solange die Taste gedrückt ist ausblenden kann um in Ruhe den Fenstertitel lesen zu können.

Gruß

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

14.04.2013 ▲

Georg
Teles

oh man bin ich unterbelichtet

alles klar, danke Julian, das funktioniert jetzt...
ok, dann schau ich mal, wie ich die Skalierung realisieren kann... hmm, dann kann ich ja einfach welche basteln zB.

0,1x 0,2x 0,3x 0,4x 0,5x 0,6x ... 1x 2x 5x 10x Fache Vergrößerung, und wenns langweilig werden sollte alles in 0,1 Schritten xD ... aber das wär die Lösung, all diese Masken vorfertigen und mitliefern, kein Problem, die Zahlen einfach mit DrawSizedPic vergrößern / verkleinern...

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

14.04.2013 ▲

Georg
Teles

OK es funktioniert mit der Vergrößerung in 0.1er Schritten.
Bei manchen Faktoren sehen die Ziffern nicht besonders gut aus weil DrawSizedPic, egal, dafür werde ich jetzt nicht für je Faktor jede Ziffer mit msPaint bearbeiten das würde dauern damit es perfekt aussieht geschweige all die Bitmaps einzeln in ResHacker per Hand in die Runtime zu packen, das wären dann allein bei Faktor 0.1 von 0.5 bis 2.5 dann 10*22 Bitmaps = 220 Bitmaps xD

Allerdings muss ich erstmal weiterfummeln, damit es wenigstens mit DrawSizedPic ordentlich geht ...

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Klingt gut. Nur kann es sein das du noch nicht die neue Version hochgeladen hast? Find zumindest nicht die Einstellungsmöglichkeit.

Georg
Teles

OK gerade die neuste die ich habe hochgeladen, da sind ein paar Sachen verbessert worden, wenn man von HHMM zu HHMMSS switcht, dann wird das Fenster zentriert gesetzt ... noch was, danke Julian für die Funktion WorkArea, das ist jetzt drin, hoffe unter Win8 geht das, ach du schreck, hab ja selber unter Win7 nicht getestet

EDIT: Win7 geht einwandfrei, dann wird es unter 8 auch funktionieren, hoffe ich doch.
zu Testzwecken hab ich noch nix wo man es anschauen kann, mit der Vergrößerung, hab meine COdes erstmal allgemein angepasst, dass man die Vergrößerung berücksichtigt sry Julian ^^

hier die 0.5-Fache vergrößerung (od. Verkleinerung, je nach dem)

05.jpg	4 kB

Hochgeladen:	01.05.2013

Ladeanzahl:
		Herunterladen

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

Julian
Schmidt

Kein Problem.
Mir fällt bei der Version auf, dass die Choiceboxen ab und zu von ganz alleine wieder zuklappen. Einfach ein paar mal probieren. Hoffe du kannst das reproduzieren.
Außerdem:

Julian Schmidt (03.04.13)

Wäre praktisch wenn man das Tool per Tastendruck solange die Taste gedrückt ist ausblenden kann um in Ruhe den Fenstertitel lesen zu können.

Georg
Teles

Aaah ja, habe gerade gemerkt dass es bei alles Versionen so ist, ich versuch ja die Auswahlen in "Echtzeit" zu zeigen, da muss ich mal was kurz umschreiben.

Wäre praktisch wenn man das Tool per Tastendruck solange die Taste gedrückt ist ausblenden kann um in Ruhe den Fenstertitel lesen zu können.

ah sry das habe ich überlesen, ich suche gerade nach einer Möglichkeit, mit
Kompilieren Markieren Separieren

Def @GetAsyncKeyState(1) !"User32","GetAsyncKeyState"

If GetAsyncKeyState(<TastenCode>)<>0

    ...

gehts zwar aber ich will beim Tastendruck, wenn man gedrückt lässt, die Clock ausblenden und beim loslassen wieder anzeigen lassen ... ich suche mal nach einer Möglichkeit

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

02.05.2013 ▲

Georg
Teles

Vergrößerung funktioniert, das ist aber eine fummellige Arbeit, bin bei weitem nicht fertig Damit ...

-> Clock ausblenden beim Tastendruck: habe noch keine Lösung gefunden
-> Bugs mit ChoiceBox, aufklappen / einklappen, weiss nicht woran es liegt, tritt bei XP und 7 auf jeden Fall auf
hier mal ein Testcode:
Kompilieren Markieren Separieren

If Clicked(m_d&)'ChoiceBox wird angeklickt

    Ifnot Upper$(GetText$(m_d&)) = Upper$(mod$)'wenn Eintrag der ChoiceBox NICHT gleich des Wertes vorher

        mod$ = GetText$(m_d&)
        'mask(stl$,mod$,1) 'Maske wird erstellt
        'init_z() 'Zahlenbilder neu eingelesen
        'SetTransparent %HWnd,tra$ 'Transparenz
        'wdi_() 'Fenster positioniert
        'draw() 'Neugezeichnung, samt Zahlen
        SetFocus(m_d&)'Fokus wieder auf die ChoiceBox <--- hier ist vielleicht das Problem ???

    EndIf

EndIf

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

20.05.2013 ▲

Julian
Schmidt

Zu der Choicebox-Geschichte. Einfach das Clickereignis rauslassen. Dann schließt es sich auch nicht wieder wenn du den Fokus neusetzt.
Kompilieren Markieren Separieren

CLS
Var m_d&=Create("ChoiceBox", %hwnd, 0, 10, 10, 100, 100)

whileloop 10

    AddString(m_d&,Str$(&loop))

EndWhile

Var mod$=GetText$(m_d&)

WhileNot iskey(27)

    Waitinput 500

    Ifnot GetText$(m_d&) = mod$

        waitinput
        print "Kommandos ausführen"
        mod$ = GetText$(m_d&)

    EndIf

Endwhile

Tastendruck vlt mit
Kompilieren Markieren Separieren

cls
external("user32.dll","RegisterHotKey",%hWnd,222,1,32)
usermessages 786'wm_hotkey

while 1

    Waitinput 500

    if %uMessage=786

        ShowWindow(%hwnd,0)

    Else

        ShowWindow(%hwnd,1)

    endif

Endwhile

Weißt du schon was du für eine Tastenkombination verwendest? Ich habe oben Alt+Leertaste verwendet.

20.05.2013 ▲

Georg
Teles

Verzeihung, hatte keine Zeit für die Clockbar aber nu hab ich die Fehler mit den Choice-Boxen behoben (hoffentlich

)
@Julian: folgende Wünsche konnte ich noch nicht erfüllen:

> Vergrößerung / Verkleinerung (geht, brauche Zeit für

)
> Taste zum Ausblenden (wie weiss ich schon)

daher ist diese Version Beta, also Update ist oben

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

26.07.2013 ▲