paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: groupededit: revert r53759 #33449c9e87 - buddy is scaled automatically. Issue #32154

Browse Source 
git-svn-id: branches/fixes_1_8@55573 -
This commit is contained in:
mattias 2017-07-24 12:24:00 +00:00
parent 624218e54e
commit 95c4474fee
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/groupededit.pp
View File

@ -178,8 +178,6 @@ type
procedure SetTabStop(AValue: Boolean);
procedure SetTextHint(AValue: TTranslateString);
protected
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); override;
procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean); override;
function CreateBuddy: TControl; virtual;
@ -1246,18 +1244,6 @@ begin
inherited Destroy;
end;
procedure TCustomAbstractGroupedEdit.DoAutoAdjustLayout(
const AMode: TLayoutAdjustmentPolicy; const AXProportion, AYProportion: Double
);
begin
inherited;
if AMode in [lapAutoAdjustWithoutHorizontalScrolling, lapAutoAdjustForDPI] then
begin
BuddyWidth := Round(BuddyWidth*AXProportion);
end;
end;
function TCustomAbstractGroupedEdit.Focused: Boolean;
begin
Result := FEdit.Focused;