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

Object Inspector: Fix CheckBox editor vertical alignment. Patch from Sandro Cumerlato.

Browse Source 
git-svn-id: trunk@46890 -
This commit is contained in:
juha 2014-11-19 19:35:04 +00:00
parent 5bca3443b2
commit c0488fb460
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/ideintf/objectinspector.pp
View File

@ -2622,21 +2622,18 @@ begin
if FCurrentEdit<>nil then
begin
// resize the edit component
Dec(EditCompRect.Left);
Dec(EditCompRect.Top);
Inc(EditCompRect.Bottom);
if (FCurrentEdit is TEdit) or (FCurrentEdit is TComboBox) then
begin
Dec(EditCompRect.Left);
Dec(EditCompRect.Top);
Inc(EditCompRect.Bottom);
end;
//debugln('TOICustomPropertyGrid.AlignEditComponents A ',dbgsName(FCurrentEdit),' ',dbgs(EditCompRect));
if not CompareTopLeft(FCurrentEdit.BoundsRect,EditCompRect) then
begin
if FCurrentEdit is TCheckBox then
begin
FCurrentEdit.Top := EditCompRect.Top;
FCurrentEdit.Left := EditCompRect.Left;
end
else
FCurrentEdit.BoundsRect:=EditCompRect;
if FCurrentEdit is TComboBox then
TComboBox(FCurrentEdit).ItemHeight:=EditCompRect.Bottom-EditCompRect.Top-6;
FCurrentEdit.BoundsRect:=EditCompRect;
// if FCurrentEdit is TComboBox then
// TComboBox(FCurrentEdit).ItemHeight:=EditCompRect.Bottom-EditCompRect.Top-6;
FCurrentEdit.Invalidate;
end;
end;
@ -2690,7 +2687,7 @@ begin
else
begin
inc(NameIconRect.Right, 2 + Ord(ShowGutter));
inc(NameTextRect.Left, 3 + Ord(ShowGutter));
inc(NameTextRect.Left, 3 + Ord(ShowGutter));
end;
DrawState:=[];