Find content
Not Telling
Hi Boki,
thanks found a solution for this ...
Thanks.
cu
Jonny
Posts I've Made
In Topic: Selected Moveto TopVisibleRow
14 October 2012 - 11:35 AM
Hi,
Thanks for this.
I mean Scroll SelectedItem to VisibleRows TopPosition...
After a own Seek routine inside Dataset the selected Item is most in VisibleRows LastPosition...
Like:
Buttononclick example routine...
SeekChar := 'D';
with NextDBGrid1 do
with Datasource.DataSet as TADODataSet do
begin
DisableControls;
try
Index := SelectedItem;
First;
while not Eof do
begin
if FieldValues['Name'][1] = SeekChar then //Seek for any Name with started Letter D
break;
Next;
end;
finally
if EOF then SelectedItem := Index //not found set Selected back
else ScrolltoRow; //Now the Lastvisible Row is selected and shown in Grid or any in middle of grid if Index was > SelectedItem
>>> MoveSelectedToTopRow; <<<
EnableControls;
end;
cu
Jonny
Boki (Berg), on 07 October 2012 - 03:35 PM, said:
Hello,
You think about something like Pin row to top?
I have no such feature, but I am adding it right now for v6.
You think about something like Pin row to top?
I have no such feature, but I am adding it right now for v6.
Thanks for this.
I mean Scroll SelectedItem to VisibleRows TopPosition...
After a own Seek routine inside Dataset the selected Item is most in VisibleRows LastPosition...
Like:
Buttononclick example routine...
SeekChar := 'D';
with NextDBGrid1 do
with Datasource.DataSet as TADODataSet do
begin
DisableControls;
try
Index := SelectedItem;
First;
while not Eof do
begin
if FieldValues['Name'][1] = SeekChar then //Seek for any Name with started Letter D
break;
Next;
end;
finally
if EOF then SelectedItem := Index //not found set Selected back
else ScrolltoRow; //Now the Lastvisible Row is selected and shown in Grid or any in middle of grid if Index was > SelectedItem
>>> MoveSelectedToTopRow; <<<
EnableControls;
end;
cu
Jonny
