pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:new options for TPopUpGridOption - pfgRowSelect. For detail see bug id #0032675

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6065 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-11-13 10:48:45 +00:00
parent 062fdc9ae3
commit cf2051c54c
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/rx/trunk/rxdb/rxpopupunit.pas
View File

@ -62,7 +62,7 @@ type
end;
TPopUpGridOption = (pfgIndicator, pfgColLines, pfgRowLines, pfgColumnResize,
pfgColumnMove);
pfgColumnMove, pfgRowSelect);
TPopUpGridOptions = set of TPopUpGridOption;
@ -548,6 +548,13 @@ begin
else
FGrid.Options:=FGrid.Options - [dgTitles];
if (pfgRowSelect in FPopUpFormOptions.FOptions) then
FGrid.Options:=FGrid.Options + [dgRowSelect]
else
FGrid.Options:=FGrid.Options - [dgRowSelect]
;
FGrid.AutoSort:=FPopUpFormOptions.AutoSort;
FGrid.TitleButtons:=FPopUpFormOptions.TitleButtons;
FGrid.TitleStyle:=FPopUpFormOptions.TitleStyle;