mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Some interface alignment

Browse source
This commit is contained in:
Alexander Koblov 2008-12-06 18:36:33 +00:00
commit b73c0eb416
2 changed files with 30 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

28
feditsearch.pas
View file

@ -77,8 +77,8 @@ type
cbSearchSelectedOnly: TCheckBox;
cbSearchRegExp: TCheckBox;
rgSearchDirection: TRadioGroup;
btnOK: TButton;
btnCancel: TButton;
btnOK: TBitBtn;
btnCancel: TBitBtn;
procedure btnOKClick(Sender: TObject);
{ procedure cbSearchTextKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);}
@ -246,7 +246,7 @@ end;
procedure TfrmEditSearch.CreateDialog(AOwner: TForm);
begin
SetInitialBounds(367, 203, 332, 170);
SetInitialBounds(367, 203, 372, 170);
BorderStyle := bsDialog;
Position := poMainFormCenter;
@ -254,15 +254,20 @@ begin
lblSearchFor:= TLabel.Create(AOwner);
lblSearchFor.Parent:=AOwner;
lblSearchFor.SetBounds(16, 8, 90, 17);
lblSearchFor.SetBounds(16, 10, 90, 17);
lblSearchFor.AnchorSide[akTop].Control:= cbSearchText;
lblSearchFor.AnchorSide[akTop].Side:= asrCenter;
cbSearchText:= TComboBox.Create(AOwner);
cbSearchText.Parent:=AOwner;
cbSearchText.SetBounds(112, 8, 208, 24 );
cbSearchText.AnchorToNeighbour(akLeft, 6, lblSearchFor);
cbSearchText.AnchorToNeighbour(akRight, 10, AOwner);
cbSearchText.AnchorSide[akRight].Side:= asrRight;
gbSearchOptions :=TGroupBox.Create(AOwner);
gbSearchOptions.Parent:=AOwner;
gbSearchOptions.SetBounds(8, 32, 154, 127);
gbSearchOptions.SetBounds(8, 32, 194, 127);
cbSearchCaseSensitive := TCheckBox.Create(gbSearchOptions);
@ -290,24 +295,25 @@ begin
rgSearchDirection := TRadioGroup.Create(AOwner);
rgSearchDirection.Parent:=AOwner;
rgSearchDirection.SetBounds(170, 32, 154, 72);
rgSearchDirection.AnchorToNeighbour(akLeft, 6, gbSearchOptions);
btnOK := TButton.Create(AOwner);
btnOK := TBitBtn.Create(AOwner);
btnOK.Parent:=AOwner;
btnOK.Left:=170;
btnOK.Left:=210;
btnOK.Top:=136;
btnOK.Height:= 32;
btnOK.Default:= True;
btnOK.Caption:='OK'; // TODO: change this
btnOK.Kind:= bkOK;
btnOK.OnClick:=@btnOKClick;
btnCancel:= TButton.Create(AOwner);
btnCancel:= TBitBtn.Create(AOwner);
btnCancel.Parent:=AOwner;
btnCancel.Top:=136;
btnCancel.Left:=249;
btnCancel.Left:=289;
btnCancel.Height := 32;
btnCancel.Cancel:=True;
btnCancel.ModalResult:=mrCancel;
btnCancel.Caption:='Cancel'; // TODO: change this
btnCancel.Kind:= bkCancel;
Caption:= rsEditSearchCaption;

18
foptions.lfm
View file

@ -12,7 +12,6 @@ object frmOptions: TfrmOptions
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
ParentFont = False
Position = poMainFormCenter
LCLVersion = '0.9.27'
object Panel1: TPanel
@ -154,20 +153,29 @@ object frmOptions: TfrmOptions
ParentColor = False
end
object edtRunInTerm: TEdit
Left = 120
AnchorSideLeft.Control = lblRunInTerm
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = pgBehav
AnchorSideRight.Side = asrBottom
Left = 90
Height = 24
Top = 8
Width = 490
Width = 520
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 10
TabOrder = 0
end
object edtRunTerm: TEdit
AnchorSideLeft.Control = edtRunInTerm
AnchorSideTop.Control = edtRunInTerm
AnchorSideTop.Side = asrBottom
Left = 120
AnchorSideRight.Control = edtRunInTerm
AnchorSideRight.Side = asrBottom
Left = 90
Height = 24
Top = 38
Width = 490
Width = 520
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
TabOrder = 1