Delphi Q＆A掲示板について

解決

---

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

編集    削除

---

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

編集    削除

---

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

編集    削除

---

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

編集    削除

---

どこ

編集    削除

---

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

編集    削除

---

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

編集    削除

---

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;

編集    削除

---

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

編集    削除

---

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

編集    削除

---

では解決という事で

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。