[Open-Source / Fun] - Desktop Clock

[turboPASCAL]

Hi,

Nach einer Programmidee von mir habe ich aus nicht auszuhaltender
Langeweile und Programierwahn "schnell" mal ein kleines Programm
gestrickt.

• Was machts:
  - 'ne Uhrzeit auf dem Desktop.
  
  
  Features:
  - nonVCL - Programierung
  - eine eigene Mini - GDIPlus Unit (dynamisch geladene Functionen und Proceduren) [MiniGDIPlus.pas]
  - Positionierung (Verschieben) per Maus
  - Exit Menue mit links klick der Maus
  - speichern der akt. Position in einer Ini-Datei im Programmordner
  - zeigt die aktuelle Uhrzeit und Datum an
  
  
  Screenshot:
  - macht euch selbst einen.
  
  
  Programmierstatus:
  - Abgeschlossen, Weiterentwicklung vorerst eingestellt
  
  Sinn & Zweck:
  - keine Ahnung
  
  Was kostet der Spass:
  - ~1,25h Entwicklungszeit des Programierers

[Valle]

Hi turboPASCAL, :hi:

ich habe mir das Programm mal angeschaut. Eigentlich ist es ja ganz gut, aber einige Dinge würde ich mir noch wünschen.

Zum einen ist die Schrift leider sehr pixelig, das sieht irgendwie nicht schön aus. Besonders auch, weil ich kein Hintergrund-Bild habe, sondern Windows' Standard-Blau. Kann man da nicht noch ein Anti-Aliasing einbauen?

Dann fehlt mir noch ein Optionen Dialog. Welche Farbe hat die Schrift, Wie groß ist sie, ist sie kursiv, unterstrichen oder sonstwas und welche Schriftart hat sie? Man könnte das noch erweitern, indem man ein eigenes Format einstellen kann, d.h. also die Linie zwischen Zeit und Datum hinmachen kann wo man will, usw.

Außerdem habe ich das Gefühl, die Uhr ändert nicht jede Sekunde ihre Zeit, sondern brauch manchmal ein wenig mehr und manchmal ein wenig weniger. Ich denke du hast das wohl mit einem Timer gemacht, der so (geschätzte) alle halbe Sekunde neu zeichnet?

Zitat:

Zitat von turboPASCAL

*heul* keiner hat eine Meinung zu meiner Desktopuhr... jaja ich weiss alles ausser Delphi *heul* aber ich habe mir doch so Mühe gegeben *heul* Ich hol mir erst mal 'n Eis *schluchts* *heul* :( ;-)

So, jetzt haste eine Meinung. ;-)

Mit freundlichen Grüßen,

Valle

[turboPASCAL]

*heul* da hat wohl einer die SB gelesen...
LOL

Zitat:

aber einige Dinge würde ich mir noch wünschen.

Nur gegen Aufpreis.

:mrgreen:

[Sherlock]

Im Programmordner solltest Du die Ini aber nicht abspeichern. Spätestens bei Vista landet die ja sowieso wo ganz anders. Besser wäre es doch in %APPDATA% oder so. Dann ist das ganze ganz von alleine auch noch Userabhängig ;)

Sherlock

[STS301]

es wäre ein Menü bezüglich Schriftgröße, Farbe usw wünschenswert.

Ist dir so langweilig oder hast du so zu viel Freizeit??? :?:

[turboPASCAL]

Zitat:

Zitat von STS301

Ist dir so langweilig oder hast du so zu viel Freizeit??? :?:

Beides, verordnete Freizeit vom Dr. :stupid:

[BullsEye]

hm iwie kommt mir die Programmidee sehr bekanntvor.... :gruebel:

Aber gute Umsetzung ;)

[STS301]

Zitat:

Zitat von turboPASCAL

Zitat:

Zitat von STS301

Ist dir so langweilig oder hast du so zu viel Freizeit??? :?:

Beides, verordnete Freizeit vom Dr. :stupid:

Dann gute Besserung

Ich werde es vl. verusuchen deinen Fisch in Lazarus umzuschreiben, ist das ok?

[turboPASCAL]

Danke.

Kannst du von mir aus machen wie du möchtest.

[lbccaleb]

Hallo,

kann Jemand sagen, warum das Ding unter Windows 7 nicht mehr funktioniert?
:shock:

[himitsu]

Was funktioniert denn nicht? Fehlermeldungen?

[schlagzu]

Ja, es haut ungefähr 30 mal Runtime Error 201 (Sehe Screen) und geht zu.

MfG schlagzu

[himitsu]

Runtime Error 201 > reRangeError > ERangeError > Indexfehler z.B. in einem Array

Nja, da hier jemand zwanghaft auf die böse SysUtils verzichten wollte, gibt es zwar eine kleiner Datei, aber dafür eben auch keine "ordentlichen" Exceptions und auch keine Exceptionbehandung.
Ergebnis: Es raucht gleich ab und man weiß nicht wo ... nichtmal das Debuggen ist schön, da der Debugger auf Exceptions und nicht auf diesen Systemfehler reagiert.


Der Fehler:

Delphi-Quellcode:

const
  dow: array [1..7] of String = (
    'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag', 'Sonntag');

function MakeDate: String;
begin
  // GetDateTime;

  Result := format('%s, %d. %s %d',
    [dow[lpSysTime.wDayOfWeek], lpSysTime.wDay, moj[lpSysTime.wMonth], lpSysTime.wYear]);
end;

lpSysTime.wDayOfWeek zählt aber von 0 bis 6 (Sonntag = Wochenanfang) und das ist schon immer so, es knallt also überall und in jeder Windowsversion, wenn gerade Sonntag ist.

Lösung:

Delphi-Quellcode:

  dow: array [0..6] of String = (
    'Sonntag', 'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag');

Nachgesehn ... der 7. Okt. 2008 war ein Dienstag und da sich wohl niemand mehr bis zum / an einem Sonntag mit diesem Programm beschäftigt hat ........ :stupid:

[lbccaleb]

Danke himitsu, das wars...

Ich hab da gestern Nacht zwanghaft den Fehler bei Windows gesucht -.-

Nun gehts wieder....

[himitsu]

Was arbeitest du auch an einem Sonntag?
Hättest'e noch bis Montag gewartet, wäre der Fehler von selber verschwunden. :lol:

[Luckie]

Ein Grund könnte auch sein:

Zitat:

speichern der akt. Position in einer Ini-Datei im Programmordner

Sollte aber schon bei mir unter XP nicht funktionieren.

[himitsu]

Für ein "einmal ausprobieren"-Tool ist das ja OK, daß nirgendwo im System irgendwelche Daten rumliegen und dann zurückbleiben. :thumb:
Wenn man diese Clock z.B. in den Programme-Ordner installieren will, dann hast du natürlich Recht.

[EWeiss]

Zitat:

Zitat von himitsu (Beitrag 1139231)

Was arbeitest du auch an einem Sonntag?
Hättest'e noch bis Montag gewartet, wäre der Fehler von selber verschwunden. :lol:

Was denn nu?
Sonntag oder SonTag ... hehehehe

gruss