Discussion :

[pierrejean75]

Je voudrais par programmation créer un rectangle avec 2 coins supérieurs arrondis et 2 coins inférieurs droits (comme le rectangle vert si dessous )
Il suffit de mettre la valeur de CornerType à Round et pour la valeur Corner de décocher BottomLeft et BottomRight
Mais je ne trouve pas comment le faire en mode programmation

Voici mon 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
 
procedure TForm1.Button1Click(Sender: TObject);
var
 Rectangle1:TRectangle;
begin
    Rectangle1                      := TRectangle.Create(Form1);
    Rectangle1.Parent               := Form1;
    Rectangle1.Width                := 300;
    Rectangle1.Height               := 100;
   Rectangle1.Corners              := [TopLeft,TopRight];
    Rectangle1.Fill.Color            := TAlphaColorRec.Dodgerblue;
    Rectangle1.Position.X           := 10;
    Rectangle1.Position.Y           := 50;
    Rectangle1.XRadius              := 7;
    Rectangle1.YRadius              := 7;
 end;

J'ai une erreur sur la ligne Rectangle1.Corners := [TopLeft,TopRight];

HELP HELP

[pprem]

Bonjour

Ce qui est bien avec les erreurs, c'est qu'en général elles disent où est le problème. du coup c'est bien de les donner aussi lorsqu'on en parle sur un forum.

Ceci rappelé, je ne peux supposer qu'une chose en me reportant à la doc http://docwiki.embarcadero.com/Libra...tangle.Corners

Corners est un Corner, essaie avec Corner.TopLeft et TCorner.TopRight

Dans FMX la plupart des valeurs énumérées doivent être préfixées de leur type car SCOPEDENUMS est actif sur quasiment toutes les unités de FMX.

[SergioMaster]

Erreur de compilation que l'on peut retrouver

[dcc32 Erreur] UnitdrawRect.pas(35): E2003 Identificateur non déclaré : 'TopLeft'
[dcc32 Erreur] UnitdrawRect.pas(35): E2010 Types incompatibles : 'TCorners' et 'Set'

et comme Patrick l'écrit, une simple correction

Code :

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

    Rectangle1.Corners              := [TCorner.TopLeft,TCorner.TopRight];

corrige le problème.

vite, vite un salvateur

[pierrejean75]

BRAVO ET MERCI MERCI VOUS ETES TROP FORT
RESPECT !

Erreur de compilation que l'on peut retrouver

et comme Patrick l'écrit, une simple correction

Code :

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

    Rectangle1.Corners              := [TCorner.TopLeft,TCorner.TopRight];

corrige le problème.

vite, vite un salvateur