Discussion :

[SergioMaster]

Bonjour,


plus ça va , plus je bute sur des trucs simples . Je savais que avec FMX , il fallait revoir beaucoup de choses , mais là , je trouve que cela fait beaucoup

1- je veux faire un TEdit simple qui n'accepte/n'affiche que des majuscules : question où est l'équivalent de charcase ? il est quand même incroyable que je sois obligé d'utiliser le Edit de TMS (TMSFMXEdit) ou de coder l'event OnChangeTracking ?

2- idem , je veux qu'une forme modale s'affiche au centre de sa forme appelante en gros ainsi

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
 
procedure TMainForm.SettingsClick(Sender: TObject);
{$REGION 'Documentation'}
{*------------------------------------------------------------------------------
  Répertoire Serveur (normalement ne change pas)
------------------------------------------------------------------------------*}
{$ENDREGION}
var F : TStartForm;
begin
  F:=TStartForm.Create(Self);
  try
    F.Position:=TFormPosition.poScreenCenter; //<< sauf que là , je veux que ce soit au centre de ma fenêtre 
    if F.ShowModal=mrOk then
     begin
       Dimensions.Text:=Format('Dimensions Largeur %s x Hauteur %s',
                        [F.Largeur.Text,F.Hauteur.Text]);
       DestinationDir.Text:=F.ImagesDir.Text;
       // Changer Taille Rectangle & Selection de Base
       Rectangle1.Width:=F.Largeur.Value;
       Rectangle1.Height:=F.Hauteur.Value;
       Selection1.Width:=F.Largeur.Value;
       Selection1.Height:=F.Hauteur.Value;
     end;
  finally
    F.Free;
  end;
end;

j'ai beau essayer les TFormPosition.poMainFormCenter ou TFormPosition.poOwnerFormCenter , soit sur les propriétés de la fiche , soit comme indiqué dans le code : rien y fait

je désespère d'arriver a coder un jour une application de gestion aussi simplement avec FMX qu'avec VCL

[ShaiLeTroll]

Essaye FMX.Edit.TCustomEdit.FilterChar

Par exemple, si vous définissez FilterChar sur '123abc', l'utilisateur est autorisé à taper uniquement les lettres a, b et c et les numéros 1, 2 et 3 dans ce contrôle d'édition. Tous les autres caractères sont ignorés. Cependant, notez que les versions majuscules de a, b et c ne sont pas autorisées par cette chaîne de filtrage. Si vous voulez ajouter des variantes majuscules, FilterChar devrait être définie sur '123abcABC'.

[ShaiLeTroll]

Pour TFormPosition.poOwnerFormCenter, en lisant le code de XE2 l'un des seuls qui semblent être géré c'est poScreenCenter pour le Show !

Pour le modale, la version Win32 ne contient rien ! et la version MacOS rien de plus !
Et le ShowModal fini par appeler le Show(), on en revient juste à poScreenCenter !

Grosse flemme des développeurs qui n'ont codé QUE celui qu'ils utilisent pour FMX.Dialogs.InputQuery et FMX.Dialogs.MessageDlg

C'est triste à dire mais retour en "TFormPosition.poDesigned" et ce code

Code :

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

1
2
3
4
5
6
7
          CenterForm := TForm(Owner);
          if Assigned(CenterForm)then
          begin
            X := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
            Y := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
          end;
          SetBounds(X, Y, Width, Height);

[SergioMaster]

C'est triste à dire mais retour en "TFormPosition.poDesigned" et le code

Oui , c'est triste à dire

j'ai l'impression que FMX est trop pensé application mobiles et pas assez desktop ! c'est un sacré challenge de faire des applications de gestion

[Gilbert Geyer]

Bonjour,

1- je veux faire un TEdit simple qui n'accepte/n'affiche que des majuscules

Depuis Delphi 1 ça ce fait ainsi :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['a'..'z'] then Key := UpCase(Key);
end;

A+.

[SergioMaster]

Bonjour,

bien sur Gilbert quoique en FMX que le onkeypress n'existe pas

mon code est légèrement différent

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TMainForm.ModeleChangeTracking(Sender: TObject);
{$REGION 'Documentation'}
{*------------------------------------------------------------------------------
 procedure ModeleChangeTracking
 mise en majuscule du nom du modèle
 @param Sender TEdit Modele
------------------------------------------------------------------------------*}
{$ENDREGION}
begin
Modele.Text:=Uppercase(Modele.Text);
end;

j'aurais aussi pu le faire sur onKeyDown aussi
en fait, pour la partie Edit, c'est plus "un coup de gueule" de frustration . A le voir , l'outil semble beau , à l'utiliser il faut beaucoup d'exercice pour obtenir la même chose que la VCL (je ne parle même pas des Grilles, Boutons avec Image etc..) . Bref , pour l'instant , j'ai l'impression qu'un passage a FMX se paye par un temps de dev beaucoup plus long ce qui est donc, de mon point de vue, fortement contre-productif .
Aurais-je donc pris de mauvaises habitudes avec la VCL ? il me semble , en tout cas au vue de mon test QT , c'est sûr.

Pour en revenir à FMX , je vais assister au Webinar de Marco Cantù aujourd'hui pour essayer d'avoir les idées plus claires . Le problème de toutes les vidéos sur ces sujets est que l'on y montre des applications 'simples' , même le fishfactory n'est qu'un exemple simple de programme de gestion : peu de records , interface 'simpliste' dès que l'on dépasse certaines limites :
plus de 200 records dans une grille
un fichu Combobox (cf. un autre de mes posts)
interface visuelle un peu plus chiadée (le simple bitbtn VCL par exemple ....)
ça se corse .

[ShaiLeTroll]

mon code est légèrement différent

c'est donc que FMX.Edit.TCustomEdit.FilterChar ne fonctionne pas ?

[SergioMaster]

Bonjour,

@ShaiLeTroll
cela ne fait pas la même chose dans le sens ou cela ne transforme pas une minuscule en majuscule

[Gilbert Geyer]

Bonjour,

SergioMaster: bien sur Gilbert quoique en FMX que le onkeypress n'existe pas

Le onKeyPress était pourtant simple, quelle idée saugrenue que de ne pas l'avoir conservé en FMX !!!
Cela ne donne vraiment pas envie de passer à XE4 !!!

A+.

[Thierry Laborde]

Le onKeyPress était pourtant simple, quelle idée saugrenue que de ne pas l'avoir conservé en FMX !!!

Tout simplement car tout ce qui est dans Firemonkey doit être multiplateforme et doit donc fonctionner sur Windows, OSX, iOS et Android. Vous ne voyez que votre côté avec Windows, mais il faut se souvenir que Firemonkey est pensé Multiplateforme.

[Thierry Laborde]

2- idem , je veux qu'une forme modale s'affiche au centre de sa forme appelante

Je ne sais pas comment est l'application ni ce qu'elle fait. Mais Est-ce que la solution ne peut pas être d'afficher un Layout (Qui peut être à la base sur une autre Form) avec tout ce que contient votre Form en align center ?

[SergioMaster]

Bonjour,

Je me demandais quand tu allais réagir Thierry

pour l'histoire de OnKeyPress remplacé par OnChangeTracking je dirais que cela ne me gêne pas trop .

Pour ce qui est ce la solution que tu proposes

Mais Est-ce que la solution ne peut pas être d'afficher un Layout (Qui peut être à la base sur une autre Form) avec tout ce que contient votre Form en align center ?

c'est vrai que je n'ai toujours pas ce réflexe, je suis encore très VCL ... .

Du coup je dirais également pourquoi pas dans un Frame . Cependant , il s'agit d'une application desktop contenant déjà un bon nombre de Layouts (sans parler d'un scaledlayout) et je ne suis pas sur qu'une solution de ce genre empêche la saisie en dehors de la fenêtre voulue (en gros l'équivalent d'un showmessage)

à ce propos ,du showmessage , j'ai bien compris qu'il s'agissait d'une construction via un appel OS , du coup pas de style , il est dommage qu'il n'y ait pas (du moins s'il existe je n'ai pas trouvé) un FMXMessageDialog ou FMXShowMessage qui lui réagirait aux styles (donc une simple fenêtre en show modal , centrée soit sur la forme soit sur l'écran) pour ne garder les ShowMessages et MessageDialogs systèmes que pour des 'vrais' problèmes systèmes (ou considérés tels)

Mais surtout, ce que je pointe c'est que ces options (TFormPosition.poMainFormCenter ou TFormPosition.poOwnerFormCenter ....) sont proposées donc on s'attend a ce quelles soient "utilisables" . Comme ShaiLeTroll l'a fait remarquer

Pour TFormPosition.poOwnerFormCenter, en lisant le code de XE2 l'un des seuls qui semblent être géré c'est poScreenCenter pour le Show !

Pour le modale, la version Win32 ne contient rien ! et la version MacOS rien de plus !
Et le ShowModal fini par appeler le Show(), on en revient juste à poScreenCenter !

Grosse flemme des développeurs qui n'ont codé QUE celui qu'ils utilisent pour FMX.Dialogs.InputQuery et FMX.Dialogs.MessageDlg

(bon , un troll ça a toujours été un peu méchant) .

Je dois avouer ne pas avoir été pioché dans le code (pressé par le temps et d'autre réalisations "urgentes" à faire) et me suis rabattu sur la solution "manuelle"