OK, erledigt, habe hier einen Tipp gefunden, den man für alle CommonDialoge anwenden kann:
https://quality.embarcadero.com/brow...ColorDialog%22
Habe also das vor dem Tform als Type deklariert:
Delphi-Quellcode:
TColorDialog =
class(
Vcl.Dialogs.TColorDialog)
protected
function TaskModalDialog(DialogFunc: Pointer;
var DialogData): Bool;
override;
end;
und in der Implementation das:
Delphi-Quellcode:
function TColorDialog.TaskModalDialog(DialogFunc: Pointer; var DialogData): Bool;
var
previousDpiContext: DPI_AWARENESS_CONTEXT;
begin
previousDpiContext := SetThreadDpiAwarenessContext(DPI_AWARENESS_CONTEXT_SYSTEM_AWARE);
try
Result := inherited TaskModalDialog(DialogFunc, DialogData);
finally
SetThreadDpiAwarenessContext(previousDpiContext);
end;
end;
Zwar ist der Dialog auf dem Low_Moitor dann nicht highdpi, aber wenigstens sieht er anständig aus...