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

IDE: In "Needs building" dialog prevent a crash when text was typed in Combobox. Layout improvements. Issue #28456, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@49599 -
This commit is contained in:
juha 2015-08-05 22:35:16 +00:00
parent 7b2822aa36
commit 72a66051bf
1 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
ide/ideinfoneedbuild.lfm
View File

@ -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