121 lines
4.0 KiB
ObjectPascal
121 lines
4.0 KiB
ObjectPascal
{-----------------------------------------------------------------------------
|
|
The contents of this file are subject to the Mozilla Public License
|
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
|
with the License. You may obtain a copy of the License at
|
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
|
|
|
Software distributed under the License is distributed on an "AS IS" basis,
|
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
|
the specific language governing rights and limitations under the License.
|
|
|
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
|
located at http://jvcl.sourceforge.net
|
|
|
|
Known Issues:
|
|
-----------------------------------------------------------------------------}
|
|
unit FindAndReplaceUnit;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
ComCtrls, ToolWin, StdCtrls, JvDockControlForm, JvComponent;
|
|
|
|
type
|
|
TFindAndReplaceForm = class(TForm)
|
|
ToolBar1: TToolBar;
|
|
ToolButton1: TToolButton;
|
|
ToolButton2: TToolButton;
|
|
ToolButton3: TToolButton;
|
|
ToolButton4: TToolButton;
|
|
ToolButton5: TToolButton;
|
|
ToolButton6: TToolButton;
|
|
ToolButton7: TToolButton;
|
|
ToolButton8: TToolButton;
|
|
ToolButton9: TToolButton;
|
|
Find: TButton;
|
|
ReplaceButton: TButton;
|
|
ReplaceAllButton: TButton;
|
|
FindComboBox: TComboBox;
|
|
ReplaceComboBox: TComboBox;
|
|
LookInLabel: TLabel;
|
|
LookInComboBox: TComboBox;
|
|
SubfoldersCheckBox: TCheckBox;
|
|
BrowseButton: TButton;
|
|
ListView: TListView;
|
|
lbDockClient1: TJvDockClient;
|
|
procedure FormResize(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
FLookInlabelRect,
|
|
FLookInComboboxRect,
|
|
FSubfoldersCheckBoxRect,
|
|
FBrowseButtonRect,
|
|
FListViewRect: TRect;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
FindAndReplaceForm: TFindAndReplaceForm;
|
|
|
|
implementation
|
|
|
|
uses MainFormUnit;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TFindAndReplaceForm.FormResize(Sender: TObject);
|
|
var LookInMoveDown: Boolean;
|
|
BrowseMoveDown: Boolean;
|
|
begin
|
|
BrowseMoveDown := ClientWidth - (SubfoldersCheckBox.Left + SubfoldersCheckBox.Width) < BrowseButton.Width + 5;
|
|
LookInMoveDown := ClientWidth - (ReplaceAllButton.Left + ReplaceAllButton.Width) < 220;
|
|
if LookInMoveDown then
|
|
begin
|
|
LookInLabel.Left := 5;
|
|
LookInComboBox.Left := LookInLabel.Left + LookInLabel.Width;
|
|
LookInLabel.Top := FLookInlabelRect.Top + 27;
|
|
LookInComboBox.Top := LookInLabel.Top - 3;
|
|
SubfoldersCheckBox.Left := 5;
|
|
SubfoldersCheckBox.Top := FSubfoldersCheckBoxRect.Top + 27;
|
|
end else
|
|
begin
|
|
LookInLabel.Left := FLookInlabelRect.Left;
|
|
LookInComboBox.Left := LookInLabel.Left + LookInLabel.Width;
|
|
LookInLabel.Top := FLookInlabelRect.Top;
|
|
LookInComboBox.Top := LookInLabel.Top - 3;
|
|
SubfoldersCheckBox.Left := FSubfoldersCheckBoxRect.Left;
|
|
SubfoldersCheckBox.Top := FSubfoldersCheckBoxRect.Top;
|
|
end;
|
|
|
|
if BrowseMoveDown then
|
|
begin
|
|
BrowseButton.Left := SubfoldersCheckBox.Left;
|
|
BrowseButton.Top := SubfoldersCheckBox.Top + 22;
|
|
end else
|
|
begin
|
|
BrowseButton.Left := ClientWidth - BrowseButton.Width - 5;
|
|
BrowseButton.Top := SubfoldersCheckBox.Top;
|
|
end;
|
|
|
|
LookInComboBox.Width := ClientWidth - (LookInLabel.Left + LookInLabel.Width) - 5;
|
|
FindComboBox.Width := ClientWidth - FindComboBox.Left - 5;
|
|
ReplaceComboBox.Width := ClientWidth - ReplaceComboBox.Left - 5;
|
|
ListView.Top := FListViewRect.Top + (Integer(LookInMoveDown) + Integer(BrowseMoveDown)) * 26;
|
|
ListView.Width := ClientWidth - ListView.Left - 5;
|
|
ListView.Height := ClientHeight - ListView.Top - 5;
|
|
end;
|
|
|
|
procedure TFindAndReplaceForm.FormCreate(Sender: TObject);
|
|
begin
|
|
FLookInlabelRect := LookInLabel.BoundsRect;
|
|
FLookInComboboxRect := LookInCombobox.BoundsRect;
|
|
FSubfoldersCheckBoxRect := SubfoldersCheckBox.BoundsRect;
|
|
FBrowseButtonRect := BrowseButton.BoundsRect;
|
|
FListViewRect := listView.BoundsRect;
|
|
end;
|
|
|
|
end.
|