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

lcl: grids: fix Wrong Alignment in TCustomGrid for Editor. Issue #29243, patch by Michl

Browse Source 
git-svn-id: trunk@51092 -
This commit is contained in:
ondrej 2015-12-31 09:47:35 +00:00
parent 59e349c1ae
commit 0246f8c565
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -6640,8 +6640,8 @@ begin
Editor.Parent:=Self;
if FEditor=FStringEditor then
begin
if FCol<Columns.Count then
FStringEditor.Alignment:=Columns[FCol].Alignment
if FCol-FFixedCols<Columns.Count then
FStringEditor.Alignment:=Columns[FCol-FFixedCols].Alignment
else
FStringEditor.Alignment:=taLeftJustify;
end;