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

grids: Change default value of CellHintPriority to chpAllNoDefault. Publish CellHintPriority for TDrawGrid (issue #32243).

Browse Source 
git-svn-id: trunk@55639 -
This commit is contained in:
wp 2017-08-06 19:21:40 +00:00
parent 3d1ee5f174
commit f4c18e624f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/grids.pas
View File

@ -1154,7 +1154,7 @@ type
property AutoFillColumns: boolean read FAutoFillColumns write SetAutoFillColumns default false; property AutoFillColumns: boolean read FAutoFillColumns write SetAutoFillColumns default false;
property BorderStyle:TBorderStyle read FGridBorderStyle write SetBorderStyle default bsSingle; property BorderStyle:TBorderStyle read FGridBorderStyle write SetBorderStyle default bsSingle;
property BorderColor: TColor read FBorderColor write SetBorderColor default cl3DDKShadow; property BorderColor: TColor read FBorderColor write SetBorderColor default cl3DDKShadow;
property CellHintPriority: TCellHintPriority read FCellHintPriority write FCellHintPriority default chpTruncOnly; property CellHintPriority: TCellHintPriority read FCellHintPriority write FCellHintPriority default chpAllNoDefault;
property Col: Integer read FCol write SetCol; property Col: Integer read FCol write SetCol;
property ColCount: Integer read GetColCount write SetColCount default 5; property ColCount: Integer read GetColCount write SetColCount default 5;
property ColRow: TPoint read GetQuickColRow write SetQuickColRow; property ColRow: TPoint read GetQuickColRow write SetQuickColRow;
@ -1508,6 +1508,7 @@ type
//property BiDiMode; //property BiDiMode;
property BorderSpacing; property BorderSpacing;
property BorderStyle; property BorderStyle;
property CellHintPriority;
property Color; property Color;
property ColCount; property ColCount;
property ColumnClickSorts; property ColumnClickSorts;
@ -9401,7 +9402,7 @@ begin
FDefaultTextStyle.Wordbreak := False; FDefaultTextStyle.Wordbreak := False;
FDefaultTextStyle.SingleLine:= True; FDefaultTextStyle.SingleLine:= True;
FCellHintPriority := chpTruncOnly; FCellHintPriority := chpAllNoDefault;
FButtonEditor := TButtonCellEditor.Create(nil); FButtonEditor := TButtonCellEditor.Create(nil);
FButtonEditor.Name:='ButtonEditor'; FButtonEditor.Name:='ButtonEditor';