Discussion :

[Ardely]

Bonjour,

J'ai Delphi Firemonkey ver 10.2

J'ai un rectangle de fond de couleur verte.
À l'exécution je cré dynamiquement un Layout dont je cré par la suite
des édits dynamiquement qui sont placé dans ce Layout....

Sous Windows 10, le fond de couleur blanche des saisies édits sont bien,
mais sous android l'édit prend le fond de couleur verte.
Ceci est très inconvénient, car je ne vois plus correctement la saisie (l'object Edit).

Comment faire pour avoir un autre fond de couleur pour l'édit,.. ou par exemple de mettre
une bordure autour de l'édit, pour mieux le visualiser sous android.

Que pouvez-vous me proposer comme solution à ce problème.

Voici les tests que j'ai essayé de faire pour mieux visualiser l'Edit dans un
rectangler de couleur verte sous Android, mais je n'arrive pas.

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
 
var
  MyRect: TRectF;
....
 
   Rectangle4.Fill.Color :=  TAlphaColors.Green;
.....
 
   // Posibiliter Test 1
   MyRect := TRectF.Create(0, 0, Edit6.Width , edit6.Height);
 
   Edit6.Canvas.BeginScene;
   Edit6.Canvas.Fill.Color :=   TAlphaColors.White ; // aucun effet
   Edit6.Canvas.Fill.Kind :=    TBrushKind.Solid;
   Edit6.Canvas.FillRect(MyRect, 0, 0,AllCorners , 100);
   Edit6.Canvas.EndScene;
 
 
   // Posibiliter Test 2 ???
  // Edit6.Canvas.Bitmap  := image2.Bitmap ; //  image2 de couleur verte, mais erreur compilation

Je vous remercie pour l'aide que vous m'apportez.

Salutation

[SergioMaster]

Bonjour,

à mon avis c'est là où un style personnalisé serait utile

[Ardely]

Bonjour,

Voici un test que j'ai fait que vous me proposé...

Button droit click sur l'objet Edit6 puis "Edit Custom Style".
J'ai ajouté un rectangle et mis par example en rouge ..

Edit6Style1> background>

Rectangle1Style> fill> red
Rectangle1Style> Align> client

Test pour le moment sous windows 10

Dans l'éditeur de code, l'édit "Edit6" est bien en rouge, mais
à l'exécution l'édit est de fond blanc, rien ne change !

Que dois-je faire maintenant pour que le fond devienne en couleur dans l'édit

Merci pour l'aide.

Salutation
Ardely

[SergioMaster]

Bonsoir,

les styles et moi ça fait encore plusieurs mais voici ce que j'ai

à partir de ce dessin de style

attention aux propriétés en particulier opacity et hittest du rectangle

par contre si vous voulez jouer avec les bordures une solution consiste à passer par les effets

[Ardely]

Merci pour votre aide et support.

Par votre exemple je me suis penché plus en détail
sur la structure et le déploiement.
J'arrive maintenant à faire les modifications
et l'édit sur android se met avec la couleur.

L'étape suivante est de faire tous ceci en mode dynamique,
car les édits que je cré sont au runtime,
je continue à faire mes tests...

Merci et bon weekend.
Salutation
Ardely

[SergioMaster]

Bonjour,

L'étape suivante est de faire tous ceci en mode dynamique,

Tout dépend de votre style ou plutôt de comment il a été créé
il y a deux options possibles :
- modifier un style personnalisé
- modifier le style par défaut
si vous utilisez la seconde option, tous les Edits que vous allez ajouter seront avec le style dessiné
Preuve par l'image

avec un petit bout de code (moche)

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
type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    StyleBook1: TStyleBook;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    AnEdit : TEdit;
  public
    { Déclarations publiques }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.fmx}
 
procedure TForm3.Button1Click(Sender: TObject);
var APoint : TPointF;
begin
AnEdit:=TEdit.Create(Self);
AnEdit.Parent:=Self;
AnEdit.Position.X:=Button1.position.x;
AnEdit.Position.Y:=Button1.position.y+Button1.Height;
AnEdit.Width:=Button1.width;
end;

pour la première option,c 'est guère plus compliqué si ce n'est qu'il faut assigner le style à l'élément (TEdit) créé mais je pense qu'il il y a aussi des instructions supplémentaires à ajouter
ApplyStyle ? j'avoue ne pas avoir le courage de tester

[Edit] ce que je n'aime pas trop avec les styles c'est que, dans ce cas, on est obligé de jouer sur les transparences, et d'une couleur franche (vert) on a donc une couleur ressemblant plus à du MoneyGreen sans parler du texte sensu-stricto qui n'est pas vraiment noir !