Delphi Q＆A掲示板について

解決

PAPY URL 2000-08-14 00:32:54 No: 1

この掲示板はDelphi Q&A 掲示板です。
それ以外のことはDelphi掲示板に書き込んで下さい。

ゆうこ 2001-06-20 19:24:53 No: 2

四点ほどあるのですが
・stringgrid（複数ある）とセルの中身を印刷したいです。（その中のひとつは、スクロールバーがあり、画面上には全部が表示していないのですが、全て印刷したいです）
・stringgridの最初のカーソルの位置（青い部分）を消したいです。
・stringgrid内にマウスの選ばれた範囲内をdeleteボタンが押されたら、その中身を消す機能をつけたいです。
・コンボボックス内を右寄せにしたいです。
こんなに長くなってしまってすいません。ひとつでも分かったら、教えてください！！

えが 2003-10-26 00:09:27 No: 3

StringGridが表示されたときクリックするまで最初のセルが紺色反転しているのをプログラムでけしたいのですが。教えてください。

α 2005-02-11 22:46:19 No: 4

>それ以外のことはDelphi掲示板に書き込んで下さい。
それどこにあるのですか？

． 2005-07-12 00:07:58 No: 5

どこ

ここ？ 2005-07-12 00:24:06 No: 6

ここ？
http://www.delphigig.com/board/aspBoard.asp

メラトニン 2005-07-12 00:53:36 No: 7

ゆうこさん、えがさん
いらっしゃいましたら新たにタイトルをつけて投稿されたほうが良いのではないでしょうか？
というか、このスレッドは何？

HOta 2005-07-12 01:44:16 No: 8

StringGrid1そのものの印刷です。
  Printer.begindoc;
  StringGrid1.PaintTo(Printer.Handle,1,1);
  Printer.enddoc;

最初のカーソルの位置（青い部分）を書き直す。
StringGrid1OptionのgoDrawFocusSelectedを外す。
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with TStringGrid( Sender ).Canvas do
    begin
      if Flg and ( gdSelected in State ) then  //FlgはBoolreanでOnCreateでTrueにする
        begin
          Brush.Color := TStringGrid( Sender ).Color;
          Font.Color := TStringGrid( Sender ).Font.Color;
          Flg := false;
          FillRect( Rect );
          OffSetRect( Rect, 0, 2 );      //文字描画位置の調整
          DrawText( Handle, PChar( TStringGrid( Sender ).Cells[ ACol, ARow ] ),
                                                       -1, Rect, DT_CENTER );
        end;
    end;
end;

選択範囲のセル内容を''にする。
  var
    I,J  :  Integer;
  begin
    with StringGrid1 do
      for I := Selection.Top to Selection.Bottom do
        for J := Selection.Left to Selection.Right do
        Cells[J, Col] := '';
  end;

＠ 2005-07-12 02:59:30 No: 9

投稿日が古いことにお気づきでしょうか？

HOta 2005-07-12 03:38:52 No: 10

気が付きませんでした。失礼しました。

ななし 2005-07-12 03:58:15 No: 11

では解決という事で