pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix button width for ButtonEditor in rxdbgrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2490 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-08-23 17:24:06 +00:00
parent 774aa2e4f9
commit 3414e0ec24
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/rx/rxdbgrid.pas
View File

@@ -3550,8 +3550,16 @@ begin
if W>0 then if W>0 then
begin begin
Editor.Width:=Editor.Width - W; if Editor.Name = 'ButtonEditor' then
W:=Editor.Width + Editor.Left; begin
Editor.Left:=Editor.Left - W;
W:=Editor.Width + Editor.Left;
end
else
begin
Editor.Width:=Editor.Width - W;
W:=Editor.Width + Editor.Left;
end;
for i:=0 to R.EditButtons.Count-1 do for i:=0 to R.EditButtons.Count-1 do
if R.EditButtons[i].Visible then if R.EditButtons[i].Visible then