Publier un canvas

Question

Publier un canvas

Signaler

RV AXE

Messages postés: 2
Date d'inscription: lundi 27 novembre 2000
Statut: Membre
Dernière intervention: 10 août 2010

- 9 août 2010 à 16:51
RV AXE

Messages postés: 2
Date d'inscription: lundi 27 novembre 2000
Statut: Membre
Dernière intervention: 10 août 2010

- 10 août 2010 à 08:51

bonjour à tous

voici un code source ou je créé un composant (par exemple un GraphicControl) dont j'ai publier le canvas.

unit GraphicControl1;

interface

uses
SysUtils, Classes, Graphics, Controls;

type
MyGraphicControl = class(TGraphicControl)
private
{ Déclarations privées }
protected
{ Déclarations protégées }
public
{ Déclarations publiques }
constructor create( AOwner : TComponent );
procedure paint; override;
published
{ Déclarations publiées }
property canvas;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('SAMPLES', [MyGraphicControl]);
end;

Constructor MyGraphicControl.create(AOwner: TComponent);
begin
Inherited create( AOwner );
Left := 50;
Top := 50;
Width := 100;
Height := 100;
Canvas.Brush.Color := clYellow;
end;

Procedure MyGraphicControl.Paint;
begin
inherited Paint;
canvas.Rectangle(0,0,Width, Height);
end;
end.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, GraphicControl1, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Déclarations privées }
Rectangle : myGraphicControl;
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
{creation et affichage du rectangle}
begin
rectangle := myGraphicControl.create(Self);
rectangle.Parent := self;
end;

procedure TForm1.Button2Click(Sender: TObject);
{ changement couleur rectangle}
begin
rectangle.canvas.Brush.Color := clgreen;
end;

end.

Lorsque je modifie le canvas dans le programme principal ( par exemple la couleur ) mon composant n'est pas rafraichi automatiquement. pouvez vous m'aider SVP.

A voir également:

Delphi canvas
Canvas delphi - Meilleures réponses
Delphi canvas rectangle - Meilleures réponses
Référence Canvas ✓ - Forum - Delphi / Pascal
Delphi canvas textout ✓ - Forum - Delphi / Pascal
Delphi canvas rectangle - Forum - Delphi / Pascal
Dessinez un rectangle sur bitmap ! - Forum - Delphi / Pascal
PB pour dessiner sur un Canvas je séche... - Forum - Delphi / Pascal

2 réponses

Répondre Posez votre question

cs_MAURICIO · Answer 1 · 2010-08-09T18:39:34+0200

Salut,

procedure TForm1.Button2Click(Sender: TObject);
{ changement couleur rectangle}
begin
rectangle.canvas.Brush.Color := clgreen;
end;

Le problème est que tu ne changes pas le canvas mais la couleur du brush: c' est à dire que tu changes la couleur pour t' apprêter à peindre!
Ça revient un peu à prendre un crayon de couleur vert dans ta main: il faut écrire sur la feuille maintenant.

Utilise
rectangle.canvas.FillRect pour peindre avec la couleur qui est dans canvas.Brush ...

Note: si tu rafraichis le compo, ce que tu as dessiné dessus disparaitra! Essaye par exemple de passer une autre fenêtre devant ton programme avant de revenir sur ce dernier ...

A+

RV AXE · Answer 2 · 2010-08-10T08:51:41+0200

Réponse 2 / 2

RV AXE

Messages postés: 2
Date d'inscription: lundi 27 novembre 2000
Statut: Membre
Dernière intervention: 10 août 2010

10 août 2010 à 08:51

bonjour et merci pour ta réponse. J'ai bien compris que je ne changé que la couleur et que un "invalidate" après mon changement de couleur réglé mon problème. mais je pensé qu'on pouvais le faire de manière automatique. Si j'utilise l'évènement "onChanging" du canvas ça marche mais le rafraichissement est permanent.

Votre réponse