Discussion :

[Julien_C++]

Bonsoir à tous,
Depuis 2 jours, le canvas n'affiche rien. Exemple tout simplement :

Code :

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

1
2
3
4
5
6
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        Form1->Canvas->Brush->Color=clWhite;
        Form1->Canvas->Rectangle(0,0,15,15);
}

Resultat : La Form ne bronche pas.
Si je pouvais avoir une solution à ce problème merci...

[winow]

Essai sans mettre "Form1->"

Code :

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

1
2
 
Canvas->Brush->Color = clRed;

+A

[blondelle]

Est ce que ce n'est pas ce que tu cherche.

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
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
// mise en couleur de la forme fond blanc
Form1->Color = clWhite;
 
// dimensionner la forme en haut a gauche
// longeur 105 hauteur 105
Form1->Top = 0;
Form1->Left = 0;
Form1->Height = 105;
Form1->Width = 105;
}
//---------------------------------------------------------------------------

[Julien_C++]

No Blondelle
ce que je voulais c'était juste faire un carré sur la Form pour vérifier que mon Canvas marchait
D'ailleurs ca ne marche toujours pas.
Je ne vois pas d'où celà peut provenir... Peut-être des options du projet.

PS : Le canvas ne marche ni sur la form ni sur la PaintBox... .
Voici la fonction en question...

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
 
void Redraw(TForm1 *Form)
{
int i,j,k;
TPaintBox *pBox;
        for (i=0; i<3; i++){
                for (j=0; j<3; j++){
                        for (k=0; k<6; k++){
                                switch (k)
                                {
                                case 0 : pBox=Form->Front; break;
                                case 1 : pBox=Form->Left; break;
                                case 2 : pBox=Form->Right; break;
                                case 3 : pBox=Form->Up; break;
                                case 4 : pBox=Form->Down; break;
                                case 5 : pBox=Form->Back; break;
                                }
                                switch (Cube[k][j][i])
                                {
                                case 1 : pBox->Canvas->Brush->Color=clWhite;                     break;
                                case 2 : pBox->Canvas->Brush->Color=clBlue; break;
                                case 3 : pBox->Canvas->Brush->Color=clRed; break;
                                case 4 : pBox->Canvas->Brush->Color=clGreen; break;
                                case 5 : pBox->Canvas->Brush->Color=clYellow; break;
                                case 6 : pBox->Canvas->Brush->Color=clPurple; break;
                                }
                        pBox->Canvas->Rectangle(i*40,j*40,i*40+40, j*40+40);
                        }
                }
        }
}

[blondelle]

voila quelque chose qui marche.

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
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
// mise en couleur fond blanc
//Form1->Color = clWhite;
 
// dimensionner la forme en haut a gauche
// longeur 105 hauteur 105
Form1->Top = 0;
Form1->Left = 0;
Form1->Height = 400;
Form1->Width = 400;
Image1->Canvas->Brush->Color = clWhite;
Image1->Canvas->Rectangle(0, 0, 100, 100);
 
}
//---------------------------------------------------------------------------

Est tu sur que tous les Canvas sont visible il est possible que le Canvas de certains composant soient invisible

[henderson]

Salut !

Celà vient du fait que le dessin par le canvas est temporaire.
Il faut solliciter la méthode qui dessine dans les événements OnPaint et OnResize de la Form.

Ca reste vrai pour un TPaintBox pour ce qui est de l'événement OnPaint.

A plus !

[Julien_C++]

Voici un exemple de Canvas qui marchait :

Code :

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

1
2
3
4
5
6
7
8
 
switch (Recover[q][f])
     {
     case 1 :   pBox->Canvas->Brush->Bitmap=Form->_1->Picture->Bitmap; break;
    case 2 : pBox->Canvas->Brush->Bitmap=Form->_2->Picture->Bitmap; break;
    case 3 : pBox->Canvas->Brush->Bitmap=Form->_3->Picture->Bitmap; break; // etc...
                                                }
pBox->Canvas->Rectangle(r*20,s*20,r*20+20,s*20+20);

Aucune différence hors mis le fait que cet exemple se sert de bitmap...
Le canvas est ici utilisé sur la PaintBox...
J'ai beau crée un rectangle par défaut sur ma Form rien ne se fait rien ne se crée... Et je n'avais pas besoin d'un évènement OnPaint ou OnResize pour dessiner à ma guise les rectangles ou les TBitmap...

[ero-sennin]

Bonsoir,

J'essaie de résoudre ce problème, est je suis tombé sur un os moi aussi. Je profite donc de ce post afin d'exposer mon problème.

Voici mon .h :

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
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// Composants gérés par l'EDI
        void __fastcall FormCreate(TObject *Sender);
private:	// Déclarations utilisateur
                Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
public:		// Déclarations utilisateur
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Et voici mon .cpp :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  image->Canvas->Brush->Color=clWhite;
  image->Canvas->Rectangle(0,0,15,15);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
  Canvas->Draw(0,0,image);
}

Et l'erreur généré par BCB :

Code :

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

[C++ Erreur] Unit1.h(17): E2233 Impossible d'initialiser un membre de classe ici

Je ne comprends pas trop comment faire pour le déclarer en global.

Sinon, j'ai un bout de code qui est tiré de BCB est qui pourrait être intéressant pour Julien_C++ :

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
void __fastcall TForm1::Button1Click(TObject *Sender)
 
{
  Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
  try
  {
    pBitmap->LoadFromFile("C:\\Program Files\\Common Files\\Borland Shared\\Images\\Splash\\256color\\factory.bmp ");
    pBitmap->Transparent = true;
    pBitmap->TransparentColor = pBitmap->Canvas->Pixels[50,50];
    Form1->Canvas->Draw(0,0,pBitmap);
    pBitmap->TransparentMode = tmAuto;  
    Form1->Canvas->Draw(50,50,pBitmap);
  }
  catch (...)
 
  {
    ShowMessage("Ne peut charger ni afficher le bitmap");
  }
  delete pBitmap;
}

Merci