Jump to content


RonnyH's Content

There have been 5 items by RonnyH (Search limited from 29-March 23)


By content type

See this member's

Sort by                Order  

#17287 RowVisible True and False hide vertical Scrollbar

Posted by RonnyH on 25 May 2013 - 11:25 PM in NextGrid Component

Hello!

I would like to perform a filtering on the NextGrid component. For this, I search all rows for a word. Lines that do not contain the word I hide with RowVisible: = False from. If I let show all rows again, missing the vertical scrollbar. I've attached a sample program. Hope you can help me.

Ronny

Attached Files




#17351 RowVisible True and False hide vertical Scrollbar

Posted by RonnyH on 24 August 2013 - 10:12 AM in NextGrid Component

Hi. I was not sure where I should insert the command. Is the problem already solved?



#17348 nextgrid, cursor keys home/end orientation preference

Posted by RonnyH on 23 August 2013 - 05:19 PM in Features Discussion

This problem has always annoyed me. I would like to jump in edit mode with the home button at the top of the cell, but jump on the first line.
I have a suggestion for solving this problem:

in file NxDBGrid.pas:
	 VK_HOME: SendMessage(Handle, WM_VSCROLL, SB_TOP, 0);
	 VK_END: SendMessage(Handle, WM_VSCROLL, SB_BOTTOM, 0);
change to
	 VK_HOME:
	 begin
		 if not FDataLink.Editing then SendMessage(Handle, WM_VSCROLL, SB_TOP, 0);
	 end;
	 VK_END:
	 begin
		 if not FDataLink.Editing then SendMessage(Handle, WM_VSCROLL, SB_BOTTOM, 0);
	 end
Please boki, you can change the source code or insert another option like "goAlternatePosKey"?



#17350 nextgrid, cursor keys home/end orientation preference

Posted by RonnyH on 24 August 2013 - 10:10 AM in Features Discussion

Exactly what I wanted :)



#17398 feature request: add a .savetoclipboard

Posted by RonnyH on 05 October 2013 - 09:30 AM in NextGrid Component


uses ClipBrd;



procedure TForm1.Button1Click(Sender: TObject);

var

I,J: Integer;

pLine, pCompleteText: string;

const

delimiter = ',';

begin

for I := 0 to NextGrid1.RowCount-1 do begin

pLine := '';

for J := 0 to NextGrid1.Columns.Count-1 do begin

	 pLine := pLine + NextGrid1.Cell[J, I].AsString + delimiter;

end;

pCompleteText := pCompleteText + pLine + #13#10;

end;

Clipboard.Clear;

Clipboard.AsText := pCompleteText;

end;