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

Components, IDEScout: improved layout of options frame

Browse Source 
git-svn-id: trunk@60002 -
This commit is contained in:
maxim 2019-01-05 13:12:15 +00:00
parent 1268d65651
commit 18be28701f
2 changed files with 121 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

183
components/idescout/idescoutoptions.lfm
View File

@ -11,22 +11,24 @@ object IDEScoutOptionsFrame: TIDEScoutOptionsFrame
DesignTop = 164 DesignTop = 164
object CGSearch: TCheckGroup object CGSearch: TCheckGroup
Left = 0 Left = 0
Height = 168 Height = 151
Top = 0 Top = 0
Width = 427 Width = 427
Align = alTop Align = alTop
AutoFill = True AutoFill = True
AutoSize = True
Caption = 'Search in' Caption = 'Search in'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.VerticalSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 150 ClientHeight = 131
ClientWidth = 425 ClientWidth = 423
Items.Strings = ( Items.Strings = (
'Commands' 'Commands'
'Recent Projects' 'Recent Projects'
@ -34,7 +36,6 @@ object IDEScoutOptionsFrame: TIDEScoutOptionsFrame
'Recent Packages' 'Recent Packages'
'Components' 'Components'
) )
OnClick = CGSearchClick
OnItemClick = CGSearchItemClick OnItemClick = CGSearchItemClick
TabOrder = 0 TabOrder = 0
Data = { Data = {
@ -43,73 +44,100 @@ object IDEScoutOptionsFrame: TIDEScoutOptionsFrame
end end
object Options: TGroupBox object Options: TGroupBox
Left = 0 Left = 0
Height = 105 Height = 76
Top = 168 Top = 151
Width = 427 Width = 427
Align = alTop Align = alTop
AutoSize = True
Caption = 'Options' Caption = 'Options'
ClientHeight = 87 ClientHeight = 56
ClientWidth = 425 ClientWidth = 423
TabOrder = 1 TabOrder = 1
object CBShowShortCut: TCheckBox object CBShowShortCut: TCheckBox
Left = 8 AnchorSideLeft.Control = Options
Height = 22 AnchorSideTop.Control = Options
Top = 39 Left = 6
Width = 190 Height = 19
Top = 6
Width = 178
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Show Sh&ortcut when available' Caption = 'Show Sh&ortcut when available'
TabOrder = 0 TabOrder = 0
end end
object CBShowCategory: TCheckBox object CBShowCategory: TCheckBox
Left = 8 AnchorSideLeft.Control = Options
Height = 22 AnchorSideTop.Control = CBShowShortCut
Top = 8 AnchorSideTop.Side = asrBottom
Width = 194 Left = 6
Height = 19
Top = 31
Width = 181
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
Caption = 'Show &Category when available' Caption = 'Show &Category when available'
TabOrder = 1 TabOrder = 1
end end
end end
object Colors: TGroupBox object Colors: TGroupBox
Left = 0 Left = 0
Height = 100 Height = 69
Top = 273 Top = 227
Width = 427 Width = 427
Align = alTop Align = alTop
AutoSize = True
Caption = 'Colors' Caption = 'Colors'
ClientHeight = 82 ClientHeight = 49
ClientWidth = 425 ClientWidth = 423
TabOrder = 2 TabOrder = 2
object CBMatchColor: TColorBox object CBMatchColor: TColorBox
Left = 96 AnchorSideLeft.Control = LCBMatchColor
Height = 31 AnchorSideTop.Control = LCBMatchColor
Top = 16 AnchorSideTop.Side = asrBottom
Width = 100 Left = 6
Height = 22
Top = 21
Width = 150
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbCustomColors] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbCustomColors]
ItemHeight = 0 ItemHeight = 16
TabOrder = 0 TabOrder = 0
end end
object CBShortCutColor: TColorBox object CBShortCutColor: TColorBox
Left = 96 AnchorSideLeft.Control = LCBShortCut
Height = 31 AnchorSideTop.Control = LCBShortCut
Top = 48 AnchorSideTop.Side = asrBottom
Width = 100 Left = 174
Height = 22
Top = 21
Width = 150
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbCustomColors] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbCustomColors]
ItemHeight = 0 BorderSpacing.Bottom = 6
ItemHeight = 16
TabOrder = 1 TabOrder = 1
end end
object LCBMatchColor: TLabel object LCBMatchColor: TLabel
Left = 8 AnchorSideLeft.Control = Colors
Height = 17 AnchorSideTop.Control = Colors
Top = 16 Left = 6
Width = 48 Height = 15
Top = 6
Width = 45
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = '&Matches' Caption = '&Matches'
FocusControl = CBMatchColor FocusControl = CBMatchColor
ParentColor = False ParentColor = False
end end
object LCBShortCut: TLabel object LCBShortCut: TLabel
Left = 8 AnchorSideLeft.Control = CBMatchColor
Height = 17 AnchorSideLeft.Side = asrBottom
Top = 48 AnchorSideTop.Control = LCBMatchColor
Width = 69 Left = 174
Height = 15
Top = 6
Width = 66
BorderSpacing.Left = 18
Caption = '&Shortcut key' Caption = '&Shortcut key'
FocusControl = CBShortCutColor FocusControl = CBShortCutColor
ParentColor = False ParentColor = False
@ -117,56 +145,81 @@ object IDEScoutOptionsFrame: TIDEScoutOptionsFrame
end end
object GBComponents: TGroupBox object GBComponents: TGroupBox
Left = 0 Left = 0
Height = 105 Height = 80
Top = 373 Top = 296
Width = 427 Width = 427
Align = alTop Align = alTop
AutoSize = True
Caption = 'Components' Caption = 'Components'
ClientHeight = 87 ClientHeight = 60
ClientWidth = 425 ClientWidth = 423
TabOrder = 3 TabOrder = 3
object CBSelectComponent: TCheckBox object CBSelectComponent: TCheckBox
Left = 8 AnchorSideLeft.Control = GBComponents
Height = 22 AnchorSideTop.Control = GBComponents
Top = 16 Left = 6
Width = 210 Height = 19
Top = 6
Width = 199
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Only select on component palette' Caption = 'Only select on component palette'
TabOrder = 0 TabOrder = 0
end end
object SEComponentDefaultWidth: TSpinEdit object SEComponentDefaultWidth: TSpinEdit
Left = 98 AnchorSideLeft.Control = LSEComponentDefaultWidth
Height = 27 AnchorSideLeft.Side = asrBottom
Top = 58 AnchorSideTop.Control = CBSelectComponent
AnchorSideTop.Side = asrBottom
Left = 83
Height = 23
Top = 31
Width = 54 Width = 54
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
TabOrder = 1 TabOrder = 1
end end
object Label1: TLabel object LSEComponentDefaultWidth: TLabel
Left = 8 AnchorSideLeft.Control = CBSelectComponent
Height = 27 AnchorSideTop.Control = SEComponentDefaultWidth
Top = 58 AnchorSideTop.Side = asrCenter
Width = 80 Left = 6
Height = 15
Top = 35
Width = 71
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False BorderSpacing.Bottom = 6
Caption = 'Default width' Caption = 'Default width'
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LComponentheight: TLabel object LSEComponentDefaultHeight: TLabel
Left = 163 AnchorSideLeft.Control = SEComponentDefaultWidth
Height = 27 AnchorSideLeft.Side = asrBottom
Top = 58 AnchorSideTop.Control = LSEComponentDefaultWidth
Width = 53 AnchorSideTop.Side = asrCenter
Left = 155
Height = 15
Top = 35
Width = 75
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False BorderSpacing.Left = 18
Caption = 'height' BorderSpacing.Bottom = 6
Caption = 'Default height'
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object SEComponentDefaultHeight: TSpinEdit object SEComponentDefaultHeight: TSpinEdit
Left = 224 AnchorSideLeft.Control = LSEComponentDefaultHeight
Height = 27 AnchorSideLeft.Side = asrBottom
Top = 58 AnchorSideTop.Control = LSEComponentDefaultHeight
AnchorSideTop.Side = asrCenter
Left = 236
Height = 23
Top = 31
Width = 66 Width = 66
BorderSpacing.Left = 6
TabOrder = 2 TabOrder = 2
end end
end end

12
components/idescout/idescoutoptions.pas
View File

@ -39,7 +39,7 @@ uses
// LCL // LCL
Forms, StdCtrls, Dialogs, Spin, ExtCtrls, ColorBox, Forms, StdCtrls, Dialogs, Spin, ExtCtrls, ColorBox,
// IdeIntf // IdeIntf
IDEOptionsIntf, IDEOptEditorIntf, IDEUtils, frmScout; IDEOptionsIntf, IDEOptEditorIntf, frmScout;
Type Type
@ -54,14 +54,13 @@ Type
CBSelectComponent: TCheckBox; CBSelectComponent: TCheckBox;
Colors: TGroupBox; Colors: TGroupBox;
GBComponents: TGroupBox; GBComponents: TGroupBox;
Label1: TLabel; LSEComponentDefaultWidth: TLabel;
LComponentheight: TLabel; LSEComponentDefaultHeight: TLabel;
LCBShortCut: TLabel; LCBShortCut: TLabel;
LCBMatchColor: TLabel; LCBMatchColor: TLabel;
Options: TGroupBox; Options: TGroupBox;
SEComponentDefaultWidth: TSpinEdit; SEComponentDefaultWidth: TSpinEdit;
SEComponentDefaultHeight: TSpinEdit; SEComponentDefaultHeight: TSpinEdit;
procedure CGSearchClick(Sender: TObject);
procedure CGSearchItemClick(Sender: TObject; Index: integer); procedure CGSearchItemClick(Sender: TObject; Index: integer);
private private
public public
@ -78,11 +77,6 @@ implementation
{ TIDEScoutOptionsFrame } { TIDEScoutOptionsFrame }
procedure TIDEScoutOptionsFrame.CGSearchClick(Sender: TObject);
begin
end;
procedure TIDEScoutOptionsFrame.CGSearchItemClick(Sender: TObject; procedure TIDEScoutOptionsFrame.CGSearchItemClick(Sender: TObject;
Index: integer); Index: integer);
begin begin