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

LCL: grids: enable ellipsis editor color.

Browse Source
This commit is contained in:
Jesus Reyes A 2021-09-04 19:04:07 -05:00
parent f8f1652fd4
commit 282f0a29fe
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/grids.pas
View File

@ -302,7 +302,7 @@ type
ActiveControl: boolean;
end;
TCompositeCellEditor = class(TWinControl)
TCompositeCellEditor = class(TCustomControl)
private
FGrid: TCustomGrid;
FCol,FRow: Integer;
@ -324,6 +324,7 @@ type
function GetActiveControl: TWinControl;
procedure VisibleChanging; override;
function SendChar(AChar: TUTF8Char): Integer;
procedure SetColor(Value: TColor); override;
procedure WndProc(var TheMessage : TLMessage); override;
procedure CustomAlignPosition(AControl: TControl; var ANewLeft, ANewTop, ANewWidth,
ANewHeight: Integer; var AlignRect: TRect; AlignInfo: TAlignInfo); override;
@ -13716,6 +13717,16 @@ begin
end;
end;
procedure TCompositeCellEditor.SetColor(Value: TColor);
var
activeCtrl: TWinControl;
begin
inherited SetColor(Value);
activeCtrl := ActiveControl;
if activeCtrl<>nil then
activeCtrl.Color := Value;
end;
destructor TCompositeCellEditor.Destroy;
begin
SetLength(FEditors, 0);