TStringGridのセルのTColorを取得するには？

解決

やまだ 2007-08-17 07:52:08 No: 27411

ご存知のかたいましたら情報提供お願いします。

TStringGridのセルのTColorを取得したいのですがうまくいきません。

function TMultiStringGrid.getColor(x,y:Intetger):TColor;
begin
  with self.sge do begin
    result := Canvas.Pixels[cellRect,(x,y).Left,cellRect(x,y).top];
  end;
end;

これだと常に-1が帰ってきます。

ご存知のかたお願いします。

ご存知ない 2007-08-17 18:12:02 No: 27412

TStringGridから派生したTMultiStringGridでも作ったのかな？
self.sge ってナニかな？

やまだ 2007-08-17 18:46:50 No: 27413

説明不足ですみません。
TMultiStringGridは、ctrlキーを押しながらクリックすると複数
の行を選択できます。
選択しているかどうかをセルの色で判断したいんです。

type TMultiStringGrid = class(TObject)
  private
    Fsge :TStringGrid;
  public
    property sge:TStringGrid read Fsge write Setsge;
    function getColor(x,y:Integer);TColor;
end;

よろしくお願いします、

やまだ 2007-08-17 23:09:43 No: 27414

すいません。自己解決できました。
result := Canvas.Pixels[cellRect,(x,y).Left,cellRect(x,y).top];
で正しくとれていました。私の勘違いでした。

ありがとうございました。