AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Windows 10 und Scaled in Runtime

Ein Thema von almisoft · begonnen am 12. Aug 2015 · letzter Beitrag vom 6. Sep 2023
 
Thomasl

Registriert seit: 19. Jun 2006
Ort: Vreden
67 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Windows 10 und Scaled in Runtime

  Alt 6. Sep 2023, 09:48
Das ist zwar schon alt hier, ich habe aber nichts zum Thema gefunden.
vielleicht hilft es jemandem.
nur im constructor Scaled setzen hat auch nicht funktioniert
so funktioniert es bei mir

z.B.
Form1 := TForm1.Create(Application,False);


Delphi-Quellcode:
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TScaled = (scaledDfm, scaledTrue, scaledFalse);

  TForm1 = class(TForm)
  private
    { Private declarations }
    XScaled: TScaled;
  protected
    procedure InitializeNewForm; override;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; AScaled: boolean); reintroduce;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent; AScaled: boolean);
begin
  if AScaled then
    XScaled := scaledTrue
  else
    XScaled := scaledFalse;
  inherited Create(AOwner);
  // hier Scaled einstellen, ist schon zu spät
end;

procedure TForm1.InitializeNewForm;
begin
  inherited;
  case XScaled of
    scaledTrue:
      Scaled := True;
    scaledFalse:
      Scaled := False;
  end;
end;

end.
Thomas Levering
  Mit Zitat antworten Zitat
 

 

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 01:16 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 by Thomas Breitkreuz