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