Discussion :

[franckcl]

Bonjour,

Berlin 10.1 - FMX

J'ai créé une barre de titre avec un panel qui occupe le haut de la fenêtre (propriété align=top)
Sur ce panel j'ai ajouté:
- un label cadré à gauche (align=left)
- Un TImage cadré à droite (align=right)

Dans la structure je vois bien les deux objets (label et image) qui ont pour parent le TPanel.

J'ai écrit le code suivant sur l'évènement OnPaint du TPanel:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TFormApp.Panel1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
  with canvas do
  Begin
    BeginScene;
    fill.color := $FF182983;
    fillrect(ARect,0,0,AllCorners,100);
    EndScene;
  End;
end;

Le problème est que je ne vois plus ni le label ni l'image !! alors qu'ils sont visibles si je ne fait pas ce OnPaint.
Je ne comprends pas pourquoi puisque le TPanel est le parent ?

Merci
Franck

[Thierry Laborde]

Bonjour,

Pourquoi utiliser un Panel ? Réflexe de la VCL ?
Car si j'ai bien compris vous voulez colorer le Panel, c'est ça ?
Dans ce cas-là utilisez un TRectangle et vous pourrez jouer comme vous voulez avec sa couleur via les propriétés. et vous pourrez même du coup faire des dégradés, mettre une texture...etc

[franckcl]

Merci Thierry,

Je jongle effectivement entre FMX et VCL...
Le rectangle fonctionne très bien.

merci !
Franck

[Thierry Laborde]

Merci Thierry,

Je jongle effectivement entre FMX et VCL...
Le rectangle fonctionne très bien.

merci !
Franck

C'est une des choses qu'il faut apprendre avec FMX : Perdre les habitudes de la VCL.
Dans FMX tous les composants peuvent être le parent de n’importe quel autre composant. Donc ne pas se limiter avec les panels comme dans la VCL.