|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
StringGrid goRangeSelect отключен, но выделяется несколько строк
Ребята, ничего не пойму,
включено goRowSelect, отключено goRangeSelect, но при кликах на строках происходит выделение кликнутой строки, а сброс выделения предыдущей не происходит. в чём дело? Сравнивал с работающим стринг гридом другого модуля - все настройки идентичны, кроме размеров, а поведение разное... |
#2
|
||||
|
||||
Цитата:
Но вообще твоего описания недостаточно для выяснения причин. Ты хоть бы скопировал сюда этот некорректно работающий StringGrid. |
#3
|
|||
|
|||
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 |
#4
|
|||
|
|||
Цитата:
|
#5
|
||||
|
||||
ты же руками рисуешь
Пишу программы за еду. __________________ |
#6
|
||||
|
||||
Цитата:
p.s. Тот компонент который ты сюда выложил у меня в Delphi7 нормально работает: при выделении другой строки выделение предыдущей строки сбрасывается. |
#7
|
|||
|
|||
в эвентах я только добавлял процедуру закраски жирным первого столбцай строки, на всех стринг гридах во всех модулях олна работает исправно.. может быть что в ней?:
Код:
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, 29.10.2012 в 13:49. |
#8
|
|||
|
|||
ну и второй эвент никак не влияет на внешний вид:
Код:
procedure TFAddBranchCompany.CompaniesStringGridDblClick(Sender: TObject); var companypin_:string; begin companypin_:=CompaniesStringGrid.Cells[0,CompaniesStringGrid.Row]; CompaniesRefresh(companypin_); end; |
#9
|
||||
|
||||
Цитата:
Какие ещё есть обработчики у этого StringGrid'а? ps Какая версия Delphi? |
#10
|
|||
|
|||
больше никаких - только эти
|
#11
|
|||
|
|||
Версия делфи = 7.0 билд 4.453
|
#12
|
|||
|
|||
значит ничего пособветовать не можете? ((
|
#13
|
||||
|
||||
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
sorockinalex (29.10.2012)
|
#14
|
|||
|
|||
блин... а у тебя какая версия билдера?
|
#15
|
||||
|
||||
Цитата:
Дома у меня Delphi 6.0 (Build 6.240) Update Pack 2. На работе Delphi 7 Lite Full Edition 7.3.4.3 (более точно смогу сказать когда буду на работе). Кстати на Delphi 6 (который у меня дома) тоже не наблюдается глюка с не сбрасыванием выделения предыдущей строки. |