paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-11 00:58:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Grids: implement option to set ParentColor and ParentFont of the internal cell editor.

Browse Source
This commit is contained in:
Bart 2022-10-15 16:10:24 +02:00
parent 5a0ff3af30
commit 675ad02215
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/grids.pas
View File

@ -120,8 +120,10 @@ type
TGridOptions = set of TGridOption;
TGridOption2 = (
goScrollToLastCol, // Allow scrolling to last column (so that last column can be LeftCol)
goScrollToLastRow // Allow scrolling to last row (so that last row can be TopRow)
goScrollToLastCol, // Allow scrolling to last column (so that last column can be LeftCol)
goScrollToLastRow, // Allow scrolling to last row (so that last row can be TopRow)
goEditorParentColor, // Set editor's ParentColor to True
goEditorParentFont // Set editor's ParentFont to True
);
TGridOptions2 = set of TGridOption2;
@ -1981,6 +1983,9 @@ uses
{$WARN IMPLICIT_STRING_CAST_LOSS OFF}
{$ENDIF}
type
TWinControlAccess = Class(TWinControl); //used in TCustomGrid.DoEditorShow
const
MULTISEL_MODIFIER = {$IFDEF Darwin}ssMeta{$ELSE}ssCtrl{$ENDIF};
@ -7383,6 +7388,7 @@ begin
Editor.Visible:=False;
{$ifdef dbgGrid}DebugLnExit('grid.DoEditorHide [',Editor.ClassName,'] END');{$endif}
end;
procedure TCustomGrid.DoEditorShow;
var
ParentChanged: Boolean;
@ -7409,6 +7415,14 @@ begin
else
FStringEditor.Alignment:=taLeftJustify;
end;
TWinControlAccess(FEditor).ParentColor := (goEditorParentColor in Options2);
TWinControlAccess(FEditor).ParentFont := (goEditorParentFont in Options2);
if (FEditor is TCompositeCellEditor) then
begin
TWinControlAccess(TCompositeCellEditor(FEditor).ActiveControl).ParentColor := (goEditorParentColor in Options2);
TWinControlAccess(TCompositeCellEditor(FEditor).ActiveControl).ParentFont := (goEditorParentFont in Options2);
end;
Editor.Visible:=True;
if Focused and Editor.CanFocus then
Editor.SetFocus;