paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 13:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TValueListEditor: update TitleCaptions after LoadFromCSV.

Browse Source 
git-svn-id: trunk@62132 -
This commit is contained in:
bart 2019-10-27 14:05:33 +00:00
parent 0569794060
commit 9e4c5d207e
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -1764,7 +1764,7 @@ type
procedure CopyToClipboard(AUseSelection: boolean = false);
procedure InsertRowWithValues(Index: Integer; Values: array of String);
procedure LoadFromCSVStream(AStream: TStream; ADelimiter: Char=',';
UseTitles: boolean=true; FromLine: Integer=0; SkipEmptyLines: Boolean=true);
UseTitles: boolean=true; FromLine: Integer=0; SkipEmptyLines: Boolean=true); virtual;
procedure LoadFromCSVFile(AFilename: string; ADelimiter: Char=',';
UseTitles: boolean=true; FromLine: Integer=0; SkipEmptyLines: Boolean=true);
procedure SaveToCSVStream(AStream: TStream; ADelimiter: Char=',';

11
lcl/valedit.pas
View File

@ -188,6 +188,8 @@ type
procedure ExchangeColRow(IsColumn: Boolean; index, WithIndex: Integer); override;
function IsEmptyRow: Boolean; {Delphi compatible function}
function IsEmptyRow(aRow: Integer): Boolean; {This for makes more sense to me}
procedure LoadFromCSVStream(AStream: TStream; ADelimiter: Char=',';
UseTitles: boolean=true; FromLine: Integer=0; SkipEmptyLines: Boolean=true); override;
procedure MoveColRow(IsColumn: Boolean; FromIndex, ToIndex: Integer);
function RestoreCurrentRow: Boolean;
procedure Sort(Index, IndxFrom, IndxTo: Integer);
@ -891,6 +893,15 @@ begin
Result := Strings.Strings[aRow - FixedRows] = EmptyStr;
end;
procedure TValueListEditor.LoadFromCSVStream(AStream: TStream;
ADelimiter: Char; UseTitles: boolean; FromLine: Integer;
SkipEmptyLines: Boolean);
begin
inherited LoadFromCSVStream(AStream, ADelimiter, UseTitles, FromLine,
SkipEmptyLines);
if UseTitles then UpdateTitleCaptions(Cells[0,0],Cells[1,0]);
end;
procedure TValueListEditor.MoveColRow(IsColumn: Boolean; FromIndex,
ToIndex: Integer);
var