Пропадает полоса прокрутки Dbgrid

← →
AntonUSAnoV (2008-01-08 18:22) [0]

Уважаемые программисты хоть я уже задавал этот вопрос, ответа на него даже коллективным путём мы не нашли, в связи с этим я хотел бы вновь его поднять:
Суть такова: пользователь производит SQL выборку из БД, затем нажимает кнопку все записи, которая устанавливает datasource-dataset в исходное положение, т.е. показывает все записи. И тут в dbgrid у меня почему то пропадает полоса прокрутки(вертикальная), причём пропадает, только если после выборки результат - 1 запись, а если их несколько то соответственно не пропадает.

Наблюдение: после выборки-1 запись - полоса прокрутки тут же пропадает, и при нажатии на кнопку все записи не появляется, а если после выборки- несколько записей, полоса прокрутки не пропадает.

В ходе предыдущих раздумий пришёл к выводу что это проблема отображения DBgrida в виндоус ХП и виста, и связана она со стилями Виндоус, как решить никто не знает, вопрос уже обсуждался на этой ветке под этой же темой

← →
sniknik © (2008-01-08 19:11) [1]

> В ходе предыдущих раздумий пришёл к выводу
прям таки сам, взял, и пришел?

от тебя инфы, об окружении, где запускается, и как это происходит было 0...
догадки о стилях были по чужой инфе, и возможно не связанной с твоей. а просто похожей проблеме.
http://delphimaster.net/view/3-1196084789/

> как решить никто не знает
а ктото пытался решить? автор на тему "забил", никакой инфы на доп.вопросы не дал. чего решать проблему которая только у автора и проявляется?
ну да, и еще у одного который сказал что ему пофигу эта проблема. (к тому же возможно из другой области)

и почему вообще ктото должен знать все, по каждому чиху начинающих? почему не решить коллективно (раз сам не можеш?)
почему форум воспринимается как база готовых решений, а не место обсудит/решить проблему с коллегами?

p.s. хочеш чтото решить сам прочитай старую ветку, и сделай выводы. иначе закрою.
(уже могу, как спам. но ладно уж, дубль довольно старый... амнистия за давность)

← →
AntonUSAnoV (2008-01-08 20:06) [2]

Спасибо за понимание, прошу прошения за неточность в выражениях...

Но что конкретно можно ещё добавить к описанной ситуации ?,

← →
AntonUSAnoV (2008-01-08 20:08) [3]

кстати по поводу стилей: это же действительно работает : при изменении на стиль Виндоус 2000 этой проблемы уже не наблюдается, только меры больно уж радикальные..

← →
sniknik © (2008-01-08 20:29) [4]

> Но что конкретно можно ещё добавить к описанной ситуации ?
все! вплоть до примера исходника с базой как в той ветке просили.
должен понимать, что описанная ситуация это не всеобщая проблема, о которой стоит только упомянуть и все поняли о чем. я так вот ни разу не сталкивался, хотя у многих клиентов и XP, и стили и т.д. и запрос с результатом в 1 запись не редкость, а после в больше...
и никто не жаловался. (???) даже намеков на подобное не было (а вообщето радуются, и пытаются в глюки записать даже грамматическую ошибку гденибудь в интерфейсе...)

т.е. у тебя полная монополия на методы получения твоего глюка, и уж постарайся обьяснить так (если не хочеш/не можеш пример), чтобы и мы могли воспроизвести глюк...

если по той ветке не понял, я его так и не воспроизвел, хотя и пытался, предположение было просто "задачкой на логику" по инфе предоставленной Prohodil Mimo. не более. (мог и ошибиться, но вроде подтвердилось)

← →
Германн © (2008-01-09 02:44) [5]

> AntonUSAnoV (08.01.08 20:06) [2]
>
> Спасибо за понимание, прошу прошения за неточность в выражениях.
> ..
>
> Но что конкретно можно ещё добавить к описанной ситуации
> ?,
>

"Белую норвежскую крысу" :)

← →
AntonUSAnoV (2008-01-26 15:45) [6]

Итак я хотел бы вернуться к проблеме, имея новые данные: тут вроде говорили что пропадание полосы прокрутки при результате выборки в 1 запись - это нормально, но вот я сам попробовал и обнаружил что на другом ДБГриде даже при результате в 1 запись полоса остаётся. А на другом (с которого начиналось обсуждение - пропадает, и потом уж не возвращается, Сто ещё могу сказать: на форме есть table1, datasource1, dbgrid1, query1. Я делаю SQL выборку с помощью Query, делаю Datasource1.dataset:=query1, и повторюсь если результат - 1 то полоса прокрутки пропадает, далее жму кнопку все записи (dataset:=table1) - не появляется. Так вот : я попробовал вывести результат выборки не в этот Дбгрид, а в другой , на др. форме, поменяв form2.datasource2. dataset:=form1.query1, конечно повалили ошибки из-за ненайденых полей, но кое-что всё-таки вывелось во 2-й Дбгрид, и в нём осталась полоса прокрутки(при результате - 1 запись).. так в чём же дело, в Гриде, в Query ? или глубже ...?

← →
sniknik © (2008-01-26 16:14) [7]

> имея новые данные:
хм... а че ж тогда ты их не показываешь? (как впрочем и старые)

> так в чём же дело
чем больше читаю твои вопросы(не только этот) тем больше думаю что в ДНК.

← →
AntonUSAnoV (2008-01-26 20:04) [8]

> sniknik ©

Восхищён Вашим чувствум юмора, равно как и такта...браво...

← →
sniknik © (2008-01-26 20:35) [9]

юмора в моих высказываниях сдесь нет. все серьезно. зря восхищаешься.
а чувство такта у меня теряется обычно раньше, сразу, тебе еще повезло, пару раз пытался обьяснить, что надо для решения. третий раз не буду (какой смысл если в ответ идет не инфа а бред?).
хотя и у этого бреда есть положительная сторона, теперь ясно, что автор не мог напороться на системную/... ошибку (то было исключительно у Prohodil Mimo, да и то возможно т.к. не подтверждено), которая мне была бы интересна, а борется исключительно с собственной дуростью... которая думаю всем до фени. (это ж надо, после кучи эксептов делать вывод, что то что получается правильно...)

← →
AntonUSAnoV (2008-01-26 21:11) [10]

if form1.DataSource1.DataSet=form1.table1 then begin query1.SQL[0]:="select *"; query1.SQL[1]:="FROM ":Теннис:players.DB""; query1.SQL[2]:= "where"; query1.SQL[3]:= "(fam like ""+familia+"") and"; query1.SQL[4]:= "(name like ""+name+"") and"; query1.SQL[5]:= "(otchestvo like ""+otchestvo+"") and"; query1.SQL[6]:= "(data_rogd like "%"+data_rogd+"%") and"; query1.SQL[7]:= "(razriad like ""+razriad+"") and"; query1.SQL[8]:= "(mesto_uchebi like "%"+mesto_uchebi+"%") and"; query1.SQL[9]:= "(trener like "%"+trener+"%") and"; query1.SQL[10]:= "(pasport like ""+pasport+"") and"; query1.SQL[11]:= "(strahovoe like ""+strahovoe+"") and"; query1.SQL[12]:= "(adress_propiski like "%"+propiska+"%") and"; query1.SQL[13]:= "(best_result like "%"+best_result+"%")"; query1.SQL[14]:= "order by fam"; end; query1.Open; if Query1.RecordCount <> 0 then begin form1.DataSource1.DataSet:=Query1; poisk.Close; // это запрос на выборку

← →
sniknik © (2008-01-26 22:07) [11]

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

ладно в принципе понятно зачем делаются переприсваивания датасета у источника, хотя и не одобряю (кривой метод).
а вот присвоение запроса просто "сказка", и в какой книге такой пример взял? (убить авторов)
ты понимаешь что делаешь? или шаманскими методами, скопировал откудато, вставил работает и ладно...
вставь
...
begin
query1.SQL.Clear;
query1.SQL[0]:="select *";
...
и посмотри что будет, и подумай, почему без этого работало, с этим стало ошибочным, и зачем тогда вообще данное присвоение...

видиш, всего кусочек раскрыл а уже глюк нашли (а это несомненно глюк, т.к. если чтото поменять "там" то "здесь" "неизвестно отчего" будет ошибка, и вопрос в форум "на одной машине/проекте работает а на другом тоже самое нет". вот именно так без подробностей "кто виноват Гейтс или борланд?")

"колись" дальше, пока мне не надоело...

← →
AntonUSAnoV (2008-01-26 22:18) [12]

Пишет list index out of bounds,

← →
AntonUSAnoV (2008-01-26 22:31) [13]

Ну вот , теперь я поменял запрос используя SQL.add(string), всё работает, но проблема с поллосой прокрутки ей же и осталась..

← →
AntonUSAnoV (2008-01-26 22:32) [14]

procedure TForm1.BitBtn1Click(Sender: TObject); begin poisk.QUERY1.Close; if dbgrid1.Visible=true then begin FORM1.DataSource1.DataSet:=form1.table1; Table1.Locate("fam",NAME_RES2,[loCaseInsensitive, loPartialKey]); end; if dbgrid3.Visible=true then begin DataSource1.DataSet:=form1.tablesotrudniki; Tablesotrudniki.Locate("fam",NAME_RES2,[loCaseInsensitive, loPartialKey]); end; edit1.Text:=dbedit1.Text+" "+dbedit2.Text+" " +dbedit3.Text; if form1.DBEdit4.Text <> "" then showfoto(form1.DBEdit4.Text) else form1.image1.Visible:=false; end; // это кнопка "Все записи"

← →
AntonUSAnoV (2008-01-26 22:53) [15]

И ещё : через раз полоса прокрутки таки появляется: т.е.
1)поиск - результат 1 запись - все записи - нет полосы,
2)поиск - результат 1 запись - все записи - есть полоса

← →
sniknik © (2008-01-26 23:57) [16]

по ссылке, пост Prohodil Mimo © (06.12.07 19:45) [8] второй абзац. сделай такой тест сам. всего по одному, кверик, грид и т.д. только кнопки 2, и их событиях разные запросы на с результатами на 1 и много записей...
без мудрежа со сменой датасета, у невидимых гридов и т.д. (того что ты выдаешь за код), т.е. сделай упрощенную модель.
глюк есть?
ну вот ты и ответил на свой же вопрос, в чем дело.
> в Гриде, в Query ? или глубже ...?
при чем сдесь кстати Query, если я вижу в [14] использования только table? (Query1 не при делах, ну закрыли его, а в другом куске в него внесли какието слова... и как это связано то?)

неважно, это риторический вопрос.
важно, что разбирать мы будем не твой "код", его надо переписывать заново с 0, а получившуюся модель.
там по идее не больше 20-30 строк должно получится, во всем модуле (половина автоматом генериться). вот его ты и выложишь сюда полностью (а не свой, огрызками).
иначе обсуждения не получится.

← →
AntonUSAnoV (2008-01-27 13:22) [17]

Мда, благодарю Вас за терпимость и выдержку, позволю себе продолжить: значит сделал я этот тест, - всё работает как часы- 1 или 0 записей - пропадает прокрутка, больше 1 - появляется прокрутка, я ещё заделал третью кнопку - все записи - тоже всё путём.
Потом я сделал такие же три кнопки один в один на своей проблемной форме, и ... чуда не произошло, : 1 запись - пропадает прокрутка, все записи - не появляется, потом опять делаю тоже самое, - появляется, потом опять то же самое - не появляется, и т.д., может какие - нибудь подключаемые модули могут влиять на работу грида ? (если абсурд не ругайте)

← →
sniknik © (2008-01-27 13:29) [18]

> может какие - нибудь подключаемые модули могут влиять на работу грида ?
ага, один "модуль", и ты его постоянно видиш в зеркале.

учись писать правильно, читать хелпы, книги, следовать рекомендуемым методам работы и не лепи "отсебятину"... до тех пор пока не научишься понимать что и зачем делается.

← →
sniknik © (2008-01-27 13:47) [19]

> ага, один "модуль", и ты его постоянно видиш в зеркале.
думаю требуется пояснение...
вот у тебя глюк, ни у кого такого нет, никто (один человек не в счет, да и то у него судя по всему было другое) о таком не слышал... и ты спрашиваешь
> может какие - нибудь подключаемые модули
и даже не приводишь списка... помнишь, никто про твою проблему "ни сном не духом", и даже возможности увидеть чтото необычное в "подключаемых модулях" ты их лишил.
в общем то не очень то и хотелось, это в основном к стилю вопросов.
как думаешь поможет тебе ктонибудь, в таком вопросе и с такой исходной инфой?

хотя тебе самому на него ответить - дело пяти минут. у тебя есть пример с адекватной реакцией и есть прога с неадекватной, и в ней есть все подключаемые модуля... перенеси их из "глючной" в нормальную ничего другого больше не трогая и запусти. реакция стала "глючной"? значит там, убери половину, и еще раз проверь... так методом последовательного исключения ты и найдешь "чудо модуль". (в чем я глубоко сомневаюсь...)

в общем учись работать, и глюки ищи прежде всего у себя.

← →
han_malign © (2008-01-28 17:35) [20]

Выключи бордеры у грида, и будет тебе щастье...
Если так уж бордеры нужны клади на панель.
Это виндовый глюк кеширования отрисовки неклиентской области + прямая закраска VCL-ем.

← →
sniknik © (2008-01-28 18:12) [21]

> Это виндовый глюк кеширования отрисовки неклиентской области + прямая закраска VCL-ем.
а ты внимательно читал ветку? лучше обе.
допускаю, у Prohodil Mimo возможно и был этот "виндовый глюк ...", но не у автора.

← →
ANB © (2008-01-28 18:44) [22]

Так и не понял - что не нравится ?
1 или 0 записей - нет вертикальной полосы прокрутки. А зачем она в таком случае нужна ?
Больше 1 - есть полоса.
Так работают и стандартный грид и эхлибовский.

← →
sniknik © (2008-01-29 16:45) [23]

> Так и не понял - что не нравится ?
он. в [17], говорит, что у него все наоборот... т.е. в тесте нормально, а в его программе > 1 - нет полосы, а 0 и 1 - есть.

и притом ищет проблему в виндовс/гриде/модулях/т.д., только не в себе/своем коде.

← →
Prohodil Mimo © (2008-02-02 00:42) [24]

sniknik © (29.01.08 16:45) [23]

а ты когда пробовал мой тест, какие компоненты использовал?

Я сейчас попробовал опять тот тест:

object Form4: TForm4 Left = 306 Top = 84 Width = 628 Height = 445 Caption = "Form4" Color = clBtnFace Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = "Times New Roman" Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 17 object DBGrid1: TDBGrid Left = 32 Top = 56 Width = 569 Height = 137 DataSource = DataSource1 TabOrder = 0 TitleFont.Charset = RUSSIAN_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -15 TitleFont.Name = "Times New Roman" TitleFont.Style = [] end object Button1: TButton Left = 184 Top = 376 Width = 105 Height = 25 Caption = "0 zapisej" TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 320 Top = 376 Width = 121 Height = 25 Caption = "Mnogo zap." TabOrder = 2 OnClick = Button2Click end object DBGrid2: TDBGrid Left = 32 Top = 216 Width = 569 Height = 137 DataSource = DataSource2 TabOrder = 3 TitleFont.Charset = RUSSIAN_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -15 TitleFont.Name = "Times New Roman" TitleFont.Style = [] end object Query1: TQuery DatabaseName = "DUIS_LHG_IB" Left = 112 Top = 16 end object DataSource1: TDataSource DataSet = Query1 Left = 336 Top = 16 end object IBQuery1: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 Left = 72 Top = 16 end object IBDatabase1: TIBDatabase DatabaseName = "D:\BORLAND\WORK\ESM\DBFS\esm_base.fdb" Left = 160 Top = 16 end object IBTransaction1: TIBTransaction DefaultDatabase = IBDatabase1 Left = 200 Top = 16 end object DataSource2: TDataSource DataSet = IBQuery1 Left = 376 Top = 16 end end

---------------------------------------

unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, IBDatabase, IBCustomDataSet, IBQuery; type TForm4 = class(TForm) Query1: TQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; IBQuery1: TIBQuery; IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; DBGrid2: TDBGrid; DataSource2: TDataSource; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation {$R *.dfm} procedure TForm4.Button1Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add("Select id_prf from profes Where Id_prf = 0"); Query1.Open; ibQuery1.Close; ibQuery1.SQL.Clear; ibQuery1.SQL.Add("Select id_prf from profes Where Id_prf = 0"); ibQuery1.Open; end; procedure TForm4.Button2Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add("Select id_prf from profes Where Id_prf > 0"); Query1.Open; ibQuery1.Close; ibQuery1.SQL.Clear; ibQuery1.SQL.Add("Select id_prf from profes Where Id_prf > 0"); ibQuery1.Open; end; end.

Система Win XP Home SP2 темы включены.
Delphi 2005.

Происходит следующее:
В первом гриде, который отображает записи из TQuery, полоса прокрутки показыватся всегда, даже при 0 записях.
В первом гриде, который отображает записи из TIBQuery, полоса прокрутки:
0 записей - полосы прокрутки нет.
много записей - полоса прокрутки есть.
0 записей - полосы прокрутки нет (видна её часть шириной в 1 пиксель, как будто не всё затёрлось).
много записей - полосы прокрутки нет (видна её часть шириной в 1 пиксель, при скроллировании грида видно, что бегунок перемещактся).
0 записей - полосы прокрутки нет.
много записей - полоса прокрутки есть.
....
и так по кругу.

← →
Prohodil Mimo © (2008-02-02 02:05) [25]

Prohodil Mimo © (02.02.08 0:42) [24]
В первом гриде, который отображает записи из TQuery, полоса прокрутки показыватся всегда, даже при 0 записях.
Во втором гриде, который отображает записи из TIBQuery, полоса прокрутки:

> а ты когда пробовал мой тест, какие компоненты использовал?
ADO естественно (ADOCommand, ets.), и стандартный грид с небольшими доработками.
на самом деля я даже ничего не писал, у меня уже есть программа для тестов
http://webfile.ru/1719375
и, тебя для IB понадобится провайдер данных вот это например
http://webfile.ru/1719377
строку подключения для него вводишь
Provider=IBOLE.Provider.v4;Persist Security Info=False;Data Source=D:\BORLAND\WORK\ESM\DBFS\esm_base.fdb
потом делаешь запросы, на 0 или 1 записей и на много, после одиночного выполнения жмешь кнопку истории (треугольник вниз нарисован), там под запросам будут кнопки "run" - жмешь по очереди. вот мой тест.

> Происходит следующее:
> В первом гриде, который отображает записи из TQuery, полоса прокрутки показыватся всегда, даже при 0 записях.
всегда видима, даже при 0, это легко объяснимо,
хотя именно вот это не пробовал (нет настроенного BDE алиаса как у тебя, и не хочу настраивать, + сервер IB у меня не стоит а "персонал" ограничивается одним подключением т.е. либо то либо другое поэтому закоментарил этот вариант)
проверь сам, после запроса выведи куда нибудь Query1.RecNo и Query1.RecordCount
гарантирую чтото из них будет "-1" (что значит - не поддерживается провайдером), именно в таком случае может быть описанное поведение, и полоса будет показана всегда (и от схем XP это зависеть не должно)

а вот с шириной в 1 пиксель надо будет посмотреть (действительно получил на твоем, показанном, варианте теста), хотя это и не "авторский" глюк, у него ... см. [17]
а у тебя непонятно что, может и не от винды (введи у себя вместо имени поля звездочку "*", либо набери несколько полей, так чтобы появилась горизонтальная прокрутка, глюк исчезнет. т.е. всетаки может ;)).
в общем это надо будет посмотреть.

sniknik © (02.02.08 11:33) [26]

Попробовал на твоём тесте: работает без глюков (0 - нет полосы, несколько записей - полоса есть). Но это ADO.

С Query через BDE - поведение вполне устраивает, хотя я им ни когда не пользуюсь, но иногда есть желание, что бы полоса прокрутки показывалась всегда :о)

А вот поведение IBQuery, а так же DataSet из FIBPlus неесколько странно, но оно проявляется только на ХР и Vista с включёнными схемеми, если их выключить - глюк исчезнет, но опять же проверял на ХР, Vistы нет.

> введи у себя вместо имени поля звездочку "*"...

да, я вчера это заметил, с вертикальной полосой глюка нет.

Вывод один: поведение полосы прокрутки грида зависит от DataSeta. А вот кто виноват, грид или датасет - вопрос.

А можно ли грид научить не прятать полосу прокрутки, независимо от кол-ва записей?

Что у автора - я уже сам не понимаю, по началу было похоже на мой вариант, но чем больше он объяснял, тем менее понятно становилось.

> А вот кто виноват, грид или датасет - вопрос.
не датасет точно, у него все понятно, винда похоже (как понял), она при установке позиции скрола в соответствии номером записи (SetScrollPos) при схемах, стала скрывать полосу при значении -1, но не удаляет ее, грид же "не зная" что скрол спрятан оставляет клиентскую область как есть, и при пере создании(/пере инициализации?) окна (я еще не дошел до него, но чтото там наверняка есть... ;)), указывает эту область к которой добавляется ширина скрола, почемуто 16, как без схем, а реально полоса со схемами 17 (GetSystemMetrics(SM_CXVSCROLL)) вот он на один пиксель и "вылезает" который ты и видел.
а при пустом при 0 записей там обрамляющая рамка не видна со стороны скрола, обрати внимание. т.е. уже при 0 скрол "сломан". если же при пустом (0 записей) сделать "hide" скролу (см. ниже), то рамка появится, и последующее "безобразие" тоже не настанет...
это так, прикидка, но вроде похоже... потом еще "поковыряюсь" если будет желание.

> А можно ли грид научить не прятать полосу прокрутки, независимо от кол-ва записей?
попробуй.
сразу после открытия, датасета.
ShowScrollBar(DBGrid1.Handle, SB_VERT, false); //это для выключения "порченной" полосы (та что в пиксель)
ShowScrollBar(DBGrid1.Handle, SB_VERT, true); //показать

или скопируй и подключи модуль Grids к проекту (чтобы генофонд не править) и добавь там строчку в процедуру
procedure TCustomGrid.UpdateScrollRange; .... end; {????} ShowScrollBar(Handle, SB_VERT, true); {????} finally FScrollBars := OldScrollBars; end; UpdateScrollPos; if (FTopLeft.X <> OldTopLeft.X) or (FTopLeft.Y <> OldTopLeft.Y) then TopLeftMoved(OldTopLeft); end;

это еще до обновления скрола по позиции, но почемуто при такой явной установке видимости, -1 в позиции уже не влияет... странно но ладно.
хотя можеш поставить и после - UpdateScrollPos;

чегото я так подумал подумал... и надумал, что грид не виноват, только винда. все правильно там грид высчитывает, это сама винда почему то решает "прятать" полосу вместо ее удаления (может когда без схем, она делает также, но тогда у нее глюк в другом, гдето ширина скрола 16 забита константой, поэтому сама размер рабочей области определяет неправильный, а во второй раз когда вторая добавка 16-и всетаки перекрывает общую ширину идет перерасчет, при существующем горизонтальном скроле перерасчет идет уже сним в любом случае и получается ошибка маскируется).

ну, в винду не влезешь, поэтому самым простым выходом будет наверное удалять полосу явно, после, при достижении условий когда она прячется (на работу без схем повлиять не должно).
опять же делаем подключение уже DBGrids к проекту и добавляем строчки

procedure TCustomDBGrid.UpdateScrollBar; .... else SINew.nPos := 2; end; if (SINew.nMin <> SIOld.nMin) or (SINew.nMax <> SIOld.nMax) or (SINew.nPage <> SIOld.nPage) or (SINew.nPos <> SIOld.nPos) then begin SetScrollInfo(Self.Handle, SB_VERT, SINew, True); if SINew.nMax <= 1 then ShowScrollBar(Self.Handle, SB_VERT, false); end; end; end;

нет, с константой "облом", при установке в схеме у винды ширины скрола - 16, ничего не меняется. значит всетаки поведение различается (попытка ускорить рючечки? ;о))

> видна её часть шириной в 1 пиксель, как будто не всё затёрлось

BorderStyle:= bsNone;

han_malign © (05.02.08 08:55) [31]
>> видна её часть шириной в 1 пиксель, как будто не всё затёрлось
> BorderStyle:= bsNone;
этим ты только уберешь видимую часть общего (не проблему!), проблема не в том, что эта часть видна/не видна, это просто показатель по которому можно судить как/что делает винда, то, по чему можно предположить в отсутствии исходников.

> этим ты только уберешь видимую часть общего (не проблему! ), проблема не в том, что эта часть видна/не видна

- мусора нет - проблема убрана...
Где-то в недрах GUI неправильно вычисляется регион обновления полос прокрутки при увеличеном нижнем/правом(LeftToRigh) размере неклиентской части(и в случае WS_EX_CLIENTEDGE, и - WM_NCCALCSIZE). Это хорошо видно если поверх другое окно потаскать. На вскидку - не обновляется часть выходящая внутрь за рамки "обычной" полосы прокрутки, квадрат в углу между двумя полосами прокрутки по жизни не отрисовывается(в некоторых случаях лечится в WM_NCPAINT)
А если еще и BevelKind <> bkNone и/или BorderWidth > 0, то в TWinControl.WMNCPaint вся неклиентская часть закрашивается, и полосы прокрутки в некоторых случаях вообще пропадают(до изменения позиции/диапазона)...

> - мусора нет - проблема убрана...
ага. приезжаешь в автосервис говоришь
- "чегото движок стал плохо тянуть, и бензина жрать больше..."
- "так посмотрим... ба, да у вас стук какойто из двигателя, клапана стучат, видать разрегулированные... движок перебирать нужно"
- "что?! какой перебор? проблема говорите в стуке? да обложите двигатель шумоизолятором (поролоном) его слышно и не будет..."

но шум, это не поломка, это признак (!!!).

вообще не понимаю, все же легко (после начала серьезного разговора с Prohodil Mimo © (02.02.08 00:42) [24]) можно проверить.
ты проверил?...
получил глюк, после поставил у грида (одного из) BorderStyle = bsNone, и в нем глюк прекратился?
я так думаю нет, т.к. проверял много всего и это в том числе, и решеним это не является (мое решение уже показано, и оно работает).

я так думаю ты просто решил вернуть стиль балагана ветке, такой который был до [24]...

Пытался написать наследника DBGrid-а и в нём применить [29], но пока не получилось, т.к. не хотел переписывать всю процедуру, думал обойтись inherited плюс дописать включение скролла. Попозже попробую переписать процедуру полностью.
Нашёл, что когда виден глюк в 1 пиксель, то у грида ScrollBars = ssVertical. Пройдясь по модулям Grids и DBGrids не нашёл, где он вообще меняет значение. Но если в UpdateScrollBar приписать ScrollBars := ssVertical, то скролл рисуется всегда, правда по много раз и при этом мигает.

Ещё что заметил: если на форме два датасета, и второй зависит от первого, в гриде для второго датасета глюка никогда не бывает.
Проверял на FIBPlus.

> думал обойтись inherited плюс дописать включение скролла.
процедура не виртуальная...

> не хотел переписывать всю процедуру
как ни печально но этим не обойдешься, надо править генофонд... или переписывать очень многое (куча вызовов из разных мест). решение с в включением модуля в проект, и правкой 1 строчки, имхо, оптимальное.

> то у грида ScrollBars = ssVertical
ну так... я же писал что он не убирается а "прячется". причем не дельфевским кодом, а "у нутре" при определенных условиях. то что дельфевское свойство осталось неизмененным это как бы само собой.

> и второй зависит от первого, в гриде для второго датасета глюка никогда не бывает.
тогда там установка позиции вызывается еще раз, с теми же параметрами т.е. винда пытается спрятать еще раз, ошибка накапливается, чтото там становится больше допустимого и переинициализируется (иначе бы оно не восстанавливалось в твоем первом тесте, просто после первого раза пропал бы скрол и все), я же именно изза этого начал думать, что там сравнение с ширины с константой не больше суммы реальных длинн, а у реальной на 1 пиксель больше... второе же добавление 16ти всяко больше одной реальной 17-ти вот и восстанавливает. правда потом отказался от подобного вывода тк. установка ширины скрола на манер "без схем" ничего не поменяла.
проверь, сделай в первом после открытия с 0-ем записей не "hide" скролу как предлагал проверить в [28], а еще вызов UpdateScrollBar (или кода из него) и глюк тоже "уйдет". (теоретически. не проверял) это, если подтвердится, гарантированно покажет что в связанных есть второй вызов.

Пропадает полоса прокрутки Dbgrid Найти похожие ветки