paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 15:39:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, grids, implemented InsertRowWithValues from Everton Vieira, issue #21176

Browse Source 
git-svn-id: trunk@42993 -
This commit is contained in:
jesus 2013-09-27 19:03:32 +00:00
parent 60927657c9
commit 34f400b8f1
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/grids.pas
View File

@ -1566,6 +1566,7 @@ type
procedure Clean(aRect: TRect; CleanOptions: TGridZoneSet); overload;
procedure Clean(StartCol,StartRow,EndCol,EndRow: integer; CleanOptions: TGridZoneSet); overload;
procedure CopyToClipboard(AUseSelection: boolean = false);
procedure InsertRowWithValues(Index: Integer; Values: array of String);
procedure LoadFromCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true);
procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=','; WithHeader: boolean=true);
procedure SaveToCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true;
@ -9890,7 +9891,7 @@ begin
Result:=TStringGridStrings.Create(Self, AMap, IsCols, index);
end;
function TCustomStringGrid.Getcells(aCol, aRow: Integer): string;
function TCustomStringGrid.GetCells(ACol, ARow: Integer): string;
var
C: PCellProps;
begin
@ -9942,7 +9943,7 @@ begin
end;
end;
procedure TCustomStringGrid.Setcells(aCol, aRow: Integer; const Avalue: string);
procedure TCustomStringGrid.SetCells(ACol, ARow: Integer; const AValue: string);
procedure UpdateCell;
begin
if EditorMode and (aCol=FCol)and(aRow=FRow) and
@ -10347,7 +10348,7 @@ begin
end;
end;
procedure TCustomStringGrid.LoadContent(Cfg: TXMLConfig; Version:Integer);
procedure TCustomStringGrid.LoadContent(cfg: TXMLConfig; Version: Integer);
var
ContentSaved: Boolean;
i,j,k: Integer;
@ -10467,6 +10468,18 @@ begin
CopyCellRectToClipboard(Rect(0,0,ColCount-1,RowCount-1));
end;
procedure TCustomStringGrid.InsertRowWithValues(Index: Integer;
Values: array of String);
var
i: Integer;
begin
InsertColRow(false, Index);
if Length(Values) > ColCount then
ColCount := Length(Values);
for i := 0 to Length(Values)-1 do
Cells[i, Index] := Values[i];
end;
procedure TCustomStringGrid.LoadFromCSVStream(AStream: TStream;
ADelimiter: Char=','; WithHeader: boolean=true);
Procedure ParseDelimitedText(const AValue: string; const ADelimiter, AQuoteChar: Char; TS: TStrings);