喫茶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，表示できました．
単にコピペしただけですが．
ん? 横スクロールバーが...

[5882] Re5:FMXなStringGrid返信　削除
2012/3/12 (月) 22:04:17 Mr.XRAY
これが実行開始時の状態です．
前のはボタンクリックした時です．

[5883] Re6:FMXなStringGrid返信　削除
2012/3/13 (火) 07:36:13 yoshida
便乗して・・

VCLのOnSelectCellイベントでCellのRectが欲しいようなケースなんですが、
TStringColumn.OnEnterで、LocalRectあたりに期待したけれどダメっぽくて、
かろうじてAbsoluteRectあたりで計算してできるっぽいという感じですかね。

procedure TForm1.FColEnter(Sender: TObject);
begin
 Label1.Text := 'ColEnter:' + inttostr(trunc(TControl(Sender).AbsoluteRect.left)) + ' ' +inttostr(trunc(TControl(Sender).AbsoluteRect.top));
 //Label1.Text := 'ColEnter: ' + inttostr(trunc(TControl(Sender).ClipRect.left)) + ' ' +inttostr(trunc(TControl(Sender).ClipRect.top));
 //Label1.Text := ColEnter: ' + inttostr(trunc(TControl(Sender).LocalRect.left)) + ' ' +inttostr(trunc(TControl(Sender).LocalRect.top));
end;

OnEnterがまだ本気そうじゃないので、クリアしても壁はありますが(あきらめ感)


[5897] Re7:FMXなStringGrid返信　削除
2012/3/14 (水) 06:53:28 yoshida
> procedure TForm1.FColEnter(Sender: TObject);

TControl.FChildrenあたりにCellを持ち、Paint時のRectを保持しているかも〜という感じで
ソースをよく見るとOnEnterのSenderは、Columnですし勘違いしていました。失礼。

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