mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 10:37:58 +02:00
designer: reanchor align components dialog, use button panel
git-svn-id: trunk@19730 -
This commit is contained in:
paul
parent
fe3d98fd84
commit
d0bc80f9d9
@ -3,23 +3,37 @@ object AlignComponentsDialog: TAlignComponentsDialog
|
||||
Height = 238
|
||||
Top = 325
|
||||
Width = 400
|
||||
ActiveControl = OKButton
|
||||
BorderStyle = bsSizeToolWin
|
||||
Caption = 'AlignComponentsDialog'
|
||||
ClientHeight = 238
|
||||
ClientWidth = 400
|
||||
OnResize = FormResize
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
object PosLabel: TLabel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 0
|
||||
Width = 1
|
||||
ParentColor = False
|
||||
end
|
||||
object HorizontalRadioGroup: TRadioGroup
|
||||
AnchorSideBottom.Control = ACDBtnPanel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = PosLabel
|
||||
AnchorSideBottom.Control = BtnPanel
|
||||
Left = 6
|
||||
Height = 188
|
||||
Height = 194
|
||||
Top = 6
|
||||
Width = 191
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
AutoFill = True
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 3
|
||||
BorderSpacing.Bottom = 6
|
||||
Caption = 'HorizontalRadioGroup'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
@ -32,14 +46,21 @@ object AlignComponentsDialog: TAlignComponentsDialog
|
||||
TabOrder = 0
|
||||
end
|
||||
object VerticalRadioGroup: TRadioGroup
|
||||
AnchorSideBottom.Control = ACDBtnPanel
|
||||
AnchorSideLeft.Control = PosLabel
|
||||
AnchorSideTop.Control = Owner
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = BtnPanel
|
||||
Left = 203
|
||||
Height = 188
|
||||
Height = 194
|
||||
Top = 6
|
||||
Width = 191
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
AutoFill = True
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.Left = 3
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Bottom = 6
|
||||
Caption = 'VerticalRadioGroup'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
@ -51,49 +72,13 @@ object AlignComponentsDialog: TAlignComponentsDialog
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
TabOrder = 1
|
||||
end
|
||||
object ACDBtnPanel: TPanel
|
||||
Left = 0
|
||||
Height = 38
|
||||
Top = 200
|
||||
Width = 400
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 38
|
||||
ClientWidth = 400
|
||||
object BtnPanel: TButtonPanel
|
||||
Left = 6
|
||||
Height = 26
|
||||
Top = 206
|
||||
Width = 388
|
||||
TabOrder = 2
|
||||
object OKButton: TBitBtn
|
||||
Left = 236
|
||||
Height = 26
|
||||
Top = 6
|
||||
Width = 75
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = '&OK'
|
||||
Constraints.MinWidth = 75
|
||||
Default = True
|
||||
Kind = bkOK
|
||||
ModalResult = 1
|
||||
NumGlyphs = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object CancelButton: TBitBtn
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 317
|
||||
Height = 26
|
||||
Top = 6
|
||||
Width = 77
|
||||
Align = alRight
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
Constraints.MinWidth = 75
|
||||
Kind = bkCancel
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
ShowButtons = [pbOK, pbCancel]
|
||||
ShowBevel = False
|
||||
end
|
||||
end
|
||||
|
||||
@ -2,38 +2,37 @@
|
||||
|
||||
LazarusResources.Add('TAlignComponentsDialog','FORMDATA',[
|
||||
'TPF0'#22'TAlignComponentsDialog'#21'AlignComponentsDialog'#4'Left'#3'j'#1#6
|
||||
+'Height'#3#238#0#3'Top'#3'E'#1#5'Width'#3#144#1#13'ActiveControl'#7#8'OKButt'
|
||||
+'on'#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#21'AlignComponentsDial'
|
||||
+'og'#12'ClientHeight'#3#238#0#11'ClientWidth'#3#144#1#8'OnResize'#7#10'FormR'
|
||||
+'esize'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#11'TRa'
|
||||
+'dioGroup'#20'HorizontalRadioGroup'#24'AnchorSideBottom.Control'#7#11'ACDBtn'
|
||||
+'Panel'#4'Left'#2#6#6'Height'#3#188#0#3'Top'#2#6#5'Width'#3#191#0#7'Anchors'
|
||||
+#11#5'akTop'#6'akLeft'#8'akBottom'#0#8'AutoFill'#9#20'BorderSpacing.Around'#2
|
||||
+#6#7'Caption'#6#20'HorizontalRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6
|
||||
+#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24
|
||||
+'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenou'
|
||||
+'sChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'Chil'
|
||||
+'dSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cc'
|
||||
+'lLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'
|
||||
+#2#0#0#0#11'TRadioGroup'#18'VerticalRadioGroup'#24'AnchorSideBottom.Control'
|
||||
+#7#11'ACDBtnPanel'#4'Left'#3#203#0#6'Height'#3#188#0#3'Top'#2#6#5'Width'#3
|
||||
+#191#0#7'Anchors'#11#5'akTop'#7'akRight'#8'akBottom'#0#8'AutoFill'#9#20'Bord'
|
||||
+'erSpacing.Around'#2#6#7'Caption'#6#18'VerticalRadioGroup'#28'ChildSizing.Le'
|
||||
+'ftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Enl'
|
||||
+'argeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertic'
|
||||
+'al'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'cr'
|
||||
+'sScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildS'
|
||||
+'izing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPe'
|
||||
+'rLine'#2#1#8'TabOrder'#2#1#0#0#6'TPanel'#11'ACDBtnPanel'#4'Left'#2#0#6'Heig'
|
||||
+'ht'#2'&'#3'Top'#3#200#0#5'Width'#3#144#1#5'Align'#7#8'alBottom'#8'AutoSize'
|
||||
+#9#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2'&'#11'ClientWidth'#3#144#1#8
|
||||
+'TabOrder'#2#2#0#7'TBitBtn'#8'OKButton'#4'Left'#3#236#0#6'Height'#2#26#3'Top'
|
||||
+#2#6#5'Width'#2'K'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing.Arou'
|
||||
+'nd'#2#6#7'Caption'#6#3'&OK'#20'Constraints.MinWidth'#2'K'#7'Default'#9#4'Ki'
|
||||
+'nd'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#0#0#0#7'TB'
|
||||
+'itBtn'#12'CancelButton'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3'='
|
||||
+#1#6'Height'#2#26#3'Top'#2#6#5'Width'#2'M'#5'Align'#7#7'alRight'#8'AutoSize'
|
||||
+#9#20'BorderSpacing.Around'#2#6#6'Cancel'#9#7'Caption'#6#6'Cancel'#20'Constr'
|
||||
+'aints.MinWidth'#2'K'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'
|
||||
+#2#0#8'TabOrder'#2#1#0#0#0#0
|
||||
+'Height'#3#238#0#3'Top'#3'E'#1#5'Width'#3#144#1#11'BorderStyle'#7#13'bsSizeT'
|
||||
+'oolWin'#7'Caption'#6#21'AlignComponentsDialog'#12'ClientHeight'#3#238#0#11
|
||||
+'ClientWidth'#3#144#1#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.'
|
||||
+'9.27'#0#6'TLabel'#8'PosLabel'#22'AnchorSideLeft.Control'#7#5'Owner'#19'Anch'
|
||||
+'orSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'
|
||||
+#3#200#0#6'Height'#2#14#3'Top'#2#0#5'Width'#2#1#11'ParentColor'#8#0#0#11'TRa'
|
||||
+'dioGroup'#20'HorizontalRadioGroup'#22'AnchorSideLeft.Control'#7#5'Owner'#21
|
||||
+'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#8'PosLabel'
|
||||
+#24'AnchorSideBottom.Control'#7#8'BtnPanel'#4'Left'#2#6#6'Height'#3#194#0#3
|
||||
+'Top'#2#6#5'Width'#3#191#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akB'
|
||||
+'ottom'#0#8'AutoFill'#9#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6
|
||||
+#19'BorderSpacing.Right'#2#3#20'BorderSpacing.Bottom'#2#6#7'Caption'#6#20'Ho'
|
||||
+'rizontalRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.Top'
|
||||
+'BottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChil'
|
||||
+'dResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28
|
||||
+'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVer'
|
||||
+'tical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenT'
|
||||
+'opToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#0#0#0#11'TRad'
|
||||
+'ioGroup'#18'VerticalRadioGroup'#22'AnchorSideLeft.Control'#7#8'PosLabel'#21
|
||||
+'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20
|
||||
+'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#8'BtnPa'
|
||||
+'nel'#4'Left'#3#203#0#6'Height'#3#194#0#3'Top'#2#6#5'Width'#3#191#0#7'Anchor'
|
||||
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoFill'#9#18'BorderSp'
|
||||
+'acing.Left'#2#3#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#20'Bo'
|
||||
+'rderSpacing.Bottom'#2#6#7'Caption'#6#18'VerticalRadioGroup'#28'ChildSizing.'
|
||||
+'LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.E'
|
||||
+'nlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVert'
|
||||
+'ical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14
|
||||
+'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'Chil'
|
||||
+'dSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Controls'
|
||||
+'PerLine'#2#1#8'TabOrder'#2#1#0#0#12'TButtonPanel'#8'BtnPanel'#4'Left'#2#6#6
|
||||
+'Height'#2#26#3'Top'#3#206#0#5'Width'#3#132#1#8'TabOrder'#2#2#11'ShowButtons'
|
||||
+#11#4'pbOK'#8'pbCancel'#0#9'ShowBevel'#8#0#0#0
|
||||
]);
|
||||
|
||||
@ -31,61 +31,53 @@ interface
|
||||
|
||||
uses
|
||||
Classes, LCLIntf, Forms, Controls, Buttons, ExtCtrls, LResources,
|
||||
LazarusIDEStrConsts;
|
||||
LazarusIDEStrConsts, ButtonPanel, StdCtrls;
|
||||
|
||||
type
|
||||
{ TAlignComponentsDialog }
|
||||
TAlignComponentsDialog = class(TForm)
|
||||
OKButton: TBitBtn;
|
||||
CancelButton: TBitBtn;
|
||||
BtnPanel: TButtonPanel;
|
||||
HorizontalRadioGroup: TRadioGroup;
|
||||
ACDBtnPanel: TPanel;
|
||||
PosLabel: TLabel;
|
||||
VerticalRadioGroup: TRadioGroup;
|
||||
procedure FormResize(Sender: TObject);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
end;
|
||||
|
||||
function ShowAlignComponentsDialog(var HorizAlignID, VertAlignID: integer
|
||||
): TModalResult;
|
||||
function ShowAlignComponentsDialog(var HorizAlignID, VertAlignID: integer): TModalResult;
|
||||
|
||||
implementation
|
||||
|
||||
function ShowAlignComponentsDialog(var HorizAlignID, VertAlignID: integer
|
||||
): TModalResult;
|
||||
var AlignComponentsDialog: TAlignComponentsDialog;
|
||||
function ShowAlignComponentsDialog(var HorizAlignID, VertAlignID: integer): TModalResult;
|
||||
var
|
||||
AlignComponentsDialog: TAlignComponentsDialog;
|
||||
begin
|
||||
AlignComponentsDialog:=TAlignComponentsDialog.Create(nil);
|
||||
AlignComponentsDialog := TAlignComponentsDialog.Create(nil);
|
||||
try
|
||||
with AlignComponentsDialog do begin
|
||||
HorizontalRadioGroup.ItemIndex:=0;
|
||||
VerticalRadioGroup.ItemIndex:=0;
|
||||
Result:=ShowModal;
|
||||
HorizAlignID:=AlignComponentsDialog.HorizontalRadioGroup.ItemIndex;
|
||||
VertAlignID:=AlignComponentsDialog.VerticalRadioGroup.ItemIndex;
|
||||
with AlignComponentsDialog do
|
||||
begin
|
||||
HorizontalRadioGroup.ItemIndex := 0;
|
||||
VerticalRadioGroup.ItemIndex := 0;
|
||||
Result := ShowModal;
|
||||
HorizAlignID := AlignComponentsDialog.HorizontalRadioGroup.ItemIndex;
|
||||
VertAlignID := AlignComponentsDialog.VerticalRadioGroup.ItemIndex;
|
||||
end;
|
||||
finally
|
||||
AlignComponentsDialog.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TAlignComponentsDialog }
|
||||
procedure TAlignComponentsDialog.FormResize(Sender: TObject);
|
||||
begin
|
||||
HorizontalRadioGroup.Width := ClientWidth div 2 - 9;
|
||||
VerticalRadioGroup.Left := HorizontalRadioGroup.Width + 12;
|
||||
VerticalRadioGroup.Width := ClientWidth div 2 - 9;
|
||||
end;
|
||||
|
||||
constructor TAlignComponentsDialog.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
|
||||
Caption:=lisAlignment;
|
||||
|
||||
with HorizontalRadioGroup do begin
|
||||
with HorizontalRadioGroup do
|
||||
begin
|
||||
Caption:=lisHorizontal;
|
||||
with Items do begin
|
||||
with Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
Add(lisNoChange);
|
||||
Add(lisLeftSides);
|
||||
@ -99,9 +91,11 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
with VerticalRadioGroup do begin
|
||||
with VerticalRadioGroup do
|
||||
begin
|
||||
Caption:=lisVertical;
|
||||
with Items do begin
|
||||
with Items do
|
||||
begin
|
||||
BeginUpdate;
|
||||
Add(lisNoChange);
|
||||
Add(lisTops);
|
||||
@ -115,10 +109,8 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
OkButton.Caption:=dlgButApply;
|
||||
CancelButton.Caption:=dlgCancel;
|
||||
OkButton.LoadGlyphFromLazarusResource('btn_ok');
|
||||
CancelButton.LoadGlyphFromLazarusResource('btn_cancel');
|
||||
BtnPanel.OKButton.Caption := lisOkBtn;
|
||||
BtnPanel.CancelButton.Caption := dlgCancel;
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
Loading…
Reference in New Issue
Block a user