ClockUtils.pas

[Dax]

Ich habe hier eine Unit, die Texte in den Bereich zeichnen kann, der normalerweise von der Windows-Uhr belegt ist, mit entsprechenden Kentnissen kann man auch t.B. über die TCanvas selbst zeichnen.

Die Unit hat 7 Methoden:

• procedure Create(Parent: HWND): Der erste Aufruf in der Unit muss diese Prozedur sein, ansonsten sind die restlichen Funktionen wertlos. Als Parent muss das Fenster-Handle des Aufrufers übergeben werden, ansonsten wird die Uhr nach dem schließen des Programms nicht wieder auftauchen.
• procedure Destroy: Setzt alles in den Urzustand zurück: Uhr in der TNA, vorheriger gezeichneter Inhalt weg.
• procedure DrawClockText(Text: PChar): Der Inhalt von Text wird in den Uhrbereich gezeichnet, wenn es nicht in eine Zeile passt, wird umgebrochen.
• procedure ChangeFont(FontName: PChar; Bold, Italic, Underline, Strikeout: Boolean; Size: DWORD; Width: DWORD = 0): Verändert die Schriftart des Textes anhand der Übergeben Parameter. Width ist die Weite der einzelnen Zeichen, mit 0 seid ihr gut beraten.
• procedure ChangeFont(Font: HFONT): Selbe Funktion wie oben, nur muss hier ein Font-Handle übergeben werden, z.B. ein TFont.Handle.
• function GetClockDC: HDC : Gibt das Canvas-Handle des Zeichenbereiches zurück, darauf könnt ihr euch austoben. Nie zerstören!
• function GetClockHandle: HWND : Gibt das Fensterhandle des Zeichenbreiches zurück. Nie zerstören!

Es gibt auch zwei Vaiablen:

• MouseProc: TWndProc ist eine Fensterprozedur, wie sie in der Windows-API verwendet wird. WndProc Procedure
• UpdateTime: Cardinal ist der temporäre Abstand zwischen zwei kompletten Repaints des Zeichenfeldes. Beim Verändern der Taskbar wird automatisch neu gezeichnet.

So, jetzt aber genug der Worte, schreiten wir zur Tat. Eine Demo habe ich leider noch nicht fertig, und wenn Fehler auftreten, bitte sagts mir.

[edit]Nachdem es mit der DLL Probleme gab, wird jetzt die Unit veröffentlicht. @MODs: Bitte nach OpenSource verschieben. [/edit]

[Luckie]

Eine Demo hat man doch automatisch, wenn man die DLL schreibt.

[sailxia]

can anyone show a DEMO with this unit ？

[Daniel G]

Hi,

that's really a quick'n'dirty Demo, but it works.

[sailxia]

Zitat von Daniel G:

Hi,

that's really a quick'n'dirty Demo, but it works.

Thank you very much!

[Sascha L]

Hab mir jetzt nur die Prozedur-Parameter angesehen und ich würde die Typen ändern!

Es ist doch umständlich, wenn ich z.B.

procedure DrawClockText(PChar('TEST')): aufrufen muss.

Besser wäre, wenn man dort direkt einen String angeben kann, und du dann in der Prozedur selbst die Umwandlung vornimmst.

[Daniel G]

Zitat von Sascha L:

Besser wäre, wenn man dort direkt einen String angeben kann, und du dann in der Prozedur selbst die Umwandlung vornimmst.

Kann man doch, siehe Demo. Zumindestens der Typ "TCaption" klappt ohne weiteres...

[Tueti]

Ich finde die Unit klasse, aber mich würde interessieren ob es irgendwie möglich ist, die Größe des Anzeigefensters der TrayUhr zu ändern. So dass man Beispeilsweise Strings mit 50 Zeichen anzeigen kann. Es ist etwas übertrieben, es soll aber verdeulichen was ich meine.
Danke schon mal im vorraus.

[Cyberbob]

Wenn ich einen Text in den TNA geschrieben habe und will dann einen neuen Text schreiben, wird der alte Text nicht gelöscht, sodass beide Texte nun übereinander sichtbar sind.