mal wieder 'ne Uhr

[markus5766h]

Moin aus Hamburg,

ich hatte mal gerad' ein wenig Zeit und war der Meinung, mein Desktop könnte mal wieder eine neue Uhr gebrauchen.
Im Anhang das Programm als RAR-Archiv, eine Vorschau und die Parameter als Textdatei.

Es wird keine Ini-Datei benötigt, alle Einstellungen werden über Start-Parameter mitgegeben,
siehe Anhang --> Parameter.txt


ohne Startparameter oder gültige Start-Parameter startet die Uhr wie folgt :
Position, Left=0, Top=0 auf aktuellem Desktop, Verschieben per Mouse deaktiviert, Farbe = 1 (grün)

vielleicht kann sie ja der Eine oder Andere gebrauchen . . .

. . . hab' jetzt noch den passenden Hintergrund angehangen :
wenn dieser (zugeschnitten) als Hintergrund benutzt - und die Position der Uhr im Raster von 16 px. vorgenommen wird,
ist die Uhr optisch im Hintergrund integriert --> siehe Anhang Vorschau_Desktop

[blawen]

Hallo

Ich habe Deine Uhr kurz gestartet. Bei mir fehlt die letzte Stelle (Einer).

[markus5766h]

Moin,
bei mir läuft sie ohne Probleme.
Was für ein BS ?

. . . wie geht das überhapt ?

Form :
Border Style := bsNONE
BorderICONS := []
Images.AutoSize := False
Images.Align := alNONE

und trotz dem sind die Images "auseinandergerissen" ?

[p80286]

Schön!

Hast Du mal erwogen den Source zu veröffentlichen?

Gruß
K-H

[markus5766h]

Zitat von p80286:

Schön!
Hast Du mal erwogen den Source zu veröffentlichen?

bitte schön

. . . ich hab' auch noch die Bitmaps drangehangen.
Momentan werden diese ja als ganze Ziffer gezeichnet,
ich werd' noch die Buchstaben und einige Zeichen generieren,
dann kann das Zeichnen der Werte als Matrix erfolgen.

[Neutral General]

Wie es aussieht ist das Bild in Image10 und Image11 zu kurz und im FormShow machst du das Formular zu klein, wodurch wie schon von einigen gemeldet die Sekundenziffer abgeschnitten wird.

[markus5766h]

Zitat von Neutral General:

Wie es aussieht ist das Bild in Image10 und Image11 zu kurz und im FormShow machst du das Formular zu klein, wodurch wie schon von einigen gemeldet die Sekundenziffer abgeschnitten wird.

Image10 : Left : 0, Top : 0, Height : 16, Width : 656
Image11 : Left : 0, Top : 128, Height : 16, Width : 656
Form:
ClientWidth : 656
ClientHeight : 144

nach Adam Riese passt das

merkwürdig aus dem Bild in Post 2 ist auch, dass die Images "auseinander gerissen" sind . . .

[Neutral General]

Hab dein Projekt geöffnet und es sieht bei mir so aus (siehe Anhang).
Das einzige was ich geändert hab ist, dass ich die Images testweise transparent gemacht habe, aber darum gehts nicht.

Das Bild reicht in Image10 und 11 reicht nur bis zur vorletzten Ziffer und du schneidest im FormShow auch an der roten Linie ab,
weswegen zur Laufzeit die letzte Ziffer nicht zu sehen ist.

[markus5766h]

Die Bitmaps in den Images haben die korrekte Größe,
die TImages sind nach dem Öffnen wohl vergrößert, warum auch immer . . .
Das kann ich nicht nachvollziehen, auch nicht mit den heruntergeladenen Archiven
--> siehe Anhang :
Archiv runtergeladen, in Delphi geöffnet, keine Sizing-Probleme

[HolgerX]

Hmm..

mit der hochgeladenen Version passt das mit der Breite bei mir, habe hier nur die fixe Breite und Höhe ersetzt:

Delphi-Quellcode:

  frmMain.ClientWidth := Image11.Width;
  frmMain.ClientHeight := Image11.Height + Image11.Top;

Kann das mit der ImageList in Verbindung mit der Skalierung unter Windows zusammenhängen?


Verbesserungsvorschläge:

Ich würde nur die Ziffern austauschen/neuzeichnen, welche sich seit der letzten Aktualisierung 'wirklich' verändert haben, dadurch flackert es nicht so.

Auch würde ich für den Hintergrund nicht mehrere einzelne Images nutzen, sondern eines, welches zu Begin einmal komplett mit den Dots gemalt wird.

Auch würde ich die Zahlen nicht komplett aus einer Image-List holen, sondern diese als Matrix mit einem 'Dot'-Image (eins je Farbe + Hintergrund) zusammen malen

Hier bräuchte man sogar nur die Dots zu malen, welche sich ändern.