Topic: TableGrid Slider
Всем привет!
Как я могу обратиться к колонке в слайдере? мне нужно ее скрыть при определенном условии
Получить значение колонки я могу а вот как скрыть ее я не понимаю...
My Visual Database → Russian → TableGrid Slider
Всем привет!
Как я могу обратиться к колонке в слайдере? мне нужно ее скрыть при определенном условии
Получить значение колонки я могу а вот как скрыть ее я не понимаю...
Можно попробовать обратиться в "битву экстрасенсов". Они [экстрасенсы] могут увидеть скрытый код, и если у них есть навыки программирования - дать четкий ответ или даже астральным способом ["по удаленке"] подправить там что-нибудь...
P.S. Когда уже люди научатся правильные вопросы задавать..?
Слайдер создаётся скриптом, на событии onChange, Вот там и срывайте ))) Но скрыть какие-то элементы для одних записей и оставить для других вы не сможете.
P.S. Для решения такой задачи нужен рукотворный компонент отображения. Например скролбокс, внутри которого находятся панели. Каждая панель соответствует записи в таблице. Панели генерить скриптом.
Можно попробовать обратиться в "битву экстрасенсов". Они [экстрасенсы] могут увидеть скрытый код, и если у них есть навыки программирования - дать четкий ответ или даже астральным способом ["по удаленке"] подправить там что-нибудь...
P.S. Когда уже люди научатся правильные вопросы задавать..?
почувствовал себя экстрасенсом )))
.
.
Думал можно будет просто скрыть, но там же колонки на всех поля отображаются (ерунда получится), каюсь )!!!
Решил сделать по другому (заменой картинки) в ячейке, но тут у меня тоже ошибка получается
делал в двух вариантах
// первый вариант **************************************************************************************************************
sFile := ExtractFileDir(Application.ExeName) + '\img\favoritesEnabled.png';
fovYes := TPngImage.Create;
fovYes.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\favoritesDesabled.png';
fovNo := TPngImage.Create;
fovNo.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\finishReadEnabled.png';
finYes := TPngImage.Create;
finYes.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\finishReadDesabled.png';
finNo := TPngImage.Create;
finNo.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\delete.png';
imgDel := TPngImage.Create;
imgDel.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\edit.png';
imgEdi := TPngImage.Create;
imgEdi.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\play.png';
imgPla := TPngImage.Create;
imgPla.LoadFromFile(sFile);
for i := 0 to frmMainBook.tgListAllBook.RowCount -1 do
begin
if (SQLExecute('SELECT favorites FROM books WHERE id=' + IntToStr(frmMainBook.tgListAllBook.Row[i].ID)) = '1') then
frmMainBook.tgListAllBook.Cell[7,i].ObjectReference := fovYes else
frmMainBook.tgListAllBook.Cell[7,i].ObjectReference := fovNo;
if (SQLExecute('SELECT read FROM books WHERE id=' + IntToStr(frmMainBook.tgListAllBook.Row[i].ID)) = '1') then
frmMainBook.tgListAllBook.Cell[6,i].ObjectReference := finYes else
frmMainBook.tgListAllBook.Cell[6,i].ObjectReference := finNo;
frmMainBook.tgListAllBook.Cell[8,i].ObjectReference := imgDel;
frmMainBook.tgListAllBook.Cell[9,i].ObjectReference := imgEdi;
frmMainBook.tgListAllBook.Cell[10,i].ObjectReference := imgPla;
end;
// второй вариант ****************************************************************************************************
for i := 0 to frmMainBook.tgListAllBook.RowCount-1 do
begin
if (SQLExecute('SELECT favorites FROM books WHERE id=' + IntToStr(frmMainBook.tgListAllBook.Row[i].ID)) = '1') then
frmMainBook.tgListAllBook.Cell[7,i].ObjectReference := frmImages.imgFavoritesEnabled.Picture.Graphic else
frmMainBook.tgListAllBook.Cell[7,i].ObjectReference := frmImages.imgFavoritesDesabled.Picture.Graphic;
if (SQLExecute('SELECT read FROM books WHERE id=' + IntToStr(frmMainBook.tgListAllBook.Row[i].ID)) = '1') then
frmMainBook.tgListAllBook.Cell[6,i].ObjectReference := frmImages.imgFinishReadEnabled.Picture.Graphic else
frmMainBook.tgListAllBook.Cell[6,i].ObjectReference := frmImages.imgFinishReadDesabled.Picture.Graphic;
frmMainBook.tgListAllBook.Cell[8,i].ObjectReference := frmImages.imgPlay.Picture.Graphic;
frmMainBook.tgListAllBook.Cell[9,i].ObjectReference := frmImages.imgEdit.Picture.Graphic;
frmMainBook.tgListAllBook.Cell[10,i].ObjectReference := frmImages.imgDelete.Picture.Graphic;
end;
такой момент :: если запись одна то скрипт работает, если записей более одной или (были сделаны множество записей и потом удалены и оставленна одна запись), то изображения добавляются но при переключении (клике на ячейки избранное или прочитанно) возникает ошибка..
если запустить программу и выключить, то то возникае ошибка (окно закрывается а вот процесс работает)..
а вот если применять цвет колонок. то все работает...
for i := 0 to frmMainBook.tgListAllBook.RowCount-1 do
begin
if (SQLExecute('SELECT favorites FROM books WHERE id=' + IntToStr(frmMainBook.tgListAllBook.Row[i].ID)) = '1') then
frmMainBook.tgListAllBook.Cell[7,i].Color := clTeal else
frmMainBook.tgListAllBook.Cell[7,i].Color := clGray;
if (SQLExecute('SELECT read FROM books WHERE id=' + IntToStr(frmMainBook.tgListAllBook.Row[i].ID)) = '1') then
frmMainBook.tgListAllBook.Cell[6,i].Color := clTeal else
frmMainBook.tgListAllBook.Cell[6,i].Color := clGray;
frmMainBook.tgListAllBook.Cell[8,i].Color := $00408000;
frmMainBook.tgListAllBook.Cell[9,i].Color := $000080FF;
frmMainBook.tgListAllBook.Cell[10,i].Color := clRed;
end;
загружаю проект
первый вариант - строка 141
второй вариант - строка 176
третий вариант - строка 190
реакция на клик ячейки - строка 7
А вы проверяли работоспособность грида, если у разных записей ссылка на один объект-картинку? У меня этот момент вызывает сомнение:
frmMainBook.tgListAllBook.Cell[8,i].ObjectReference := imgDel;
Почему-то в других примерах создается отдельный графический объект для каждой строки.
А вы проверяли работоспособность грида, если у разных записей ссылка на один объект-картинку? У меня этот момент вызывает сомнение:
frmMainBook.tgListAllBook.Cell[8,i].ObjectReference := imgDel;
Почему-то в других примерах создается отдельный графический объект для каждой строки.
Спасибо!!
for i := 0 to frmMainBook.tgListAllBook.RowCount -1 do
begin
sFile := ExtractFileDir(Application.ExeName) + '\img\favoritesEnabled.png';
fovYes := TPngImage.Create;
fovYes.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\favoritesDesabled.png';
fovNo := TPngImage.Create;
fovNo.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\finishReadEnabled.png';
finYes := TPngImage.Create;
finYes.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\finishReadDesabled.png';
finNo := TPngImage.Create;
finNo.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\delete.png';
imgDel := TPngImage.Create;
imgDel.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\edit.png';
imgEdi := TPngImage.Create;
imgEdi.LoadFromFile(sFile);
sFile := ExtractFileDir(Application.ExeName) + '\img\play.png';
imgPla := TPngImage.Create;
imgPla.LoadFromFile(sFile);
if (SQLExecute('SELECT favorites FROM books WHERE id=' + IntToStr(frmMainBook.tgListAllBook.Row[i].ID)) = '1') then
frmMainBook.tgListAllBook.Cell[7,i].ObjectReference := fovYes else
frmMainBook.tgListAllBook.Cell[7,i].ObjectReference := fovNo;
if (SQLExecute('SELECT read FROM books WHERE id=' + IntToStr(frmMainBook.tgListAllBook.Row[i].ID)) = '1') then
frmMainBook.tgListAllBook.Cell[6,i].ObjectReference := finYes else
frmMainBook.tgListAllBook.Cell[6,i].ObjectReference := finNo;
frmMainBook.tgListAllBook.Cell[8,i].ObjectReference := imgDel;
frmMainBook.tgListAllBook.Cell[9,i].ObjectReference := imgEdi;
frmMainBook.tgListAllBook.Cell[10,i].ObjectReference := imgPla;
end;
но почему нужно для каждой строки создавать отдельный набор объектов?
это как-то связано с сылками на эти объекты ? или происходит присвоение объекта конкретному объекту?
Hello Wladimir
On FormMainBook, with button "Новая книга" (iAdd a book) if i've well translated with google) the goal is to add a new book,
Why behind this button don't you call as Action 'New record' instead of Action 'Show Record'.
Because the form called shows last entry while the fields should be empty ?
Maybe I misunderstood the purpose of this button
JB
Hello Wladimir
On FormMainBook, with button "Новая книга" (iAdd a book) if i've well translated with google) the goal is to add a new book,
Why behind this button don't you call as Action 'New record' instead of Action 'Show Record'.
Because the form called shows last entry while the fields should be empty ?Maybe I misunderstood the purpose of this button
JB
это просто измененная форма, я забыл выбрать "Новая запись"
it's just a modified form, I forgot to select "New Entry"
но почему нужно для каждой строки создавать отдельный набор объектов?
это как-то связано с сылками на эти объекты ? или происходит присвоение объекта конкретному объекту?
Ответить на это мог бы автор компонента или автор MVDB (если у него есть доступ к исходникам).
А мы может только догадываться
My Visual Database → Russian → TableGrid Slider
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi