TStringGrid/fr: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		TStringGrid ![](/wiki-images/6/67/Tstringgrid.png) fournit un affichage tabulaire de données textuelles qui peuvent aussi être éditées. .
2	2
3	3		# Exemple de programme avec StringGrid
4	4
5	5		Pour cet exemple, créez un nouveau projet dans Lazarus. Sélectionnez un TStringGrid à ajouter sur votre fiche, en cliquant sur l'icône du TStringGrid dans la palette de composants puis cliquez sur la fiche. Dans notre cas, deux [[TButton/fr\|TButton]] sont aussi sélectionnés et placés sur la fiche. Il faut aussi poser un [[TOpenDialog/fr\|TOpenDialog]] sur la fiche.
6	6
7	7		![](/wiki-images/7/7c/TStringGrid02.png)
8	8
9	9		# Ajustement de colonnes & modification de leurs propriétés
10	10
11	11		Des colonnes peuvent être facilement ajoutées en cliquant-droit sur 'Columns: TGridColumns' :
12	12
13	13		![](/wiki-images/f/f0/TStringGrid09.png)
14	14
15	15		En sélectionnant AddItem, une nouvelle colonne est montrée en dessous. Sous l'onglet Propriétés de l'inspecteur d'objet, une nouvelle liste de propriétés et d'événements associés à cette colonne est alors montrée. A partir de là, les noms des colonnes sont définies ainsi que la largeur. Une fois terminé, le TreeView ressemble à cela :
16	16
17	17		![](/wiki-images/3/39/TStringGrid10.png)
18	18
19	19		Dans cet exemple, le nom de Button1 a été changé en ButtonAddFiles et celui de Button2 en ButtonExit. Le StringGrid1 a été étiré et les boutons ont été aligné comme montré. Remarquez qu'il y a une ligne et une colonne qui sont d'une couleur différente. L'état illustre le concept que cette colonne et cette ligne peuvent être des titres sur leurs colonne et ligne respectives. Bien sûr cet état par défaut peut être modifié en changeant simplement les propriétés 'FixedCols' ou 'FixedRows' dans l'inspecteur d'objet.
20	20
21	21		![](/wiki-images/d/de/TStringGrid03.png)
22	22
23	23		Vous pouvez voir dans ce cas que les lignes de titre ont été changées et que le composant StringGrid1 a été ancré. Cela a été réalisé en deux étapes. La première consiste à regarder l'inspecteur d'objet et à sélectionner diverses propriétés au besoin. Une étape qui devrait être prise lors du démarrage consiste à noter attentivement les propriétés par défaut. Lorsque vous avez effectué de nombreux changements et que vous avez besoin de revenir en arrière, il est beaucoup plus facile de savoir ce que leur état a été lorsque vous avez commencé ou à différents moments en cours de route. L'état de ces propriétés dans la dernière image ne représente qu'une seule ligne fixe avec des titres de colonne. Cet état illustre :
24	24
25		-	~~` FixedCols[0], `\~~
26		-	~~` FixedRows[1], `\~~
27		-	~~` HeaderHotZones[gzFixedCols], `\~~
28		-	~~` HeaderPushZones[gzFixedCols], `\~~
29		-	~~` Options[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goSmoothScroll], `\~~
30		-	~~` TitleFont[Color[clPurple]], `\~~
31		-	~~` Style[fsBold], and `\~~
32		-	~~` RowCount = 1. `~~
	25	+	```text
	26	+	FixedCols[0],
	27	+	FixedRows[1],
	28	+	HeaderHotZones[gzFixedCols],
	29	+	HeaderPushZones[gzFixedCols],
	30	+	Options[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goSmoothScroll],
	31	+	TitleFont[Color[clPurple]],
	32	+	Style[fsBold], and
	33	+	RowCount = 1.
	34	+	```
33	35
34	36		Après avoir visionné votre travail en cliquant sur le bouton Exécuter dans Lazarus, vous pourriez avoir besoin de modifier ces propriétés. Dans ce cas, les propriétés supplémentaires de ColClickSorts et AlternateColor ont été sélectionnées.
35	37
36	38		La seconde chose qui peut être faite est d'utiliser l'éditeur d'ancre (Voir--\>Editeur d'ancre) pour attacher les côtés du StringGrid à la fiche principale.
37	39
38	40		# Utilisation des propriétés prédéfinies disponibles
39	41
40	42		En bas de l'inspecteur d'objet, vous pouvez trouver de l'information utile sur les propriétés montrées comme vu dans l'exemple :
41	43
42	44		![](/wiki-images/e/ea/TStringGrid04.png)
43	45
44	46		Pour ajouter de l'information au composant StringGrid1,il est nécessaire soit d'ajouter de la donnée depuis un flux TStream, LoadCVSFile, soit de lier la grille à une base de données soit d'autres artions similaires. S'il y a liaison à une base de donnée, il y a d'autres composants composants à retenir tels que TDBGrid. D'autres composants tels que TOpenDialog peuvent aussi vous aider à utiliser des méthodes comme LoadCVSFile. Dans plusieurs cas, il est nécessaire de lier directement les données à des cellules données ou à des rangées. Dans notre exemple, nous utiliserons la méthode InsertRowWithValues. Il est maintenant nécessaire d'ajouter au bouton ButtonAddFiles un gestionnaire à l'événement OnClick en passant par l'onglet Evénements de l'inspecteur d'objet.
45	47
46	48		![](/wiki-images/f/f0/TStringGrid05.png)
47	49
48	50		# Bloc de programme pour ajouter de la donnée dans le StringGrid
49	51
50	52		En double-cliquant sur le OnClick, l'éditeur de source devrait ajouter un bloc de code pour la procédure ButtonAddFilesClick. Dans laquelle vous devrez ajouter le code suivant :
51	53
52	54		``` pascal
53	55		uses
54	56		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
55	57		Grids, LazFileUtils, LazUtf8;
56	58		. . . .
57	59		types
58	60		{ TForm1 }
59	61		TForm1 = class(TForm)
60	62		ButtonAddFiles : TButton;
61	63		. . . .
62	64		procedure ButtonAddFilesClick(Sender : TObject);
63	65		procedure ButtonExitClick(Sender : TObject);
64	66		. . . .
65	67		var
66	68		Form1 : TForm1;
67	69		implementation
68	70		{$R *.lfm}
69	71		{ TForm1 }
70	72		procedure TForm1.ButtonExitClick(Sender : TObject);
71	73		begin
72	74		Close;
73	75		end;
74	76		.
75	77		procedure TForm1.ButtonAddFilesClick(Sender : TObject);
76	78		var
77	79		FilePathName : string;
78	80		begin
79	81		if OpenDialog1.Execute then
80	82		FilePathName := OpenDialog1.Filename;
81	83		AddFilesToList(FilePathName);
82	84		end;
83	85		```
84	86
85	87		La procédure pour la fermeture de l'application est montrée pour la complétude. Dans la procédure ButtonAddFilesClick, nous utilisons maintenant le OpenDialog1 et sélectionnons la méthode Execute. Si l'appel à Execute réussi (choix d'un fichier et confirmation par l'utilisateur), la propriété OpenDialog1.FileName est copiée dans notre variable 'FilePathName'.
86	88
87	89		Dans la dernière ligne de la procédure, il apparaît une nouvelle procédure 'AddFilesToList' que nous devons créer. Dans la partie 'private' ou 'public' de la classe TForm1, nous devons déclarer celle-ci. Dans l'implémentation, le bloc de code est créé. Dans cet exemple, nous allons utiliser les fichiers d'un DVD comme cela peut être vu dans l'illustration :
88	90
89	91		![](/wiki-images/d/dc/TStringGrid06.png)
90	92
91	93		Nous voulons que ces fichiers soient listés sur StringGrid1.
92	94
93	95		``` pascal
94	96		Type
95	97		. . . .
96	98		private
97	99		procedure AddFilesToList(FilePathName : String);
98	100		. . . .
99	101		procedure TForm1.AddFilesToList(FilePathName : String);
100	102		var
101	103		D, R, K : integer;
102	104		FileName, FilePath : string;
103	105		SearchRec1, SearchRec2 : TSearchRec;
104	106		FileListVideo, FileListVst : TStringList;
105	107		begin
106	108		FileListVideo := TStringList.Create;
107	109		FileListVst := TStringList.Create;
108	110		FileName := ExtractFileName(FilePathName);
109	111		FilePath := ExtractFilePath(FilePathName);
110	112		FileListVideo := FindAllFiles(FilePath,'VIDEO_TS.*',true, faDirectory);
111	113		R := 1;
112	114		K := 0;
113	115		for D := 0 to FileListVideo.Count -1 do
114	116		begin
115	117		if FindFirstUtf8(FilePath, faAnyFile and faDirectory, SearchRec1)=0 then
116	118		begin
117	119		repeat
118	120		With SearchRec1 do
119	121		begin
120	122		FileName := ExtractFileName(FileListVideo.Strings[D]);
121	123		K := FileSizeUtf8(FileListVideo.Strings[D]);
122	124		StringGrid1.InsertRowWithValues(R,['0', FileName, IntToStr(K)]);
123	125		R := R + 1;
124	126		end;
125	127		until FindNextUtf8(SearchRec1) <> 0;
126	128		end;
127	129		FindCloseUtf8(SearchRec1);
128	130		end;
129	131		...
130	132		FileListVst := FindAllFiles(FilePath, 'VTS_.', true, faDirectory);
131	133		K := 0;
132	134		for D := 0 to FileListVst.Count -1 do
133	135		begin
134	136		if FindFirstUtf8(FilePath, faAnyFile and faDirectory,SearchRec2)=0 then
135	137		begin
136	138		repeat
137	139		With SearchRec2 do
138	140		begin
139	141		FileName := ExtractFileName(FileListVst.Strings[D]);
140	142		K := FileSizeUtf8(FileListVst.Strings[D]);
141	143		StringGrid1.InsertRowWithValues(R,['1', FileName, IntToStr(K)]);
142	144		R := R + 1;
143	145		end;
144	146		until FindNextUtf8(SearchRec2) <> 0;
145	147		end;
146	148		FindCloseUtf8(SearchRec2);
147	149		end;
148	150		StringGrid1.SortColRow(true, 1,1,StringGrid1.RowCount-1);
149	151		FileListVst.Free;
150	152		FileListVideo.Free;
151	153		end;
152	154		```
153	155
154	156		Cet exemple utilise les méthodes 'FindAllFiles' de 'FileUtils' et 'FindFirstUtf8', 'FindNextUtf8' et 'FindCloseUtf8' de 'LazFileUtils'.
155	157
156	158		# Colonne avec CheckBox
157	159
158	160		Une caractéristique qui peut être utile dans des applications du TStringGrid est d'avoir des colonnes avec des cases à cocher (CheckBox) soit pour que l'utilisateur puisse définir une sélection soit pour montrer un certain état d'une propriété. L'ajout de ce type de colonne est illustré dans ce code. Dans la méthode 'InsertRowWithValues', la première colonne a un '0' affiché dans la première partie du code quand les fichiers contenant 'VIDEO_TS' sont sélectionnés. Le '0' illustre l'état booléen de la case à cocher avec 1 ppour l'état coché et 0 pour son opposé. En sélectionnant depuis l'inspecteur d'objet sous StringGrid1--\>Columns: TGridColumns--\>0-Select dans la vue arborescente (TreeView*), les ValueChecked et ValueUnchecked sont montrées. Vous pouvez utiliser d'autres nombres, ou avoir ajouté du code pour modifier l'état.
159	161
160	162		# Méthode InsertRowWithValues
161	163
162	164		Dasn cet exemple, la méthode InsertRowWithValues est utilisée pour ajouter de la donnée à notre composant StringGrid1. Chaque donnée de colonne est entrée suivie d'une virgule. Il peut être nécessaire d'utiliser des fonctions de conversion de type (typecasting) pour obtenir les données sous forme de texte. Les variables peuvent être référencée ou simplement montrée comme du texte tel que '0' et '1' le sont pour la colonne CheckBox.
163	165
164	166		![](/wiki-images/d/d3/TStringGrid08.png)
165	167
166	168		Lors de l'exécution de notre nouvelle application et en cliquant sur le bouton 'AddFiles', une boîte de dialogue s'ouvre nous permettant de sélectionner les fichiers à ajouter. Si vous cliquez sur un en-tête de colonne, StringGrid1 est trié dans la direction indiquée par la flèche verte. Le résultat doit être comme indiqué dans l'illustration suivante:
167	169
168	170		![](/wiki-images/e/e4/TStringGrid07.png)
169	171
170	172		Selon vos besoins, d'autres propriétés peuvent être sélectionnées pour permettre l'édition, le redimensionnement des colonnes, etc.
171	173
172	174		# Voir aussi
173	175
174	176		- [[TDrawGrid/fr\|TDrawGrid]]
175	177		- [[TDBGrid/fr\|TDBGrid]]
176	178		- [[Grids Reference Page/fr\|Page de référence sur les grilles.]]
177	179
178	180		---
179	181		From the Free Pascal wiki, page "TStringGrid/fr", as it stood on 2020-03-02 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history