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

IDE: fixed overlapped labels in Search in file dialog. Patch by Cedric. issue #27122

Browse Source 
git-svn-id: trunk@47081 -
This commit is contained in:
zeljko 2014-12-04 08:15:32 +00:00
parent ab1a88f474
commit 0f0e014df7
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/searchfrm.pas
View File

@ -654,11 +654,29 @@ begin
end;
procedure TSearchProgressForm.SearchFormCREATE(Sender: TObject);
Function MaxWidth(Labs : array of TLabel) : integer;
var i,w : integer;
begin
Result:=0;
for i:=low(Labs) to high(Labs) do
begin
w:=Canvas.TextWidth(Labs[i].Caption);
if Result<w then
Result:=w;
end;
end;
var NewX : integer;
begin
//Set Defaults
MatchesLabel.Caption:=lissMatches;
SearchingLabel.Caption:=lissSearching;
SearchTextLabel.Caption:=lissSearchText;
NewX:=MatchesLabel.Left+MaxWidth([MatchesLabel,SearchingLabel,SearchTextLabel])+10;
lblMatches.Left:=NewX;
lblProgress.Left:=NewX;
lblSearchText.Left:=NewX;
Caption:=dlgSearchCaption;
btnCancel.Caption:=lisCancel;