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

IdeIntf: improve texts and FocusControl in SelectProps and ObjectInspector

Browse Source 
git-svn-id: trunk@40895 -
This commit is contained in:
juha 2013-04-27 07:18:39 +00:00
parent 0e7b8378d1
commit 1d10ee3b3d
5 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/ideintf/frmselectprops.lfm
View File

@ -41,6 +41,7 @@ object SelectPropertiesForm: TSelectPropertiesForm
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Properties' Caption = '&Properties'
FocusControl = LBProperties
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
@ -55,10 +56,8 @@ object SelectPropertiesForm: TSelectPropertiesForm
MultiSelect = True MultiSelect = True
OnClick = LBPropertiesClick OnClick = LBPropertiesClick
OnDblClick = LBPropertiesDblClick OnDblClick = LBPropertiesDblClick
ScrollWidth = 238
Sorted = True Sorted = True
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
end end
object PComponents: TPanel object PComponents: TPanel
@ -81,6 +80,7 @@ object SelectPropertiesForm: TSelectPropertiesForm
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Co&mponents' Caption = 'Co&mponents'
FocusControl = LBComponents
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
@ -93,10 +93,8 @@ object SelectPropertiesForm: TSelectPropertiesForm
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = LBComponentsSelectionChange OnSelectionChange = LBComponentsSelectionChange
ScrollWidth = 215
Sorted = True Sorted = True
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
end end
object VSplitter: TSplitter object VSplitter: TSplitter
@ -132,9 +130,10 @@ object SelectPropertiesForm: TSelectPropertiesForm
Left = 10 Left = 10
Height = 15 Height = 15
Top = 3 Top = 3
Width = 109 Width = 124
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Selected Properties' Caption = '&Selected Properties'
FocusControl = LBSelected
ParentColor = False ParentColor = False
end end
object LBSelected: TListBox object LBSelected: TListBox
@ -152,9 +151,7 @@ object SelectPropertiesForm: TSelectPropertiesForm
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 0
MultiSelect = True MultiSelect = True
ScrollWidth = 390
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
object BAdd: TButton object BAdd: TButton
AnchorSideTop.Control = LBSelected AnchorSideTop.Control = LBSelected

5
components/ideintf/frmselectprops.pas
View File

@ -116,8 +116,9 @@ begin
BClear.Caption:=oisClear; BClear.Caption:=oisClear;
BOK.Caption:=oisOk; BOK.Caption:=oisOk;
BCancel.Caption:=oiStdActDataSetCancel1Hint; BCancel.Caption:=oiStdActDataSetCancel1Hint;
LComponents.Caption:=oisComponents; LComponents.Caption:=oisBtnComponents;
LProperties.Caption:=oisProperties; LProperties.Caption:=oisBtnProperties;
LBSelected.Caption:=oisSelectedProperties;
IDEDialogLayoutList.ApplyLayout(Self,485,460); IDEDialogLayoutList.ApplyLayout(Self,485,460);
end; end;

19
components/ideintf/objectinspector.lfm
View File

@ -11,8 +11,8 @@ object ObjectInspectorDlg: TObjectInspectorDlg
LCLVersion = '1.1' LCLVersion = '1.1'
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 22 Height = 20
Top = 647 Top = 649
Width = 300 Width = 300
Panels = < Panels = <
item item
@ -48,13 +48,13 @@ object ObjectInspectorDlg: TObjectInspectorDlg
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FilterLabel AnchorSideTop.Control = FilterLabel
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 71 Left = 87
Height = 24 Height = 23
Top = 2 Top = 3
Width = 200 Width = 184
UseFormActivate = True UseFormActivate = True
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 0 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 5 BorderSpacing.Left = 5
MaxLength = 0 MaxLength = 0
@ -64,8 +64,9 @@ object ObjectInspectorDlg: TObjectInspectorDlg
Left = 3 Left = 3
Height = 15 Height = 15
Top = 7 Top = 7
Width = 63 Width = 79
Caption = 'Components' Caption = 'Co&mponents'
FocusControl = CompFilterEdit
ParentColor = False ParentColor = False
end end
end end

2
components/ideintf/objectinspector.pp
View File

@ -3933,7 +3933,7 @@ begin
Caption := oisObjectInspector; Caption := oisObjectInspector;
StatusBar.SimpleText := oisAll; StatusBar.SimpleText := oisAll;
FilterLabel.Caption := oisComponents; FilterLabel.Caption := oisBtnComponents;
MainPopupMenu.Images := IDEImages.Images_16; MainPopupMenu.Images := IDEImages.Images_16;
AddPopupMenuItem(AddToFavoritesPopupMenuItem,nil,'AddToFavoritePopupMenuItem', AddPopupMenuItem(AddToFavoritesPopupMenuItem,nil,'AddToFavoritePopupMenuItem',

10
components/ideintf/objinspstrconsts.pas
View File

@ -48,9 +48,9 @@ resourcestring
oisArray = 'Array'; oisArray = 'Array';
oisRecord = 'Record'; oisRecord = 'Record';
oisInterface = 'Interface'; oisInterface = 'Interface';
oisProperties = 'Properties';
oisProperties='Properties'; oisBtnProperties = '&Properties';
oisEvents='Events'; oisEvents = 'Events';
oisFavorites = 'Favorites'; oisFavorites = 'Favorites';
oisRestricted = 'Restricted'; oisRestricted = 'Restricted';
@ -328,8 +328,10 @@ resourcestring
oiStdActDataSetEditHint = 'Edit'; oiStdActDataSetEditHint = 'Edit';
oiStdActDataSetPostHint = 'Post'; oiStdActDataSetPostHint = 'Post';
oiStdActDataSetCancel1Hint = 'Cancel'; oiStdActDataSetCancel1Hint = 'Cancel';
oisComponents = 'Components'; //oisComponents = 'Components';
oisBtnComponents = 'Co&mponents';
oiStdActDataSetRefreshHint = 'Refresh'; oiStdActDataSetRefreshHint = 'Refresh';
oisSelectedProperties = '&Selected Properties';
oisStdActionListEditor = 'Standard Action Classes'; oisStdActionListEditor = 'Standard Action Classes';
oisStdActionListEditorClass = 'Available Action Classes:'; oisStdActionListEditorClass = 'Available Action Classes:';