喫茶XRAYトップページ

[スレッド全体]
[5872] FMXなStringGrid返信　削除
2012/3/12 (月) 16:52:51 Syake
DEKOさんのところで、TStringGridで文字列の描画位置に関するサンプルが出て
おります。
http://ht-deko.minim.ne.jp/techf011.html
大変参考になります。

様々工夫のあるとこではありますが、私的には・・・・
//-----------------------------------------------------------//
procedure TForm1.StringGrid1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
var
  i,j :Integer;
begin
  with (Sender as TStringGrid) do
  begin
    for i := 0 to ColumnCount-1 do
    begin
      for j := 0 to RowCount-1 do
      begin
        if Assigned(TTextCell(StringGrid1.Columns[i].CellControlByRow(j))) then
        begin
          with TTextCell(StringGrid1.Columns[i].CellControlByRow(j)) do
          begin
            if (i mod 2 = 0) and (j mod 2 = 0) then
            begin
              TextAlign := TTextAlign.taCenter;
            end else begin
              TextAlign := TTextAlign.taLeading;
            end;
          end;
        end;
      end;
    end;
  end;
end;
//--------------------------------------------------------//
の方が良いような気がしました。

動的に変更しやすのでは・・・ないか・・・と。
釈迦に説法です。m(_ _)m


ところで、TStringGridの子コントロールにTPlotGridを追加すると
大変面白いことになります。
procedure TForm1.Button1Click(Sender: TObject);
var
  Col, Row: Integer;
begin
  StringGrid1.BeginUpdate;
  for Col := 0 to StringGrid1.ColumnCount-1 do
  begin
    for Row := 0 to StringGrid1.RowCount-1 do
    begin
      StringGrid1.Cells[Col, Row] := 'Cell[' +
        IntToStr(Col) + ',' + IntToStr(Row) + ']';
    end;
  end;
  StringGrid1.EndUpdate;
end;
こんなんで、確認できます。

実のところ・・・

StringGridで遊んでいたら、ある時表示が妙におかしいことに
気がつきました。
ちょっと土ツボにはまってました。(^_^;)
ふと見ると、StringGridの子コントロールにTPlotGridがいつの
間にやら（って、自分がやったんじゃろ）追加されていて、はず
したら上手く（元に戻った）いったという落ちですけど．．．。

もっとも、こんな事する人いないでしょうが．．．。


[5876] Re:FMXなStringGrid返信　削除
2012/3/12 (月) 19:00:29 Mr.XRAY
▼ Syakeさん

Delphi XE2はまだ，IDEを整備，整えていないんです．実は．
だって，頻繁にUPDATEがあるので，何か不安なもんですから．
UP4を入れたので，試してみました．
ふ〜ん，これがTStringGrid．中々いい感じです．

> ところで、TStringGridの子コントロールにTPlotGridを追加すると
> 大変面白いことになります。

ハハッ．デザイン感覚はともかく，このTPlotGridって使えそうです．

> もっとも、こんな事する人いないでしょうが．．．。

多分....

>http://blogs.embarcadero.com/teamj/2011/11/14/2598/
>参考になります。

ですが，コードが画像なので，やる気起こりません．

[5878] Re2:FMXなStringGrid返信　削除
2012/3/12 (月) 19:17:02 Syake
▼ Mr.XRAYさん
> ですが，コードが画像なので，やる気起こりません．

そんなマスターのために

TStringColumn = class(FMX.Grid.TStringColumn)
  protected
    function CreateCellControl: TStyledControl; override;
  private
    procedure OnCellPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
  end;


function TStringColumn.CreateCellControl: TStyledControl;
var
  TxtCell :TTextCell;
begin
  Result := inherited;

  TxtCell := Result as TTextCell;
  TxtCell.OnPaint := OnCellPaint;
end;

procedure TStringColumn.OnCellPaint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  if Sender is TTextCell then
  begin
    with Canvas do
    begin
      Stroke.Kind := TBrushKind.bkSolid;
      Stroke.Color := claRed;
      StrokeThickness := 1;
      DrawRect(ARect,0,0,AllCorners,1,TCornerType.ctRound);
    end;
  end;
end;

ちなみに
StringColmun1:TStringColmun; の記述は不要です。

こんなことじゃない！？



[5879] Re3:FMXなStringGrid返信　削除
2012/3/12 (月) 19:21:08 Syake
> ▼ Mr.XRAYさん
> > ですが，コードが画像なので，やる気起こりません．
>
> そんなマスターのために

忘れてました。

Gridの作成
のコードを実行すると上記の内容が描画されます。


procedure TForm1.Button1Click(Sender: TObject);
var
  i :Integer;
begin
  with StringGrid1 do
  begin
    RowCount := 20;
    for i := 0 to 7 do
    begin
      AddObject(TStringColumn.Create(StringGrid1));
      Columns[i].Width := 100;
      (Columns[i] as TColumn).Header := 'Title' + IntToStr((Columns[i] as TColumn).Index);
      (Columns[i] as TStringColumn).ReadOnly := True;
    end;
    ShowHeader := False;    //  ヘッダーを表示するか
    ShowVertLines := False; //  Cellの境界縦線を描画するか(True,False)
    //ShowHorzLines     Cellの境界横線を描画するか(True,False)
    //ShowScrollBars   スクロールバーを表示するか
    //ShowSelectedCell  アクチブなCellを白抜き表示するか(True,False)
  end;
end;


・・・多分
[5881] Re4:FMXなStringGrid返信　削除
2012/3/12 (月) 21:56:01 Mr.XRAY
▼ Syakeさん

FMXなTStringGird，表示できました．
単にコピペしただけですが．
ん? 横スクロールバーが...

[5884] Re5:FMXなStringGrid返信　削除
2012/3/13 (火) 08:24:35 Syake
▼ Mr.XRAYさん

> ん? 横スクロールバーが...

微妙ですね。
たまたま私の所は、行高のキリが良くて気がつきませんでした。

どうも
ShowHeader := False;
が悪さをしているようです。
ShowHeader := True;
なら問題ないと思います。

って、そういう問題ではないですね。
[5893] Re6:FMXなStringGrid返信　削除
2012/3/13 (火) 20:50:38 Mr.XRAY
▼ Syakeさん

> って、そういう問題ではないですね。

スクロールすると，OnPaintが発生しますから，その辺りのコードじゃないかと
思うんですが，未確認です．

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82