From 72a66051bfa1e02b43e3d709b7aace93fd208c5a Mon Sep 17 00:00:00 2001 From: juha Date: Wed, 5 Aug 2015 22:35:16 +0000 Subject: [PATCH] IDE: In "Needs building" dialog prevent a crash when text was typed in Combobox. Layout improvements. Issue #28456, patch from Alexey Torgashin. git-svn-id: trunk@49599 - --- ide/ideinfoneedbuild.lfm | 38 ++++++++++++++++++++------------------ 1 file changed, 20 insertions(+), 18 deletions(-) diff --git a/ide/ideinfoneedbuild.lfm b/ide/ideinfoneedbuild.lfm index dc3eeb4808..6ee16aab7c 100644 --- a/ide/ideinfoneedbuild.lfm +++ b/ide/ideinfoneedbuild.lfm @@ -1,25 +1,26 @@ object IDEInfoNeedBuildDlg: TIDEInfoNeedBuildDlg - Left = 275 + Left = 522 Height = 434 - Top = 248 - Width = 555 + Top = 232 + Width = 655 + BorderIcons = [biSystemMenu, biMaximize] Caption = 'IDEInfoNeedBuildDlg' ClientHeight = 434 - ClientWidth = 555 + ClientWidth = 655 OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown Position = poScreenCenter - LCLVersion = '1.1' + LCLVersion = '1.5' object TargetLabel: TLabel AnchorSideLeft.Control = Owner AnchorSideTop.Control = TargetComboBox AnchorSideTop.Side = asrCenter Left = 6 - Height = 15 - Top = 12 - Width = 65 + Height = 17 + Top = 13 + Width = 80 BorderSpacing.Around = 6 Caption = 'TargetLabel' ParentColor = False @@ -30,24 +31,24 @@ object IDEInfoNeedBuildDlg: TIDEInfoNeedBuildDlg AnchorSideTop.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom - Left = 77 - Height = 27 + Left = 92 + Height = 31 Top = 6 - Width = 472 + Width = 557 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 ItemHeight = 0 OnChange = TargetComboBoxChange + Style = csDropDownList TabOrder = 0 - Text = 'TargetComboBox' end object MainMemo: TMemo AnchorSideTop.Control = TargetComboBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 341 - Top = 39 - Width = 543 + Height = 350 + Top = 43 + Width = 643 Align = alBottom Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 @@ -60,9 +61,9 @@ object IDEInfoNeedBuildDlg: TIDEInfoNeedBuildDlg end object ButtonPanel1: TButtonPanel Left = 6 - Height = 42 - Top = 386 - Width = 543 + Height = 29 + Top = 399 + Width = 643 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' @@ -73,5 +74,6 @@ object IDEInfoNeedBuildDlg: TIDEInfoNeedBuildDlg CancelButton.DefaultCaption = True TabOrder = 2 ShowButtons = [pbClose] + ShowBevel = False end end