delphi.gif (306 バイト) DrawGridの使い方


DrawGridは画像などのオブジェクトを表形式で表示、管理する時使用します。

 

toach.gif (917 バイト) セルの幅や高さをユーザが自由に変更できるようにするには

StringGridを参照してください。

 

toach.gif (917 バイト) 現在選択されているセルを得るには

StringGridを参照してください。

 

toach.gif (917 バイト) セルの内容を描画するには

OnDrawCellイベントハンドラを追加して、その中でセルの描画を行います。

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
begin
    if (Col = DrawGrid1.Col) and (Row = DrawGrid1.Row) then
    with DrawGrid1 do
    begin
        Canvas.Brush.Color := $000c0c0;
        Canvas.Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
        Canvas.FloodFill(Rect.Left, Rect.Top, $ff0000, fsSurface);
    end;
end;