![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
таблица StringGrid [D7, XP]
Lex85 © (2005-11-13 19:24:00)Как сделать так, чтобы в таблице StringGrid все ячейки были в пассивном состоянии (не выделены особым цветом или рамкой из точек).
lex85 (2005-11-13 21:22:00) [1]Удалено модератором
lex85 (2005-11-13 21:21:00) [2]Большое спасибо. Все заработало!!!
on-lite (2005-11-13 21:18:00) [3]Попробуй толщину линий свести к нулю GridLineWidth:=0
ну а на счет выделений(!) особым цветом тебе уже подсказали!%-)
DefaultDrawing=false
StringGrid (2005-11-13 20:40:00) [4]И еще что бы убрать выделение:
procedure TForm1.Button1Click(Sender: TObject);
var s:TGridRect; T:TGridCoord;
begin
T.X:=10;
T.Y:=0;
s.Bottom:=0;
s.TopLeft:=T;
StringGrid1.Selection:=s;
end;
StringGrid (2005-11-13 20:20:00) [5]procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.ColCount:=10;
StringGrid1.rowCount:=10;
StringGrid1.FixedCols:=0;
StringGrid1.FixedRows:=0;
StringGrid1.DefaultDrawing:=false;
end;
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
StringGrid1.DefaultDrawing:=true;
end;