From a8458a680e67dd740518f1d24976506c3fba1aa4 Mon Sep 17 00:00:00 2001 From: paul Date: Sat, 5 Jun 2010 10:31:43 +0000 Subject: [PATCH] ide: clip strings in the build lazarus dialog - so they can't overlap each-over (issue #0009791) git-svn-id: trunk@25909 - --- ide/buildlazdialog.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/ide/buildlazdialog.pas b/ide/buildlazdialog.pas index d5f40e81d0..cb8cd2d059 100644 --- a/ide/buildlazdialog.pas +++ b/ide/buildlazdialog.pas @@ -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;