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

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

Browse Source 
git-svn-id: branches/fixes_1_6@51093 -
This commit is contained in:
ondrej 2015-12-31 09:50:30 +00:00
parent 27cafa3cab
commit 51ce3a5ea1
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;