[Interface] Tabulations parametrables dans un TEdit

Pour un de mes programmes il fallait inserer des tabulations dans un TEdit jusque l'a pas de problemes.

Code:

1
2
3
4
5
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit2->Text = "essai\ttest\tcontrol";
}

mais l'espacement ne me convenait pas, voici la solution que j'ai trouve.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// on cree un Canvas pour le TEdit
TControlCanvas *pCn = new TControlCanvas();
pCn->Control = Edit1;
 
// on defini TRect pour DrawText
TRect rect;
rect.Top = 0;
rect.Left = 0;
rect.Right = Edit1->Width;
rect.Bottom = Edit1->Height;
 
// chaine de teste
String test = "essai\ttest\tcontrol";
int lng = test.Length();
 
// DrawText ecrit la chaine et permet de modifier l'espacement des tabulations ici la valeur est 0x1000
DrawText(pCn->Handle, test.c_str(), lng, &rect, DT_WORDBREAK | DT_TABSTOP | DT_EXPANDTABS | 0x1000);
 
delete pCn;
}