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

DockedFormEditor: Remove not needed method LongestCaption after revision 64543 #023f7860d7

Browse Source 
git-svn-id: trunk@64550 -
This commit is contained in:
michl 2021-02-12 12:42:07 +00:00
parent 95c347474a
commit 5264d8bc1c
1 changed files with 0 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/dockedformeditor/source/dockedoptionsframe.pas
View File

@ -79,27 +79,6 @@ implementation
{$R *.lfm}
function LongestCaption(AControls: array of TControl): TControl;
var
AControl: TControl;
AWidth, AHeight, ResultWidth: Integer;
begin
Result := nil;
ResultWidth := -1;
AWidth := 0;
AHeight := 0;
for AControl in AControls do
if Assigned(AControl) then
begin
AControl.GetPreferredSize(AWidth, AHeight);
if AWidth > ResultWidth then
begin
Result := AControl;
ResultWidth := AWidth;
end;
end;
end;
{ TFrameDockedOptions }
procedure TFrameDockedOptions.CheckBoxAnchorTabVisibleChange(Sender: TObject);
@ -170,10 +149,6 @@ begin
ComboBoxTabPosition.Hint := STabPositionHint;
SpinEditCaptureDistance.Hint := SCaptureDistanceHint;
SpinEditMouseBorderFactor.Hint := SMouseBorderFactorHint;
ComboBoxTabPosition.AnchorSide[akLeft].Control :=
LongestCaption([LabelTabPosition, LabelResizerColor, LabelCaptureDistance,
LabelColors, LabelMouseBorderFactor]);
end;
procedure TFrameDockedOptions.ReadSettings(AOptions: TAbstractIDEOptions);