Не показывается текст в StringGrid при использовании ONDrawCell

← →
jjiura (2003-07-10 20:49) [0]

Я использую метод ONDrawCell,но когда я затем пишу в StringGrid-е какое-либо слово,то оно закрашивается.Как этого избежать?
Метод ONDrawCell выглядит так:
procedure TForm1.StringAlignGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
Rect.Left:=rect.Left-4;
Rect.Top:=rect.Top-4;
If (acol=0) or (arow=0) then Begin
StringAlignGrid1.Canvas.Brush.Color:=clSilver;
StringAlignGrid1.Canvas.FillRect(rect)
End
Else Begin
StringAlignGrid1.Canvas.Brush.Color:=clwhite;
StringAlignGrid1.Canvas.FillRect(rect);
End;
StringAlignGrid1.Canvas.Brush.Color:=clBlue;
StringAlignGrid1.Canvas.FrameRect(rect);
end;

← →
Palladin © (2003-07-10 20:54) [1]

> Как этого избежать?

не закрашивать его

← →
jjiura (2003-07-10 20:55) [2]

Не закрашивать?Так а как тогда я приведу табл в нужный вид?

← →
Palladin © (2003-07-10 20:56) [3]

ну есть и второй вариант

← →
jjiura (2003-07-10 20:59) [4]

ииииии...?:)

← →
Palladin © (2003-07-10 21:01) [5]

кусочек кода
const
strValue="значение1";

var
s:string;

...
s:=strValue;
....
s:="ой перезаписал strValue";
...

вопрос, как вернуть в переменную s значение strValue?
твои любые соображения

Раз уж ты закрашиваешь текст, может не мешает его самому потом нарисовать?

TCanvas.TextRect(Rect: TRect; X, Y: Integer; const Text: string);
TCanvas.TextOut(X, Y: Integer; const Text: String);

Не показывается текст в StringGrid при использовании ONDrawCell Найти похожие ветки