dgTeaTime - Version 0.1

[Mithrandir]

dgTeaTime - Version 0.1
http://apps.danielgilbert.de/dgteatime

Hi ihr,

Wer viel vor dem Pc sitzt und gerne Tee trinkt, kennt das: Man sitzt und arbeitet, und irgendwann fällt einem ein, dass man ja den Tee vergessen hat. Der hat nun mittlerweile ne halbe Stunde gezogen, ist lauwarm und schmeckt überhaupt nicht mehr.

Die Linuxer haben ein Programm, was an das geliebte Getränk erinnert, es heißt KTeaTime. dgTeaTime ist das Pendant für Windows. Der Aufbau erinnert sehr an die Vorlage.

Benutzung

Die Benutzung ist recht simpel: Zeit einstellen und auf "Timer starten" drücken. Ihr könnt auch einen schon vordefinierten Tee auswählen.

Über die Schaltflächen "+", "-" und "Änderung speichern" könnt ihr neue Tees hinzufügen, Vorhandene löschen oder entsprechend bearbeiten.

Man kann das Fenster wahlweise offen lassen, oder minimieren. Das minimierte Fenster verschwindet dann komplett in die TNA.

In der TNA wird ein kleiner Becher angezeigt. Wird der Timer gestartet, färbt sich der Inhalt des Bechers bis zum festgelegten Zeitpunkt immer dunkler.
Das Programm fragt beim ersten Start nach dem Speicherort der "Teas.ini". Es empfiehlt sich zum Testen, die gestellte Frage mit "Ja" zu beantworten.

P.S.: Da ohne Verwendung der VCL geschrieben, kommt das Programm mit kleinen 122 kb aus.

Download & Screenshot

Download
Version 0.1 (Zip-Paket) [58 kb]
Source Code (Zip-Paket) [156 kb]

Screenshot
Screenshot Hauptfenster [16,97 kb]


Über Kritik und Lob sowie Anregungen würde ich mich natürlich freuen.

[turboPASCAL]

Nettel Teil.
Aber für mein ab 18 & 18.00Uhr Tee-Kaltgetränk nicht geeignet.

Ich habe einen Minifehler gefunden. Du solltest bei:

Delphi-Quellcode:

function DisplayTime(sTime: Integer): Pchar;
var
  Tmp: String;
begin
  Tmp := IntToStr(sTime div 60) + ' m '; // <--<< deswegen
  If (sTime mod 60) <> 0 then
    Tmp := Tmp + IntToStr(sTime mod 60) + ' s';
  Result := PChar(Tmp + #0); // <--<< hier mal noch eine #0 dazu
end;

den String Terminieren. Sonst kann es vorkommen das sich seltsame Zeichen einschleichen.

[Mithrandir]

Hoppla.

Danke.