AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte mal wieder 'ne Uhr

mal wieder 'ne Uhr

Ein Thema von markus5766h · begonnen am 20. Mär 2016 · letzter Beitrag vom 22. Mär 2016
Antwort Antwort
Seite 3 von 3     123
Benutzerbild von markus5766h
markus5766h
Registriert seit: 5. Mär 2009
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
Miniaturansicht angehängter Grafiken
4_clocks.jpg   bg_dclock_1920x1080.jpg   vorschau_desktop.jpg  
Angehängte Dateien
Dateityp: txt Parameter.txt (664 Bytes, 37x aufgerufen)
Dateityp: rar DClock_scaled_false.rar (197,0 KB, 30x aufgerufen)

Geändert von markus5766h (22. Mär 2016 um 10:26 Uhr)
 
Benutzerbild von markus5766h
markus5766h

 
Delphi XE8 Professional
 
#21
  Alt 21. Mär 2016, 17:56
. . . kann man so machen, aber ist IMHO nicht das, was ich mit Delphi erreichen will.
Wenn ich zur Entwurfszeit TImages mit einer festen Breite und Höhe - und einer Bitmap drin - erstelle,
dann möchte ich das auch so zur Laufzeit sehen - keinesfalls aber an anderer Position oder / und mit anderer Größe.
Mal weiter gedacht : wenn ich das mit allen visuellen Komponenten machen soll - tipp ich mir 'nen Wolf.
Das Formular hat eine feste Größe, also sollte sich da auch nichts ändern!
Markus H.
  Mit Zitat antworten Zitat
bcvs

 
Delphi 12 Athens
 
#22
  Alt 21. Mär 2016, 18:01
Da schlägt die Skalierung von Windows zu.

Ich konnte hier folgendes nachvollzieren:

Win7:
Bildschirmskalierung 125% : Bitmaps verschoben
Bildschirmskalierung 100% : Bitmaps OK

Win10:
DClock.exe original
alle Bildschirmauflösungen OK, Bitmaps verden skaliert

Dann habe ich unter Win 10 mein DPI-Aware-Maifest hinzugefügt (mit D2007) und dann waren die Bitmaps bei 125% wieder verschoben. Seltsamerweise bei 100% dann auch, wobei da auch das Popup-Menü vergrößert war. Windowes merkt sich hier anscheinend irgendeine Skalierungs-Einstellung.

Vielleicht haben neuere Delphi-Versionen von Haus aus dieses DPI-Aware-Mainfest drin, so dass es zu diesen unterschiedlichen Beobachtungen kommt.

Setzt mal einfach Scaled:=false ; dann müsste es besser aussehen.
  Mit Zitat antworten Zitat
nahpets
 
#23
  Alt 21. Mär 2016, 18:14
Zitat von markus5766h:
... kann man so machen, aber ist IMHO nicht das, was ich mit Delphi erreichen will.
Wenn ich zur Entwurfszeit TImages mit einer festen Breite und Höhe - und einer Bitmap drin - erstelle,
dann möchte ich das auch so zur Laufzeit sehen - keinesfalls aber an anderer Position oder / und mit anderer Größe.
Mal weiter gedacht : wenn ich das mit allen visuellen Komponenten machen soll - tipp ich mir 'nen Wolf.
Das Formular hat eine feste Größe, also sollte sich da auch nichts ändern!
Nein, so ganz stimmt das nicht.

Wenn ich möchte, dass alles passend oben, rechts, links, unten ist, dann arbeite ich mit Align. Dann ist es auch egal, ob der Anwender die gleiche Auflösung, die gleiche Schriftgröße, Skalierung... hat, wie ich, zur Zeit der Entwicklung, oder eben nicht.

Eigentlich gehört das obere Bild auf ein Panel, ebenso das untere auf ein anderes. Die "Ziffernreihe" gehört ebenfalls auf ein Panel. Alle Bilder bekommen dann Align := alLeft und schon befinden sie sich schön nebeneinander und eine veränderte Breite ist wurscht.

Das Grundsätzliche Problem liegt hier (vermutlich) auch nicht bei Delphi.

Habe die Sourcen auf Platte gespeichert, ausgepackt, mit Delphi geöffnet und F9 gedrückt.

Anschließend habe ich die Uhr korrekt angezeigt bekommen. Bei meiner Delphiversion und der Windowskonfiguration scheint es also zu klappen.

Wenn jemand anderes aber die Exe aus dem Forum geholt hat, und die dann startet und anschließend die Optik zerschossen ist, so liegt das nicht an Delphi.
Bei mir hat auch die Exe aus dem Forum einwandfrei ausgesehen.

Geändert von nahpets (21. Mär 2016 um 20:10 Uhr) Grund: Schreibfehler behoben
  Mit Zitat antworten Zitat
HolgerX

 
Delphi 6 Professional
 
#24
  Alt 21. Mär 2016, 19:53
Hmm..

Also war meine Vermutung mit dem Scaling nicht ganz verkehrt..

Das die Bitmaps in den Images geblieben sind wie sie sollen, ist schon mal beruhigend.
Das durch das Scaling die Position und Größe der Controls beim Öffnen der Form verändert wird ist da schon ärgerlich.

Deshalb alles mit 100% entwickeln.

Es war in Vergangenheit auch aufgefallen, wenn eine Form auf WinXP designt wurde und diese dann auf Win7 geöffnet wurde, dann haben sich auch diverse Positionen leicht verändert.

Fazit:
Nutze nur ein Image für deine Uhr und male darauf den Hintergrund und die Zahlen absolut, dann kann Windows vergrößern was will, wenn das Image AutoSize hat, passt es sich am TBitmap an
  Mit Zitat antworten Zitat
Benutzerbild von markus5766h
markus5766h

 
Delphi XE8 Professional
 
#25
  Alt 22. Mär 2016, 10:25
... ja, das mit dem Scaling ist mir vorher nie aufgefallen,
nutze immer eine Scalierung von 100 %

Rar-Archiv im ersten Post aktualisiert, scaled = False
Markus H.

Geändert von markus5766h (22. Mär 2016 um 10:27 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

 
Delphi 10.2 Tokyo Professional
 
#26
  Alt 22. Mär 2016, 11:01
... ja, das mit dem Scaling ist mir vorher nie aufgefallen,
nutze immer eine Scalierung von 100 %

Rar-Archiv im ersten Post aktualisiert, scaled = False
Hat für mich nichts geändert. Der Abstand ist in der exe drin.
Michael
  Mit Zitat antworten Zitat
bcvs

 
Delphi 12 Athens
 
#27
  Alt 22. Mär 2016, 12:20
Die neue Exe funktioniert ist mir unter Win10 in allen Auflösungen OK.

Unter Win7 mit 125% sind die Bitmaps auseinandergerissen.

Wenn ich es aber mit D2007 selbst kompiliere und Scaled auf false setze, ist alles OK.
  Mit Zitat antworten Zitat
Benutzerbild von markus5766h
markus5766h

 
Delphi XE8 Professional
 
#28
  Alt 22. Mär 2016, 20:35
... wie schon angesprochen, ist das Neuzeichnen ganzer Bitmaps nicht so das Wahre . . . (war ja auch nur mal auf die Schnelle).
Mit angehängtem Programm lässt sich ein Array[0..127, 1..48] erstellen,
welches für die Ordinalwerte 0 bis 127 dann das entsprechende Zeichen in einer Matrix von 6*8 Punkten darstellt.
Das Array kann gespeichert oder in die Zwischenablage kopiert werden, um es dann in einer Unit unter CONST einzufügen.
Die Matrix wird einfach durch Klick auf die entsprechenden Punkte erstellt und kann dann im Array gespeichert werden.
Für die Vorschau (zeige Zeichentabelle) wird eine Auflösung von 1600 * 900 px benötigt.
Im Archiv sind die Bitmap-Sourcen enthalten.
Die Vorschau arbeitet in einem Raster von 10px*10px, die Ursprungs-Led's haben 16px * 16px.
In der Datei Matrix_2.txt sind schon einige Zeichen definiert, können aber überschrieben werden.
Die Dateien "LED_SW_10px.bmp" und "LED_GN_10px.bmp" werden vom Programm geladen !
Miniaturansicht angehängter Grafiken
preview1.jpg   preview2.jpg  
Angehängte Dateien
Dateityp: rar Matrix_6x8.rar (178,4 KB, 10x aufgerufen)
Markus H.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz