AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Formulargröße auf HighDPI-Monitor speichern
Thema durchsuchen
Ansicht
Themen-Optionen

Formulargröße auf HighDPI-Monitor speichern

Ein Thema von DieDolly · begonnen am 6. Apr 2019 · letzter Beitrag vom 13. Apr 2019
Antwort Antwort
Seite 1 von 2  1 2      
EWeiss
(Gast)

n/a Beiträge
 
#1

AW: Formulargröße auf HighDPI-Monitor speichern

  Alt 6. Apr 2019, 16:44
Leider kenne ich mich mit C++ kein bisschen aus. Deswegen sagen mir weder diese Funktionen was noch die Variablen.
Na dann..
Delphi-Quellcode:
function dpi(nPix: Integer): Integer; (oder(LongInt ))
var
  ratio: Single;
  DC: HDC;
begin

  if (ratio = 0) then
  begin
    DC := GetDC(0);
    ratio := (GetDeviceCaps(DC, LOGPIXELSX) / 96.0);
    ReleaseDC(0, hDC);
  end;
  result := nPix * ratio;
end;
 ratio: Single;

global definieren.
Dafür brauche ich nicht mal ein Manifest.. muss halt nur drauf achten das ich jedes Control durch diese Funktion jage.

Zitat:
Du berechnest
l1 := 96/144*1575 = 1050
OH schreck das macht doch die Funktion GetDeviceCaps da muss man nichts berechnen.
GetDC(0) ist das DC des Desktop.
Von der Auflösung des Desktop wird dann über GetDeviceCaps(GetDeviceCaps(DC, LOGPIXELSX)) die DPI zurückgegeben.
Diese noch durch 96.0 teilen und fertig.

gruss

Geändert von EWeiss ( 6. Apr 2019 um 16:59 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.675 Beiträge
 
Delphi 12 Athens
 
#2

AW: Formulargröße auf HighDPI-Monitor speichern

  Alt 6. Apr 2019, 16:53
Delphi-Quellcode:
    DC := GetDC(0);
    ratio := (GetDeviceCaps(DC, LOGPIXELSX) / 96.0f);
Das gibt aber nicht zwingend die aktuelle DPI des Monitors an, auf dem das Form gerade sichtbar ist, oder?

Ich hatte es so verstanden, daß es genau darum ging:
Verschiebe ich mein Formular auf meinen 150% DPI-Monitor und beende das Programm, wird die Formulargröße viel zu groß gespeichert.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#3

AW: Formulargröße auf HighDPI-Monitor speichern

  Alt 6. Apr 2019, 17:00
Zitat:
Das gibt aber nicht zwingend die aktuelle DPI des Monitors an, auf dem das Form gerade sichtbar ist, oder?
Klar siehe

Zitat:
Number of pixels per logical inch along the screen width. In a system with multiple display monitors, this value is the same for all monitors.
Zitat:
Number of pixels per logical inch along the screen height. In a system with multiple display monitors, this value is the same for all monitors.
gruss

Geändert von EWeiss ( 6. Apr 2019 um 17:10 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.675 Beiträge
 
Delphi 12 Athens
 
#4

AW: Formulargröße auf HighDPI-Monitor speichern

  Alt 6. Apr 2019, 17:51
Zitat:
Number of pixels per logical inch along the screen width. In a system with multiple display monitors, this value is the same for all monitors.
Das unterstreicht meinen Einwand aber doch gerade! Der Wert ist für alle Monitore derselbe, also bekommt man eben nicht den für den jeweiligen Monitor relevanten Wert, sondern einen systemweit gültigen.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#5

AW: Formulargröße auf HighDPI-Monitor speichern

  Alt 6. Apr 2019, 19:57
Zitat:
sondern einen systemweit gültigen.
Nun gut reicht das nicht?
Ich habe kein Problem da ich mich NUR mit einem rumschlage.
Ich möchte nicht im Elektrosmog untergehen.

gruss
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#6

AW: Formulargröße auf HighDPI-Monitor speichern

  Alt 6. Apr 2019, 20:22
Früher hatte ich auch nur einen Monitor. Mittlerweile einen 24" und einen 21". Den zweiten möchte ich nicht mehr missen.
1x Delphi links, 1x rechts oder auf dem anderen Sublime oder irgendwas anderes.
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#7

AW: Formulargröße auf HighDPI-Monitor speichern

  Alt 6. Apr 2019, 17:01
Ich habe mir eure Funktionen jetzt nochmal genau angeguckt, selber nachgerechnet und ja, ich bin dumm wie Stroh. ich bin halt ein mathematisches Anti-Wunderkind im erhöhten Alter
Ich versuche hier die ganze Zeit Prozentrechnung und wundere mich, warum ich nicht zurück auf 1050 komme.

MultiDiv scheint genau das zu tun, was Michael schrieb. Leider kann man in die Quelltexte von MultiDiv nicht reingucken. Wenn ich das richtig verstehe, ist MultiDiv auch plattformspezifisch.

Meine zwei neuen Funktionen, die mir sicher oft noch weiterhelfen werden
Delphi-Quellcode:
// Plattformunabhängiges MultiDiv, Uwe Raabe, Michael II@ DelphiPraxis.net
function TMathUtils.MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer;
begin
 Result := Round((nNumber / nNumerator) * nDenominator);
end;

// Diese Funktion nutze ich aktuell dort, wo ich vorher nur ScaleBy nutzte
procedure TFormUtils.ScaleForm(const Form: TForm; const NewDPI, CurrentDPI: Integer);
begin
 if NewDPI <> CurrentDPI then
  begin
   SendMessage(Form.Handle, WM_SETREDRAW, WPARAM(False), 0); // LockWindow nutze ich nicht wegen, siehe ***
   try
    aForm.ScaleBy(NewDPI, CurrentDPI);
   finally
    SendMessage(Form.Handle, WM_SETREDRAW, WPARAM(True), 0);
   end;
  end;
end;
***
Zitat:
LockWindowUpdate was designed to stop drawing for drag and drop, it goes a bit further than WM_SETREDRAW because it could make assumptions about what the user was doing. One assumption was that since a drag and drop was occurring, window moving could be disabled/ignored. You can still drag a window around that has WM_SETREDRAW set to false.

@https://stackoverflow.com/questions/3792217/how-can-i-disable-screen-update-which-updating-a-lot-of-controls
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#8

AW: Formulargröße auf HighDPI-Monitor speichern

  Alt 6. Apr 2019, 17:07
Versteh nicht was du da tust aber gut..
Was hat das verhindern von Zeichnungs Operationen nun mit dem Skalieren der Form zu tun?
Ok bin raus das driftet ab.

gruss

Geändert von EWeiss ( 6. Apr 2019 um 17:09 Uhr)
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#9

AW: Formulargröße auf HighDPI-Monitor speichern

  Alt 6. Apr 2019, 17:09
Zitat:
Was hat das verhindern von Zeichen Operationen nun mit dem Skalieren der Form zu tun?
Als dreckigen Workaround hatte ich vorher ScaleBy benutzt. Und um das sichtbare Neuzeichnen zu verbergen, habe ich mir diese Prozedur geschrieben.
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.175 Beiträge
 
#10

AW: Formulargröße auf HighDPI-Monitor speichern

  Alt 13. Apr 2019, 20:20
Ich habe mir eure Funktionen jetzt nochmal genau angeguckt, selber nachgerechnet und ja, ich bin dumm wie Stroh. ich bin halt ein mathematisches Anti-Wunderkind im erhöhten Alter
Ich versuche hier die ganze Zeit Prozentrechnung und wundere mich, warum ich nicht zurück auf 1050 komme.

MultiDiv scheint genau das zu tun, was Michael schrieb. Leider kann man in die Quelltexte von MultiDiv nicht reingucken. Wenn ich das richtig verstehe, ist MultiDiv auch plattformspezifisch.

Meine zwei neuen Funktionen, die mir sicher oft noch weiterhelfen werden
Delphi-Quellcode:
// Plattformunabhängiges MultiDiv, Uwe Raabe, Michael II@ DelphiPraxis.net
function TMathUtils.MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer;
begin
 Result := Round((nNumber / nNumerator) * nDenominator);
end;

// Diese Funktion nutze ich aktuell dort, wo ich vorher nur ScaleBy nutzte
procedure TFormUtils.ScaleForm(const Form: TForm; const NewDPI, CurrentDPI: Integer);
begin
 if NewDPI <> CurrentDPI then
  begin
   SendMessage(Form.Handle, WM_SETREDRAW, WPARAM(False), 0); // LockWindow nutze ich nicht wegen, siehe ***
   try
    aForm.ScaleBy(NewDPI, CurrentDPI);
   finally
    SendMessage(Form.Handle, WM_SETREDRAW, WPARAM(True), 0);
   end;
  end;
end;

Die MulDiv Funktion muss ich korrigieren. Sie war leider falsch. Nicht, dass einer die falsche kopiert. Richtig lautet sie
Delphi-Quellcode:
class function TMathUtils.MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer;
begin
 Result := Round((nNumber * nNumerator) / nDenominator);
end;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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 13:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz