mal wieder 'ne Uhr

[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

[Neutral General]

Zitat von 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.

Mein Screenshot ist ein Screenshot aus Delphi (siehe Timer und Imagelist Komponenten)!
Das ist kein Laufzeitfehler. Dein Formular IST so gebaut.
Die Image-Komponenten sind zu groß bzw. zu weit auseinander.

Mit deinem hochgeladenen Code/Formular KANN nicht das herauskommen was du oben auf deinen Screenshots zeigst!

[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.

[markus5766h]

Zitat von HolgerX:

... 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.

siehe Post #5 --> genau das hab' ich noch vor, allerdings will ich erst einen ganzen Zeichensatz generieren (Matrix als Array).

[Neutral General]

Zitat von 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?

Also bei mir sieht es mit deiner Änderung immer noch so aus: (siehe Anhang)
Habe eine 100% Skalierung in Windows eingestellt.

Edit: Auch mit einer 125% Skalierung (laut Windows Standard) sieht es bei mir immer noch aus wie im Anhang abgebildet.

[HolgerX]

Hmm..

@Neutral General
Bei mir mit Delphi6 sieht es aus wie es soll..
Keine Lücken zwischen den Images und die Größen passen..

Somit kann zumindest ich hier nicht weiterhelfen, was zum Verschieben der Images oder Verkleinern der angezeigten itmaps führt..

[markus5766h]

Hab' mir eben noch mal die *.dfm angesehen :
die Images sind da, wo sie hin gehören, lässt sich leicht nachrechnen.

[Neutral General]

Zitat von markus5766h:

Hab' mir eben noch mal die *.dfm angesehen :
die Images sind da, wo sie hin gehören, lässt sich leicht nachrechnen.

Ok img1 ist die erste Ziffer:

Zitat:

img1.Left = 20
img1.Width = 98
img1.Picture.Bitmap.Width = 80
img1.Stretch = false
img1.Autosize = false

rechts daneben ist "Image1", eine Trennspalte zwischen der ersten und 2. Ziffer.

Zitat:

Image1.Left = 118

und rein rechnerisch (!) ist da eine 18 Pixel große Lücke zwischen der ersten Ziffer und der Trennspalte zwischen erster und zweiter Ziffer.
Und diese Lücke ist auch sowohl im Form-Designer als auch zur Laufzeit deutlich zu sehen wie du auf den Screenshots hier sehen kannst.

Es KANN so also gar nicht stimmen.
Benutze zum Testen Windows 7 und Delphi 7. Windows-Skalierung: 100%

EDIT: Okay ich muss das ein oder andere zurücknehmen.
Wenn ich deinen Code runterlade hat img1 eine Breite von 80 Pixeln (statt 98) und img1.Left ist 18 und nicht 20.
Sobald ich das Projekt aber in Delphi 7 öffne steht Left = 20 und Width = 98 drin.

[markus5766h]

Zitat von Neutral General:

. . .
Wenn ich deinen Code runterlade hat img1 eine Breite von 80 Pixeln (statt 98) und img1.Left ist 18 und nicht 20.
Sobald ich das Projekt aber in Delphi 7 öffne steht Left = 20 und Width = 98 drin.

img1.Left muss aber 16 sein, alle Größen und Positionen sind durch 16 teilbar, da die Ursprungsgrafik eine LED
in den Abmessungen 16*16 Pixel war.