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

JCF2: fixed 'Clarify/Blocks' page layout

Browse Source 
git-svn-id: trunk@24920 -
This commit is contained in:
maxim 2010-04-25 15:34:51 +00:00
parent 2a2e11a566
commit 3b307d78f2
2 changed files with 81 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
components/jcf2/Ui/Settings/frClarifyBlocks.lfm
View File

@ -3,22 +3,34 @@ inherited fClarifyBlocks: TfClarifyBlocks
Width = 334
ClientHeight = 336
ClientWidth = 334
OnResize = FrameResize
TabOrder = 0
DesignLeft = 699
DesignTop = 227
object Label1: TLabel[0]
Left = 8
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 14
Top = 4
Top = 6
Width = 148
BorderSpacing.Around = 6
Caption = 'Block styles: use a new line at:'
ParentColor = False
end
object rgBlockBegin: TRadioGroup[1]
Left = 8
Height = 89
Top = 30
Width = 149
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = rgBlock
Left = 6
Height = 81
Top = 26
Width = 151
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Block with begin'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@ -28,8 +40,8 @@ inherited fClarifyBlocks: TfClarifyBlocks
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 71
ClientWidth = 145
ClientHeight = 63
ClientWidth = 147
Items.Strings = (
'Always'
'Leave as is'
@ -38,11 +50,20 @@ inherited fClarifyBlocks: TfClarifyBlocks
TabOrder = 0
end
object rgBlock: TRadioGroup[2]
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = rgBlockBegin
AnchorSideBottom.Side = asrBottom
Left = 163
Height = 89
Top = 30
Width = 162
Height = 81
Top = 26
Width = 165
Anchors = [akTop, akRight, akBottom]
AutoFill = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'Block without begin'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@ -52,8 +73,8 @@ inherited fClarifyBlocks: TfClarifyBlocks
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 71
ClientWidth = 158
ClientHeight = 63
ClientWidth = 161
Items.Strings = (
'Always'
'Leave as is'
@ -62,11 +83,21 @@ inherited fClarifyBlocks: TfClarifyBlocks
TabOrder = 1
end
object rgEndElse: TRadioGroup[3]
AnchorSideLeft.Control = rgBlock
AnchorSideTop.Control = rgBlock
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = rgElseIf
AnchorSideBottom.Side = asrBottom
Left = 163
Height = 89
Top = 127
Width = 162
Height = 81
Top = 113
Width = 165
Anchors = [akTop, akLeft, akRight, akBottom]
AutoFill = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'Between end and else'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@ -76,8 +107,8 @@ inherited fClarifyBlocks: TfClarifyBlocks
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 71
ClientWidth = 158
ClientHeight = 63
ClientWidth = 161
Items.Strings = (
'Always'
'Leave as is'
@ -86,11 +117,18 @@ inherited fClarifyBlocks: TfClarifyBlocks
TabOrder = 3
end
object rgElseIf: TRadioGroup[4]
Left = 8
Height = 89
Top = 127
Width = 149
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = rgBlockBegin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = rgBlock
Left = 6
Height = 81
Top = 113
Width = 151
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Between else and if'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@ -100,8 +138,8 @@ inherited fClarifyBlocks: TfClarifyBlocks
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 71
ClientWidth = 145
ClientHeight = 63
ClientWidth = 147
Items.Strings = (
'Always'
'Leave as is'
@ -110,11 +148,18 @@ inherited fClarifyBlocks: TfClarifyBlocks
TabOrder = 2
end
object rgElseBegin: TRadioGroup[5]
Left = 8
Height = 89
Top = 222
Width = 149
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = rgElseIf
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = rgBlock
Left = 6
Height = 81
Top = 200
Width = 151
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Else begin'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@ -124,8 +169,8 @@ inherited fClarifyBlocks: TfClarifyBlocks
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 71
ClientWidth = 145
ClientHeight = 63
ClientWidth = 147
Items.Strings = (
'Always'
'Leave as is'

6
components/jcf2/Ui/Settings/frClarifyBlocks.pas
View File

@ -45,6 +45,7 @@ type
Label1: TLabel;
rgElseIf: TRadioGroup;
rgElseBegin: TRadioGroup;
procedure FrameResize(Sender:TObject);
public
constructor Create(AOwner: TComponent); override;
@ -62,6 +63,11 @@ implementation
uses
JcfSettings, SettingsTypes, JcfHelp, jcfuiconsts;
procedure TfClarifyBlocks.FrameResize(Sender:TObject);
begin
rgBlock.Width := (Width-18) div 2;
end;
constructor TfClarifyBlocks.Create(AOwner: TComponent);
begin
inherited;