[sorockinalex]

Ребята, ничего не пойму,
включено goRowSelect, отключено goRangeSelect, но при кликах на строках происходит выделение кликнутой строки, а сброс выделения предыдущей не происходит. в чём дело? Сравнивал с работающим стринг гридом другого модуля - все настройки идентичны, кроме размеров, а поведение разное...

[poli-smen]

Сообщение от sorockinalex

Ребята, ничего не пойму,
включено goRowSelect, отключено goRangeSelect, но при кликах на строках происходит выделение кликнутой строки, а сброс выделения предыдущей не происходит. в чём дело? Сравнивал с работающим стринг гридом другого модуля - все настройки идентичны, кроме размеров, а поведение разное...

Может разница в событиях?
Но вообще твоего описания недостаточно для выяснения причин. Ты хоть бы скопировал сюда этот некорректно работающий StringGrid.

[sorockinalex]

object CompaniesStringGrid: TStringGrid
Left = 8
Top = 48
Width = 353
Height = 143
ColCount = 2
DefaultColWidth = 100
DefaultRowHeight = 19
FixedCols = 0
RowCount = 7
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect]
ScrollBars = ssVertical
TabOrder = 0
OnDrawCell = CompaniesStringGridDrawCell
ColWidths = (
100
100)
end

[sorockinalex]

Сообщение от poli-smen

Может разница в событиях?
Но вообще твоего описания недостаточно для выяснения причин. Ты хоть бы скопировал сюда этот некорректно работающий StringGrid.

что значит разница в событиях?

[NumLock]

ты же руками рисуешь

[poli-smen]

Сообщение от sorockinalex

что значит разница в событиях?

У инспектора объектов на вкладке Events (события). События могут менять поведение компонентов.
p.s. Тот компонент который ты сюда выложил у меня в Delphi7 нормально работает: при выделении другой строки выделение предыдущей строки сбрасывается.

[sorockinalex]

в эвентах я только добавлял процедуру закраски жирным первого столбцай строки, на всех стринг гридах во всех модулях олна работает исправно.. может быть что в ней?:

Код:

procedure TFAddBranchCompany.CompaniesStringGridDrawCell(
  Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
begin
  //Жирный заголовок
  if ARow=0 then    (Sender as TStringGrid).Canvas.Font.Style:=[fsBold]
  else    (Sender as TStringGrid).Canvas.Font.Style:=[];
  (Sender as TStringGrid).Canvas.TextOut(Rect.Left+2,Rect.Top+2,(Sender as TStringGrid).Cells[ACol,ARow]);
end;

[sorockinalex]

ну и второй эвент никак не влияет на внешний вид:

Код:

procedure TFAddBranchCompany.CompaniesStringGridDblClick(Sender: TObject);
var
  companypin_:string;
begin
  companypin_:=CompaniesStringGrid.Cells[0,CompaniesStringGrid.Row];
  CompaniesRefresh(companypin_);
end;

[poli-smen]

Сообщение от sorockinalex

в эвентах я только добавлял процедуру закраски жирным первого столбцай строки, на всех стринг гридах во всех модулях олна работает исправно.. может быть что в ней?:

Код:

procedure TFAddBranchCompany.CompaniesStringGridDrawCell(
  Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
begin
  //Жирный заголовок
  if ARow=0 then    (Sender as TStringGrid).Canvas.Font.Style:=[fsBold]
  else    (Sender as TStringGrid).Canvas.Font.Style:=[];
  (Sender as TStringGrid).Canvas.TextOut(Rect.Left+2,Rect.Top+2,(Sender as TStringGrid).Cells[ACol,ARow]);
end;

Нет. С этим обработчиком всё нормально (и с CompaniesStringGridDblClick тоже).
Какие ещё есть обработчики у этого StringGrid'а?

ps Какая версия Delphi?