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

ide: clip strings in the build lazarus dialog - so they can't overlap each-over (issue #0009791)

Browse Source 
git-svn-id: trunk@25909 -
This commit is contained in:
paul 2010-06-05 10:31:43 +00:00
parent 41cf9ca1b8
commit a8458a680e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/buildlazdialog.pas
View File

@ -994,14 +994,14 @@ begin
end;
// draw description
ItemsListBox.Canvas.Brush.Style:=bsClear;
ItemsListBox.Canvas.TextOut(x+2,
ARect.Top+(ARect.Bottom-ARect.Top-TxtH) div 2,
ItemsListBox.Canvas.Brush.Style := bsClear;
ItemsListBox.Canvas.TextRect(Rect(x, ARect.Top, ItemsListBox.ClientWidth - 90, ARect.Bottom), x + 2,
ARect.Top + (ARect.Bottom - ARect.Top - TxtH) div 2,
CurStr);
// draw make mode text
x:=ItemsListBox.ClientWidth-90;
ItemsListBox.Canvas.TextOut(x+2,
ARect.Top+(ARect.Bottom-ARect.Top-TxtH) div 2,
x := ItemsListBox.ClientWidth - 90;
ItemsListBox.Canvas.TextRect(Rect(x, ARect.Top, ItemsListBox.ClientWidth, ARect.Bottom), x + 2,
ARect.Top + (ARect.Bottom - ARect.Top - TxtH) div 2,
GetTranslatedMakeModes(CurItem.MakeMode));
end;