Discussion :

[henderson]

Salut !

En fait, Width et Height donnent la dimension de la zone client exploitée par le Canvas. A ce stade il n'y a rien d'autre à exploiter, je pense !

Je n'ai pas trop compris cette histoire de composant qui n'est pas encore créé (instance ou classe qui n'est pas encore rédigée ???)...

Pour la largeur et la hauteur des caractères, on peut spéculer, pour une bonne lisibilité (et sans trop perdre de temps à calculer) sur :

Code :

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

1
2
3
Canvas->Font->Assign(Font); // <<< à défaut d'avoir sous les yeux la doc...
char_width = Canvas->TextWidth("W");
char_height = Canvas->TextHeight("W");

A plus (dès que j'ai le temps je vais m'y plonger sur les bases de ce que j'ai donné) !

[blondelle]

Merci henderson:
J'ai compris comment recuperer la hauteur et la largeur des caracteres en fonction de la fonte assignee au Canvas.
Mais comment recuperer la largeur et la hauteur du Canvas que l'on trace quand on pose le composant sur la Form, j'ai besoin de ces valeurs pour le WordWrap dans mon cas

[Pendary]

Mais comment recuperer la largeur et la hauteur du Canvas que l'on trace quand on pose le composant sur la Form, j'ai besoin de ces valeurs pour le WordWrap dans mon cas

il te suffit de fixer la hauteur et la largeur du composant dans la méthode de création du composant, non ?

[henderson]

Salut !

Dans le constructeur :

Code :

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

1
2
3
4
5
if(Owner->InheritsFrom(__classid(TWinControl))) Parent = (TWinControl*)Owner; //Son Owner est normalement la form
//...
//...
//Tout doit être initialisé puis : 
SetBounds(Left,Top, ...., ....);

Le parent par défaut permet d'éviter les problèmes au cas où... puisque SetBounds va solliciter Repaint (sauf s'il y a des sémaphores en interne), le canvas se verra attribué un HDC, donc une zone client délimitée en Width et Height, zone que Paint pourra exploiter.

La méthode Paint ne doit servir qu'à peindre à partir des éléments existants et donc prendre en compte ce qui existe à ce moment là, en particulier en ce qui concerne la zone client délimitée par Width et Height.

A plus !

[blondelle]

Merci henderson:
Si j'ai bien compris cette fonction sert a ecrire les coordonnees du control, a partir de ta reponse j'ai vu dans l'aide en ligne qu'il existait une fonction GetBounds, comme je reutilise les bases d'un TLabel et que ses dimensions doivent deja etre definies je devrais pouvoir recuperer les valeur de Width et Height, si c'est le cas aurait tu un petit exemple stp car l'aide en est avare a voir on les recupere dans un TRect

[blondelle]

Bonsoir a tous j'ai un peu progresse le WordWrapVertical fonctionne partiellement, je n'arrive pas a ecrire au bon endroit
Le .cpp

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "StrUtils.hpp"
#include "LabelVertical.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
static inline void ValidCtrCheck(TLabelVertical *)
{
        new TLabelVertical(NULL);
}
//---------------------------------------------------------------------------
__fastcall TLabelVertical::TLabelVertical(TComponent* Owner)
        : TLabel(Owner)
{
LaForm = (TForm *)Owner;
}
//---------------------------------------------------------------------------
void __fastcall TLabelVertical::SetVertical(bool AVertical)
// SetVertical modifie la variable FVertical qui est la valeur
// renvoyee par la propriete
{
if (AVertical != FVertical)
        {
        FVertical = AVertical;
        Invalidate();
        AdjustBounds();
        }
}
//---------------------------------------------------------------------------
void __fastcall TLabelVertical::SetWordWrap(bool AWordWrap)
// SetWordWrap modifie la variable FWordWrap qui est la valeur
// renvoyee par la propriete
{
if (AWordWrap != FWordWrap)
        {
        FWordWrap = AWordWrap;
        Invalidate();
        AdjustBounds();
        }
}
//---------------------------------------------------------------------------
AnsiString __fastcall TLabelVertical::GetLabelText()
// on recupere le Caption du TLabel
// redefinition de la fonction GetLabelText
// ici on met un test si c'est une ecriture Verticale ou WordWrapVertical
// si FVertical ---> sous programme 1
// si FWordWrapVertical ---> sous programme 2
{
if (FVertical == false && FWordWrap == false)
{
// on lit la longueur du Caption
Size = GetTextLen();
// on recupere le Caption
char *capt = new char[Size+1];
GetTextBuf(capt,Size+1);
// on reecrit la chaine du Caption en ecrivant
// \n entre chaque lettre
tempd = "";
for (i=0;i<Size;i++)
{
  tempd += capt[i];
}
// on ecrit le Caption
//SetTextBuf(tempd);
delete capt;
return tempd;
}
if (FVertical == true && FWordWrap == false)
{
// on lit la longueur du Caption
Size = GetTextLen();
// on recupere le Caption
char *capt = new char[Size+1];
GetTextBuf(capt,Size+1);
// on reecrit la chaine du Caption en ecrivant
// \n entre chaque lettre
tempd = "";
for (i=0;i<Size;i++)
{
  tempd += capt[i];
  tempd += '\n';
}
// on ecrit le Caption
//SetTextBuf(tempd);
delete capt;
return tempd;
}
//---------------------------------------------------------------------------
if (FVertical == true && FWordWrap == true)
{
//int yy = GetClientWidth;
int zz = Canvas->TextHeight(Caption);// <---- voir s'il faut laisser Canvas
int yy = Canvas->TextWidth(Caption);// <---- voir s'il faut laisser Canvas
int Gauche = Left;
int Haut = Top;
int Droite = Width;
int Bas = Height;
String x;
        TRect TheRect;
Size = GetTextLen();
// on recupere le Caption
char *capt = new char[Size+1];
GetTextBuf(capt,Size+1);
tempd = "";
//String text1 = "essai d'ecriture de texte sur plusieurs colonnes";
//text1 = text1 + " ";
//int lngtxt = text1.Length();
int lngtxt1;
int htlabel = Height;
int nbcar = htlabel / zz;
int k = 0;
int rst = nbcar;
int bcl = 0;
AnsiString c = "";
AnsiString tempd ="";
for (int i = 0; i <= Size; i++)
        {
        tempd += capt[i];
        x = capt[i];// <---- a refaire
if (x == " " || x == '\0')
        {
        lngtxt1 = tempd.Length();
if (bcl != 0 && rst < lngtxt1)
        {
        k = k + 1;
        rst = nbcar;
        bcl = 0;
        }
if (bcl == 0 && rst > lngtxt1)
        {
        rst = nbcar;
        bcl = 0;
        }
for (int j = 1; j <= lngtxt1; j++)
        {
        c = tempd[j];
//        c = MidStr(d, j + 1, 1);// <---- a refaire
// ici on fait l'affichage
// Gauche, Haut, Droite, Bas
        TheRect = Rect(Gauche + (k * 15), Haut + ((j + bcl) * (zz - 2)),
         Droite + (k * 15), Bas + ((j + bcl) * (zz - 2)));
        LaForm->Canvas->TextRect(TheRect, Gauche + (k * 15),
         Haut + ((j + bcl) * (zz - 2)), c);
        }
        bcl = bcl + lngtxt1;
        rst = rst - lngtxt1;
//        tempd = "";
        }
        }
//        tempd = "";
//return tempd;
        }
//        delete capt;
//return tempd;
}
//---------------------------------------------------------------------------
namespace Labelvertical
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TLabelVertical)};
                 RegisterComponents("Perso", classes, 0);
        }
}
//---------------------------------------------------------------------------

Le .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
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
//---------------------------------------------------------------------------
#ifndef LabelVerticalH
#define LabelVerticalH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TLabelVertical : public TLabel
{
private:
        // variable qui memorise la nouvelle propriete.
        bool FVertical;
        bool FWordWrap;
        TForm * LaForm;
protected:
        // fonction qui modifie la nouvelle propriete.
        void __fastcall SetVertical(bool AVertical);
        void __fastcall SetWordWrap(bool AWordWrap);
//        void __fastcall SetHeight(int AHeight);
        AnsiString __fastcall GetLabelText();
// variable temporaire
AnsiString tempd;
int Size;
int i;
public:
        __fastcall TLabelVertical(TComponent* Owner);
__published:
// on reporte integralement les proprietes du TLabel
// Properties
 __property Align;
 __property Alignment;
 __property Anchors;
 __property AutoSize;
 __property BiDiMode;
 __property Caption;
 __property Color;
 __property Constraints;
 __property Cursor;
 __property DragCursor;
 __property DragKind;
 __property DragMode;
 __property Enabled;
 __property FocusControl;
 __property Font; //  TFont* Font = {read=GetFont, write=SetFont};
 __property Height; // = {read=FHeight, write=SetHeight, nodefault};
 __property HelpContext;
 __property HelpKeyword;
 __property HelpType;
 __property Hint;
 __property Layout;
 __property Left; // = {read=FLeft, write=SetLeft, nodefault};
 __property Name;
 __property ParentBiDiMode;
 __property ParentColor;
 __property ParentFont;
 __property ParentShowHint;
 __property PopupMenu;
 __property ShowAccelChar;
 __property ShowHint;
 __property Tag;
 __property Top; // = {read=FTop, write=SetTop, nodefault};
 __property Transparent;
 __property Visible;
 __property Width; // = {read=FWidth, write=SetWidth, nodefault};
 __property WordWrap = {read=FWordWrap, write=SetWordWrap, default=false};
// nouvelle propriete
 __property bool Vertical = {read=FVertical, write=SetVertical, default=false};
// __property bool WordWrapVertical = {read=FWordWrapVertical, write=SetWordWrapVertical, default=false};
// Events
 __property OnClick;
 __property OnContextPopup;
 __property OnDblClick;
 __property OnDragDrop;
 __property OnDragOver;
 __property OnEndDock;
 __property OnEndDrag;
 __property OnMouseDown;
 __property OnMouseEnter;
 __property OnMouseLeave;
 __property OnMouseMove;
 __property OnMouseUp;
 __property OnStartDock;
 __property OnStartDrag;
};
//---------------------------------------------------------------------------
#endif

Avec le code tel qu'il est j'ai un decalage avec la zone selectionnee et l'ecriture, le pire c'est que henderson ma mis sur la voie mais je n'arrive pas a le faire je suis un