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

LCL: Add more title attributes in TCustomGrid.LoadColumns and SaveColumns. Issue #31173, patch from Andrey Korol.

Browse Source 
git-svn-id: trunk@53848 -
This commit is contained in:
juha 2017-01-03 00:10:48 +00:00
parent cd6981962f
commit 39edd3b2b6
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/grids.pas
View File

@ -8816,6 +8816,12 @@ begin
cfg.setValue(cPath + '/title/caption/value', c.Title.Caption);
if not c.Title.IsDefaultFont then
CfgSetFontValue(cfg, cPath + '/title/font', c.Title.Font);
if c.Title.IsAlignmentStored then
cfg.setValue(cPath + '/title/alignment/value', ord(c.Title.Alignment));
if c.Title.IsColorStored then
cfg.setValue(cPath + '/title/color/value', colortostring(c.Title.Color));
if c.Title.IsLayoutStored then
cfg.setValue(cPath + '/title/layout/value', ord(c.Title.Layout));
doSaveColumn(self, c, -1, Cfg, Version, cPath);
end;
@ -8961,6 +8967,15 @@ begin
s := cfg.GetValue(cPath + '/title/font/name/value', '');
if s<>'' then
cfgGetFontValue(cfg, cPath + '/title/font', c.Title.Font);
s := cfg.getValue(cPath + '/title/alignment/value', '');
if s<>'' then
c.Title.Alignment := TAlignment(StrToIntDef(s, 0));
s := cfg.getValue(cPath + '/title/color/value', '');
if s<>'' then
c.Title.Color := StringToColor(s);
s := cfg.GetValue(cPath + 'title/layout/value', '');
if s<>'' then
c.Title.Layout := TTextLayout(StrToIntDef(s, 0));
doLoadColumn(self, c, -1, cfg, version, cpath);
end;