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

Object Inspector: Align only "normal" CheckBox vertically, not CheckBoxThemed. Issue #29412.

Browse Source 
git-svn-id: trunk@51416 -
This commit is contained in:
juha 2016-01-25 19:50:21 +00:00
parent 44a263b11d
commit cf3a735d93
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/ideintf/objectinspector.pp
View File

@ -2641,8 +2641,7 @@ end;
procedure TOICustomPropertyGrid.AlignEditComponents;
var
RRect,EditCompRect,EditBtnRect:TRect;
TopMargin: Integer;
RRect, EditCompRect, EditBtnRect: TRect;
function CompareRectangles(r1,r2:TRect):boolean;
begin
@ -2686,12 +2685,14 @@ begin
Dec(EditCompRect.Left);
{$ENDIF}
Dec(EditCompRect.Top);
{$IFnDEF UseOICheckBoxThemed}
end
else if FCurrentEdit is {$IFDEF UseOICheckBoxThemed} TCheckBoxThemed {$ELSE} TCheckBox {$ENDIF} then
begin // Align CheckBox to the middle vertically
TopMargin := (EditCompRect.Bottom - EditCompRect.Top - ValueCheckBox.Height) div 2;
Inc(EditCompRect.Top, TopMargin);
Inc(EditCompRect.Left); // and move it a little right.
else if FCurrentEdit is TCheckBox then
begin
with EditCompRect do // Align "normal" CheckBox to the middle vertically
Inc(Top, (Bottom - Top - ValueCheckBox.Height) div 2);
Inc(EditCompRect.Left); // and move it a little right.
{$ENDIF}
end;
//debugln('TOICustomPropertyGrid.AlignEditComponents A ',dbgsName(FCurrentEdit),' ',dbgs(EditCompRect));
if not CompareRectangles(FCurrentEdit.BoundsRect,EditCompRect) then