Добрый день, Дмитрий.
1) Чекбоксы я хотел применить в качастве триггеров. Если галочка есть - комбобокс запоминает свое значение до тех пор пока база запущена. Если галочка снимается - значение каждый раз сбрасывается по умолчанию. В принципе можно и без них, постоянное запоминание информации. Возможно это даже проще реализовать.
2) Скрипт на автоскролл прикрутить не удалось. Программа ни на что не ругается, однако упорно не прокручивает к концу таблицы.
3) Потребовалось подсчитать сумму значений в поле таблицы. Из информации на форуме понял, что скорее всего такая функция появилась после версии 1.46. Попробовал написать скрипт вручную.
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,sSum: integer;
a:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,0]);
b:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,1]);
c:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,3]);
d:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,4]);
e:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,5]);
f:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,6]);
g:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,7]);
h:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,8]);
i:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,9]);
j:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,10]);
k:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,11]);
l:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,12]);
m:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,13]);
n:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,14]);
o:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,15]);
p:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,16]);
q:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,17]);
r:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,18]);
s:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,19]);
t:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,20]);
u:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,21]);
v:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,22]);
w:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,23]);
x:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,24]);
y:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,25]);
z:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,26]);
sSum:=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z;
Form8.Label31.Caption:=('Сумма:' + IntToStr(sSum));
end;
Разумеется использование такого количества переменных дико и непрактично, хотя работать конечно будет. Пытаюсь написать циклический скрипт.
var a,b,c,z,sSum: integer;
begin
b:=Form8.TableGrid3_elements_to_plats.RowCount - 1;
for a:=0 to b do
z:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,b]);
c:=StrToInt(Form8.TableGrid3_elements_to_plats.Cells[5,a]);
sSum:=SUM(z,c);
Form8.Label31.Caption:=('Сумма:' + IntToStr(sSum));
end;
Подскажите, что не так. Явно накрутил с переменными. Не уверен по поводу верности финального суммирования.
Evgeniy