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

lcl: set DBEdit alignment based on TField.Alignment. Fix #1179 and #14328.

Browse Source 
git-svn-id: trunk@26786 -
This commit is contained in:
blikblum 2010-07-22 20:34:54 +00:00
parent 7018a816fe
commit 78bb6e3501
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dbedit.inc
View File

@ -29,6 +29,8 @@ begin
if FDataLink.Field <> nil then begin if FDataLink.Field <> nil then begin
//use the right EditMask if any //use the right EditMask if any
//EditMask := FDataLink.Field.EditMask; doesn't exist yet //EditMask := FDataLink.Field.EditMask; doesn't exist yet
if Alignment <> FDataLink.Field.Alignment then
Alignment := FDataLink.Field.Alignment;
//if we are focused its possible to edit, //if we are focused its possible to edit,
//if the field is currently modifiable //if the field is currently modifiable