Discussion :

[franckcl]

Bonjour,
DELPHI 10.1 BERLIN UPDATE 1 - WINDOWS 10.

J'utilise un object TSaveDialog dans lequel j'ai activé l'option ofOverwritePrompt pour ouvrir un dialog de confirmation lorsqu'on selectionne un fichier existant.
Le problème est que cette fenêtre de confirmation ne s'affiche pas correctement lorsque j'ai un thème d'activé, voir ci-dessous:


Le code de mon exemple est très simple, j'ai ajouté un bouton dans la fenêtre principale qui appelle SaveDialog1.execute.Dans Projet/Options/Application, j'ai sélectionné "Gérer automatiquement" et j'ai coché les deux premières cases (Activer les themes..et activer le haute résolution)
Dans Projet/Options/Application/Apparence, j'ai coché le style "Lavender classico" et dans mon code, dans le OnCreate j'ai mis: TStyleManager.TrySetStyle('Lavender Classico');
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
uses styles,themes;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 savedialog1.execute;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   TStyleManager.TrySetStyle('Lavender Classico');
end;
 
 
end.

Merci
Franck

[franckcl]

Problème résolu (contourné) en ajoutant ce code dans le OnCreate de la form ou encore mieux dans le code source de l'application juste avant la ligne "Application.run;"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
if TStyleManager.IsCustomStyleActive then
begin
   TStyleManager.SystemHooks := TStyleManager.SystemHooks - [shDialogs]
end;