paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 20:40:36 +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(aRect: TRect; CleanOptions: TGridZoneSet); overload;
procedure Clean(StartCol,StartRow,EndCol,EndRow: integer; CleanOptions: TGridZoneSet); overload; procedure Clean(StartCol,StartRow,EndCol,EndRow: integer; CleanOptions: TGridZoneSet); overload;
procedure CopyToClipboard(AUseSelection: boolean = false); procedure CopyToClipboard(AUseSelection: boolean = false);
procedure InsertRowWithValues(Index: Integer; Values: array of String);
procedure LoadFromCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true); procedure LoadFromCSVStream(AStream: TStream; ADelimiter: Char=','; WithHeader: boolean=true);
procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=','; WithHeader: boolean=true); procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=','; WithHeader: boolean=true);
procedure SaveToCSVStream(AStream: TStream; 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); Result:=TStringGridStrings.Create(Self, AMap, IsCols, index);
end; end;
function TCustomStringGrid.Getcells(aCol, aRow: Integer): string; function TCustomStringGrid.GetCells(ACol, ARow: Integer): string;
var var
C: PCellProps; C: PCellProps;
begin begin
@ -9942,7 +9943,7 @@ begin
end; end;
end; end;
procedure TCustomStringGrid.Setcells(aCol, aRow: Integer; const Avalue: string); procedure TCustomStringGrid.SetCells(ACol, ARow: Integer; const AValue: string);
procedure UpdateCell; procedure UpdateCell;
begin begin
if EditorMode and (aCol=FCol)and(aRow=FRow) and if EditorMode and (aCol=FCol)and(aRow=FRow) and
@ -10347,7 +10348,7 @@ begin
end; end;
end; end;
procedure TCustomStringGrid.LoadContent(Cfg: TXMLConfig; Version:Integer); procedure TCustomStringGrid.LoadContent(cfg: TXMLConfig; Version: Integer);
var var
ContentSaved: Boolean; ContentSaved: Boolean;
i,j,k: Integer; i,j,k: Integer;
@ -10467,6 +10468,18 @@ begin
CopyCellRectToClipboard(Rect(0,0,ColCount-1,RowCount-1)); CopyCellRectToClipboard(Rect(0,0,ColCount-1,RowCount-1));
end; 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; procedure TCustomStringGrid.LoadFromCSVStream(AStream: TStream;
ADelimiter: Char=','; WithHeader: boolean=true); ADelimiter: Char=','; WithHeader: boolean=true);
Procedure ParseDelimitedText(const AValue: string; const ADelimiter, AQuoteChar: Char; TS: TStrings); Procedure ParseDelimitedText(const AValue: string; const ADelimiter, AQuoteChar: Char; TS: TStrings);