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

LCL/ValuelistEditor: Change column titles from "Key"/"Name" to "Key"/"Value"

Browse Source 
git-svn-id: trunk@57355 -
This commit is contained in:
wp 2018-02-24 11:45:10 +00:00
parent 1f0b04b667
commit 7787ca1fdd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/valedit.pas
View File

@ -308,7 +308,7 @@ const
rsVLEDuplicateKey = 'Duplicate Key:'+LineEnding+'A key with name "%s" already exists at column %d';
//ToDo: Make this a resourcestring in lclstrconsts unit, once we are satisfied with ShowColumnTitles
rsVLEKey = 'Key';
rsVLEName = 'Name';
rsVLEValue = 'Value';
rsVLEInvalidRowColOperation = 'The operation %s is not allowed on a TValueListEditor%s.';
procedure Register;
@ -1069,7 +1069,7 @@ begin
if (doColumnTitles in DisplayOptions) then
begin
KeyCap := rsVLEKey;
ValCap := rsVLEName;
ValCap := rsVLEValue;
if (TitleCaptions.Count > 0) then KeyCap := TitleCaptions[0];
if (TitleCaptions.Count > 1) then ValCap := TitleCaptions[1];
//Columns[0].Title.Caption := KeyCap;