paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE:new other dialog: more width, bug #16898

Browse Source 
git-svn-id: trunk@26575 -
This commit is contained in:
mattias 2010-07-10 16:46:02 +00:00
parent 29c6a21cdc
commit 9398a0354d
2 changed files with 35 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
ide/newdialog.lfm
View File

@ -1,34 +1,34 @@
object NewOtherDialog: TNewOtherDialog object NewOtherDialog: TNewOtherDialog
Left = 281 Left = 281
Height = 395 Height = 421
Top = 204 Top = 204
Width = 476 Width = 561
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'NewOtherDialog' Caption = 'NewOtherDialog'
ClientHeight = 395 ClientHeight = 421
ClientWidth = 476 ClientWidth = 561
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object Panel1: TPanel object Panel1: TPanel
Left = 6 Left = 6
Height = 351 Height = 369
Top = 6 Top = 6
Width = 464 Width = 549
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 351 ClientHeight = 369
ClientWidth = 464 ClientWidth = 549
TabOrder = 0 TabOrder = 0
object ItemsTreeView: TTreeView object ItemsTreeView: TTreeView
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Left = 0
Height = 351 Height = 369
Top = 0 Top = 0
Width = 178 Width = 263
Align = alClient Align = alClient
DefaultItemHeight = 17 DefaultItemHeight = 19
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
@ -42,20 +42,20 @@ object NewOtherDialog: TNewOtherDialog
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 183 Left = 268
Height = 351 Height = 369
Top = 0 Top = 0
Width = 281 Width = 281
Align = alRight Align = alRight
Caption = 'DescriptionGroupBox' Caption = 'DescriptionGroupBox'
ClientHeight = 333 ClientHeight = 348
ClientWidth = 277 ClientWidth = 273
TabOrder = 1 TabOrder = 1
object DescriptionLabel: TLabel object DescriptionLabel: TLabel
Left = 6 Left = 6
Height = 16 Height = 18
Top = 6 Top = 6
Width = 265 Width = 261
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'DescriptionLabel' Caption = 'DescriptionLabel'
@ -64,9 +64,9 @@ object NewOtherDialog: TNewOtherDialog
end end
object InheritableComponentsListView: TListView object InheritableComponentsListView: TListView
Left = 0 Left = 0
Height = 305 Height = 318
Top = 28 Top = 30
Width = 277 Width = 273
Align = alClient Align = alClient
Columns = < Columns = <
item item
@ -87,8 +87,8 @@ object NewOtherDialog: TNewOtherDialog
end end
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 178 Left = 263
Height = 351 Height = 369
Top = 0 Top = 0
Width = 5 Width = 5
Align = alRight Align = alRight
@ -97,9 +97,18 @@ object NewOtherDialog: TNewOtherDialog
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 26 Height = 34
Top = 363 Top = 381
Width = 464 Width = 549
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Close'
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'Cancel'
TabOrder = 1 TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp] ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False ShowBevel = False

2
ide/newdialog.pas
View File

@ -376,7 +376,7 @@ begin
FillItemsTree; FillItemsTree;
FillProjectInheritableItemsList; FillProjectInheritableItemsList;
InheritableComponentsListView.Visible := false; InheritableComponentsListView.Visible := false;
IDEDialogLayoutList.ApplyLayout(Self, 470, 400); IDEDialogLayoutList.ApplyLayout(Self, 570, 400);
end; end;
destructor TNewOtherDialog.Destroy; destructor TNewOtherDialog.Destroy;