Discussion :

[retwas]

Bonjour,

Il y a quelque chose sur FMX que je ne comprends pas

- J'ai créée une Form sur laquelle se trouve un TImage de 50x50 posé au milieu (sans bitmap sans rien, juste un TImage).
- J'ai ajouté un bouton avec le code suivant dans le OnClick :

Code :

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

FImage.Canvas.Clear(TAlphaColorRec.Red);

Cela a pour effet d’effacer l'ensemble de ma form, et pas seulement le TImage, savez vous pourquoi ?

Merci

[Ph. B.]

Bonjour

Code :

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

FImage.Canvas.Clear(TAlphaColorRec.Red);

Cela a pour effet d’effacer l'ensemble de ma form, et pas seulement le TImage, savez vous pourquoi ?

Le composant image récupère le canvas de son parent, la méthode appelée va s'appliquer à tout le canvas.
Il faut écrire :

Code :

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

FImage.Canvas.Clear(TRectF.Create(FImage.Position.X, FImage.Position.Y, FImage.Position.X + FImage.Width, FImage.Position.Y + FImage.Height) TAlphaColorRec.Red);

pour délimiter la zone redessinée à celle qui vous intéresse...

[Paul TOTH]

Bonjour,

Il y a quelque chose sur FMX que je ne comprends pas

- J'ai créée une Form sur laquelle se trouve un TImage de 50x50 posé au milieu (sans bitmap sans rien, juste un TImage).
- J'ai ajouté un bouton avec le code suivant dans le OnClick :

Code :

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

FImage.Canvas.Clear(TAlphaColorRec.Red);

Cela a pour effet d’effacer l'ensemble de ma form, et pas seulement le TImage, savez vous pourquoi ?

Merci

c'est lié au fait que sous FMX, contrairement à VCL, le parent ne limite pas le dessin de son enfant.

il y a longtemps j'avais fait cette démonstration inspirée de CSS is Awesome

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
unit Execute.AwesomeFMX;
 
{
   Awesome FMX for XE6 (c)2014 by Paul TOTH <tothpaul@execute.re>
 
   http://www.execute.re
 
}
 
interface
 
uses
  System.Classes, System.Types, System.UITypes,
  FMX.Controls, FMX.Graphics, FMX.Types;
 
type
  TAwesomeFMX = class(TControl)
  public
    constructor Create(AOwner: TComponent); override;
    procedure Paint; override;
  published
    property Position;
    property Width;
    property Height;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Execute.SARL', [TAwesomeFMX]);
end;
 
{ TAwesomeFMX }
 
constructor TAwesomeFMX.Create(AOwner: TComponent);
begin
  inherited;
  Position.X := 20;
  Position.Y := 20;
  Width := 320;
  Height := 160;
end;
 
procedure TAwesomeFMX.Paint;
var
  R: TRectF;
begin
  R := LocalRect;
  Canvas.Stroke.Color := TAlphaColorRec.Black;
  Canvas.Stroke.Thickness := 4;
  Canvas.DrawRect(R, 0, 0, [], 1);
  Canvas.Font.Family := 'Arial';
  Canvas.Font.Style := [TFontStyle.fsBold];
  Canvas.Font.Size := 48;
  Canvas.Fill.Color := TAlphaColorRec.Black;
  R.Right := R.Left + 320;
  Canvas.FillText(R, 'FMX'#13'IS'#13'AWESOME', False, 1, [], TTextAlign.Leading);
end;
 
end.

[retwas]

D'accord, merci des explications.

Pour le clear c'est bon, mais dès que je veux dessiner une ligne avec un DrawLine j'ai le même soucis du coup.

Code :

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

FImage.Canvas.DrawLine(pt1, pt2, 1);

Cela a pour effet de tracer un trait sur mon parent, comment lui faire comprendre que je veux travailler sur une zone précise ?

Merci

[yvslms]

Bonjour,

Désolé pour cette intervention tardive.
TImage n'est pas du tout fait pour cela : il s'agit d'un composant pensé pour adapter une image à des variations de mise en page, de dimensions et de résolutions dans un contexte multiplateforme.
Pour dessiner sur le canvas d'un TImage vous pouvez utiliser un TBitmap créé dynamiquement en mémoire, dessiner sur le canvas de ce TBitmap et l'assigner ensuite au bitmap du TImage à la résolution voulue.
Si vos dimensions d'écran et résolution ne bougent pas utilisez plutôt TPaintBox à la place de TImage selon le même procédé et en rafraichissant l'image avec OnPaint.
Il est aussi possible d'afficher une image dans un TRectangle ou un TCircle via la propriété Fill.