Jump to content


RonnyH

Member Since 26 Apr 2009
Offline Last Active Sep 12 2023 10:00 PM
-----

Posts I've Made

In Topic: feature request: add a .savetoclipboard

05 October 2013 - 09:30 AM


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;

In Topic: RowVisible True and False hide vertical Scrollbar

24 August 2013 - 10:12 AM

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

In Topic: nextgrid, cursor keys home/end orientation preference

24 August 2013 - 10:10 AM

Exactly what I wanted :)

In Topic: nextgrid, cursor keys home/end orientation preference

23 August 2013 - 05:19 PM

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"?