TStringGrid/ja

│ English (en) │ français (fr) │ 日本語 (ja) │ русский (ru) │

TStringGrid はComponent PaletteのAdditional tabにある。StringGridは編集されるかもしれない、テキスト情報を提供する。

StringGridプログラムの例

この例は作るために、Lazarusの新しいプロジェクトを作る。TStringGridコンポーネントメニューエリア、またはコンポーネントウィンドウからクリックして選択、フォームに加える。この例では2つのTButtonも示されているように選択されて、フォームに配置されている。この例ではTOpenDialogコンポーネントも選択する必要があり、フォームの上に配置する。

カラムを調整し、そのプロパティを変更する

カラムは'Columns: TGridColumns'をマウスで右クリックするだけで簡単に加えることができる:

AddItemを選択することで、新しいカラムが下に現れる。オブジェクトインスペクタのプロパティタブでそのカラムに関するプロパティとイベントのリストを現すことができる。ここから、カラムの名前と幅を設定する。終了したら、ツリー表示がこのように現れる:

この例ではボタン1の名前はButtonAddFilesに変えられ、ボタンクリックはButtonExitに変えられる。StringGrid1は広げられ、ボタンは示されているように並べられる。 行とカラムの色が異なることに注意すること。その状態はこの行とカラムがそれぞれの行とカラムのタイトルラベルになりうることを示している。 もちろん、このデフォルト状態はオブジェクトインスペクタによって'FixedCols'または'FixedRows'簡単に変えられる。

この場合、タイトル行が変えられ、StringGrid1コンポーネントは固定される。これは2回の操作でできる。初めにオブジェクトインスペクタをじっくり見て、必要に応じて様々なプロパティを選択する。開始するときにとるべき段階は、デフォルトプロパティを注意深く観察することである。多くの変更をして戻るとき、初めに、あるいは様々な中途で何を行った行ったかを知るときにより簡単になる。最後の画のそれらのプロパティは、カラムタイトルを持つただ1つの固定された行を持つ。

   FixedCols[0], 
   FixedRows[1], 
   HeaderHotZones[gzFixedCols], 
   HeaderPushZones[gzFixedCols], 
   Options[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goSmoothScroll], 
   TitleFont[Color[clPurple]], 
   Style[fsBold], and 
   RowCount = 1.

Lazarusで実行ボタンを押すことにより、行ったことを見たら、そのプロパティを変更することが好ましいと見受けられるかもしれない。この場合、ColClickSortsとAlternateColorが選択されている。 第2の段階はアンカーエディタを使い(表示 -> アンカーエディタ)、メインフォームにStringGridの側面をリンクさせることである。

あらかじめ定義された利用できるプロパティ

At the bottom of the Object Inspector you can find useful information about the properties shown as seen in this example:

To add information to the StringGrid1 component, it is necessary to either add data from a TStream, LoadCVSFile, link the grid to a database or other similar actions. If linking to a database there are other components that should be considered like the TDBGrid. Other components such as the OpenDialog may also assist using methods like the LoadCVSFile. In many cases, it is necessary to either directly link data to given cells or ranges. In our example, we will use the InsertRowWithValues method. It is now necessary to add to the ButtonAddFiles an Event by clicking the Events tab of the Object Inspector and selecting the 'OnClick' event.

Program Block To Add Data To The StringGrid

By clicking on the OnClick the SourceEditor should have added a code block for the ButtonAddFilesClick procedure. To this you should add the following code:

  uses
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    Grids, LazFileUtils, LazUtf8; 
  . . . .
  types
      { TForm1 }
  TForm1 = class(TForm)
    ButtonAddFiles : TButton;
  . . . .
    procedure ButtonAddFilesClick(Sender : TObject);
    procedure ButtonExitClick(Sender : TObject); 
  . . . .
  var
    Form1 : TForm1;
  implementation
  {$R *.lfm}
  { TForm1 }  
  procedure TForm1.ButtonExitClick(Sender : TObject);
  begin
    Close;
  end;
  .
  procedure TForm1.ButtonAddFilesClick(Sender : TObject);
  var
    FilePathName : string;
  begin
    if OpenDialog1.Execute then
      FilePathName := OpenDialog1.Filename;
    AddFilesToList(FilePathName);
  end;

The procedure for closing the application is shown for completeness. In the ButtonAddFilesClick procedure we now use the OpenDialog1 and select the Execute method. If is shown in a if - then statement where the boolean property of execute is tested. This method by default is true so the following line then when executed gives the OpenDialog1 property 'FileName' to our variable 'FilePathName'.

In the last line of procedure a new procedure is shown for 'AddFilesToList'. We now need to create this procedure. In the type declaration under either 'Public' or 'Private' we need to add this new procedure. Under implementation, the code block for the procedure is created. In this example we are going to use the files of a DVD as can be seen in this illustration:

We want these files to be listed upon StringGrid1.

  Type
  . . . .
  private
  procedure AddFilesToList(FilePathName : String);
  . . . .
   procedure TForm1.AddFilesToList(FilePathName : String);
   var
     D, R, K : integer;
     FileName, FilePath : string;
     SearchRec1, SearchRec2 : TSearchRec;
     FileListVideo, FileListVst : TStringList;
   begin
     FileListVideo := TStringList.Create;
     FileListVst := TStringList.Create;
     FileName := ExtractFileName(FilePathName);
     FilePath := ExtractFilePath(FilePathName);
     FileListVideo := FindAllFiles(FilePath,'VIDEO_TS.*',true, faDirectory);
     R := 1;
     K := 0;
     for D := 0 to FileListVideo.Count -1 do
     begin
       if FindFirstUtf8(FilePath, faAnyFile and faDirectory, SearchRec1)=0 then
       begin
         repeat
           With SearchRec1 do
           begin
             FileName := ExtractFileName(FileListVideo.Strings[D]);
             K := FileSizeUtf8(FileListVideo.Strings[D]);
             StringGrid1.InsertRowWithValues(R,['0', FileName, IntToStr(K)]);
             R := R + 1;
         end;
       until FindNextUtf8(SearchRec1) <> 0;
     end;
     FindCloseUtf8(SearchRec1);
   end;
   .
   FileListVst := FindAllFiles(FilePath, 'VTS_*.*', true, faDirectory);
   K := 0;
   for D := 0 to FileListVst.Count -1 do
   begin
     if FindFirstUtf8(FilePath, faAnyFile and faDirectory,SearchRec2)=0 then
     begin
       repeat
         With SearchRec2 do
         begin
           FileName := ExtractFileName(FileListVst.Strings[D]);
           K := FileSizeUtf8(FileListVst.Strings[D]);
           StringGrid1.InsertRowWithValues(R,['1', FileName, IntToStr(K)]);
           R := R + 1;
          end;
        until FindNextUtf8(SearchRec2) <> 0;
      end;
      FindCloseUtf8(SearchRec2);
    end;
    StringGrid1.SortColRow(true, 1,1,StringGrid1.RowCount-1);
    FileListVst.Free;
    FileListVideo.Free;
  end;

This example uses the methods 'FindAllFiles' from 'FileUtils' and 'FindFirstUtf8', 'FindNextUtf8' and 'FindCloseUtf8' from 'LazFileUtils'.

CheckBox Column

One feature that can be very helpful in applications of the TStringGrid is having a checkbox column that either a user can click to signify their selection or used to show a certain state for some property. Adding this type of column is illustrated in this code. In the method 'InsertRowWithValues', the first column has '0' shown in the first part of the code when files containing 'VIDEO_TS*' are being selected. The '0' is illustrating the boolean state of a checkbox with 1 being checked and 0 unchecked. In selecting from the Object Inspector under StringGrid1-->Columns: TGridColumns-->0-Select in the TreeView, the ValueChecked and ValueUnchecked are shown. You can use other numbers, or have added code to change the state.

InsertRowWithValues Method

In this example the method InsertRowWithValues is used to add data to our StringGrid1 component. Each column's data is entered followed by a comma. It may be necessary to use typecasting functions to get data into a string format. Variables can be referenced, or simply shown as text as our '0' and '1' are for checkbox column.

Upon running our new application and clicking the button 'AddFiles' a dialog box opens allowing us to select file(s) to be added. If you click on a column header, StringGrid1 is sorted in the direction as shown by the green arrow. The result should be as shown in the following illustration:

Depending on your needs other properties can be selected to allow editing, resizing columns, etc.

Content based row background coloring

With PrepareCanvas event, you can alter the background color of every row based on the row's text content.

const
  csPASSED = 'Passed';
  csFAILED = 'Failed';
  csERROR  = 'Error';

procedure TForm1.StatisticsGridPrepareCanvas(Sender: TObject; aCol,
  aRow: Integer; aState: TGridDrawState);
begin
  if not(sender is TStringGrid) then Exit;

  if (sender as TStringGrid).Rows[aRow].Text.Contains(csERROR) then begin
     (sender as TStringGrid).Canvas.Brush.Color := clRed;
  end else if (sender as TStringGrid).Rows[aRow].Text.Contains(csFAILED) then begin
      (sender as TStringGrid).Canvas.Brush.Color := clYellow;
  end else if (sender as TStringGrid).Rows[aRow].Text.Contains(csPASSED) then begin
      (sender as TStringGrid).Canvas.Brush.Color := clGreen;
  end;
end;

See also

• TDrawGrid
• TDBGrid
• Grids Reference Page (for more details on grids in Lazarus)